franco@iuvax.UUCP (03/11/86)
Have fun with this BASIC kernal. Runs a bit faster than STBASIC,
allows only 26 variables (a-z) and only one array but array can be
as large as available memory. Also allows compact statements.
documentation to follow. Strip away all lines down to but excluding
"begin 644 tbi68k.tos". I downloaded this and uudecoded it with the
uudecoder posted to the net yesterday and it worked.
begin 644 tbi68k.tos
M8!H V !@ "// ./F :8%!@ P 8 ,
M)F #$Y@ R"8 -7@ #P N>0 #CY-^0 #8!A O0(_D > .J" Y
M ./I"\ ( "/ .L)"\ ;"/ .K$* (\ Z4(\ Z,(\
M Z(+GD X^3?D X+80 +A! \ #YA B480 +%"A(0?D ZT80 *QF$
M"OA*06< 6RRO __]D A8$0'@61$!X5EA D(*DEF%F$ "2HD329Y .
MJ&$ "2@CR@ #J@@#)"(L+P #9Z(F>0 #J@L2]? (#D ZLL(MC @&
M(\L ZH(DXD36$ "/PB2"1-)DQA CH8 #_<DQ)4]1,3T'$3D774E7.4T%6
MQ4Y%6-1,1=1)QD=/5,]'3U-5PE)%5%52SE)%S49/TDE.4%744%))3M103TO%
M4U1/T$)9Q4-!3,P 4$5%RU).Q$%"TU-)6L4 5,\ 4U1%T ^O3R^OKT\O;P
M L0 4P "5@ FP 66 $( !2 1^ "L TH -Z
M $? YX 2H "\ !B0 )D &@ !CP 4: (#@ "!H
M A2 (8@ !Q@ .\ (L ]8 /< &9 !FH 9P &?
M!G8 :$ &E$/Y !#D7Y !>F$ "7@F2$("$!@2$68$($M@)!8 Q@*V
M/ N9QK"/ !_L@!G#%B*($M" DH9:OQ@V'3_2AEJTD?Y "923M-A 9,
M(_D > .J&$ !CY@ /WP80 &-B!Y 'B/( .B$JY .B&< _=9"
M@2)(80 '0&4 _<HCR0 #H@@252(80 )2D/Y !($7Y !CF _VAA .>
M80 %[B( 80 ' &8 !D!@SF$ ")1A 7:80 &[F4 _8AA A080 )#F<,L#P
M$V8&80 ) F?Z80 &X&#@> MA A,.@AA D 8)YA A #0IA CT8 #_<F$
M"#(C"F$ SPX & &80 '6& 280 ('BP(80 %8F#@80 (S& 0/P1A ,:.!\B
M &$ !W1@WF$ !49@ 5H80 &VF$ P O""( 80 &9&8 !:8O.0 #H@O.0
M#HQ"N0 #I0CSP #HQ@ /\:80 %*"(Y .C&< !2HN02/? .C"/? .
MB"!?80 &:&"D80 &AF$ !,PCS@ #I1#^0 6=%^0 =Y@ /Y<80 "DB/
M .G$/Y !:D7Y !YF _D)A )X8 )P 2/ .F"/Y .B #J C
MR #J0L3V &W?P 4(!9G&K"Y .E&;N)$\B3D?Y %-?)80 %XBY+
M8 #_)&$ R)E 2*(D @.0 #I1G 1^L\!G!F$ !<A@[" 1T+D Z8:0 $
MN"* (CD Z<2KD Z8:@+!0;* ;10C^0 #J Z(('D ZD8 #^T&$
M!8Q@ /[(8 IA '02H!F /X6(DA"@6$ !5ID /X 8 #[Q"YY .D"/? .
MB%B/(%\O"&$ !<A@"F$ I)E5B1 8!HO"&$ H9E /N)$ 4$$( $( B7V$
M!8@0@B\(+SD Z((_S_____ .B"// .D"\*$#P .F$ !"1!^0 #K1A
M %2)%\D@"/? .B"!?6(]A 8P+ 1@DF _BH,$ -9PQA -.80 &&BP$
M8/1@ /X480 'H"!Y 'F$ !]1A /K69_JP/ ! 9QZP/ Z9NYA)!#!82 0
MP6$ ^KQG^A# L#P #6;R8-8CR #JAA ?R8 #ZYG0!0D%A /J:9_JP/ !!
M90)? , \ _I"8( 4<K_Z$YU80 '.B!Y 'B)Y .J&$ !Y(0/ -80#Z
M8A \ IA /I:L\AC'A \ #IA /I.$AAA.A(88380&+ \ UGU&$ ^CI@\A \
M $!A /HP$#P #6$ ^B@0/ *80#Z(! \ !IA /H880 '9& ^EAT >D9$ '
M/ /T#P ,+ \ #EC EX 80#Y]E'*_^9.=6$J80 %&"P.+P!A(")?$H!@ /T,
M8 "=F$22H!G *^+P@B0$Z1(%]@ /ST858O $/Y !;T7Y ![F ^[1A
M,FTD8"9A+&<>8"!A)F\88!IA(&X28!1A&F8,8 Y.=6$2; 1@!DYU0H!.=7 !
M3G4@'TYU(!\B'R\ +P%A!B(?LH!.=6$ !)8M!D* 8")A 2,*P)A)F$ !(0K
M$"\ 81PB']"!:0 "-F#L80 $<"UL+P!A"$2 3OD ;$829A 1<*@XO &$<
M(A]A "F8.YA 1*+T8O &$*(A_!06$ ,Y@VD/Y !6$7Y !RF ^P!A
M*F4((D!"@" 13G5A 0T( %*0F;T80 $$"@.80#_&F$ ! 8I!$YU8 !;F$
M!$I"@! 0D#P 0&5"9BA22&'6T(!E &DT(!E &>+P!A #Z(A^P@6, 88@
M.0 #JR0@4YUL#P &PH\ %E#E)(T$#00"(Y .K-!!3G4H ;&$2H!J D2
M2H%J D2!LKP /__8PS!0;*\ #__V( 4@T ,3!2$# P4A T()E $X2H1J
M D2 3G5*@6< 2HD 2@!L81*@&H"1(!*@6H"1(%V'R( 0H#2@=& 9PBP@FL$
M4H&0@E'+__#!04J$:@1$@$2!3G5A /\>(D!"@! 13G5A /\22H!G #>:P
MVB( (GD XZL_P XY909#^0 8@&0B !\CR0 #CIAAB !4H!.=6$
M_MI*@&H&1(!K "B3G4@.0 #JR0N0 #JA.=6$ _M)E.B\ 80 "QCT,80#]
MT"Q?+(!.=6 F80 "M#H(6(]@ /H(80 "J T(6(]@ /G<3G5A +J#! #68"
M3G4O"$WY .&6$ T8@7R Y .B&< ]Y2PO/____]G /O('Q!"$")Y .
MB&$ D@0GQ \ #]A /<B0D!3B6$ 6A@ /=F+PA-^0 #B%@N"\(3?D X2
M8*YA 16+PA-^0 #B=@H&$ ]O 0/ @80#VZ$'Y .M&$ KQG^K \ AG
M)K \ !AG1+ \ UG!K \ "!EXA# 80#VOK \ UG7K'\ ._V7.$#P "&$
M]J@0/ @80#VH+'\ .M&.V$#P "&$ ]I!3B&"J(@B2O #K1G'E-!$#P
M"&$ ]G@0/ @80#V<! \ AA /9H4<G_YD'Y .M& _WH0/ *80#V4DYU
MLKP /__9 #_/")Y 'B1Y .J%.*M<EE#!09X4H4$5.)M$%E DYU5(D,
M&0 -9OI@W+?)9P04V6#X3G6UR6?Z%R%@^"Q?(]\ Z49Q@CWP #I@CWP
M#IPCWP #J CWP #J1.UB(Y .L)*/9 #^QBQ?(CD Z49Q@O.0 #J0O
M.0 #J O.0 #IPO.0 #I@O 4[6$@ 0&;( 9Q)A /6HL#P #6;P$#P "F$
M]9I.=6$ ,HB&A \ "(B2&'6($DB7[ \ IG /?P5(E.T6$ *PG"! \ "=@
MX&$ *!?#A \ UA /5@(E]@WDYU)@$_!!\\ /]*@6H$1(%31(+\ II"B !
MPKP /__8!HP 4)!2$&"_ *- $R (+\ H@ 4A!,@)(04A 'P!(0%-$2H%F
MRE-$:PP0/ @80#U"%',__9*@VH($#P +6$ ]/@0'VL*T#P ,&$ ].Q@\C@?
M3G5"@1(9X4D2&7@%88 0/ @80#TTD) 8 #_&F%.(E\2&;(09PI"@1(1T\%3
MB4[14HA2B4[10H%"0F$P#! ,&4H#! .6(BLKP,S,S,9 #]C" !TH'2@=*
MTH$0&,"\ #]* 4D)@TDYU#! (&8$4HA@]DYU0?D ZT0@$0&+ \ UG
M&+ \ ")G%+ \ "=G#DH!9NAA&!$ 4HA@X$YU2@%F!!( 8-:R &;20@%@SK \
M &%E"K \ 'IB!) \ "!.=6$ ]"1G"K \ -F!& ]&1.=4WY .-1 >9P9A
M /0$8/9.=4CG__\_/ "/SP "$Y-6$]*@&?L(!<_ #\\ (_/ #3DU<3TS?
M__].=4CG?_\_/ "/SP 4Y-6$]*@&<2/SP C\\ ).35A/P+P !_3-__
M_DYU2.?__Q/ .1"\\ .1"\\ 3\Y .0C\\ $!.0=_\ #+"\
M &L _'A,W___3G5(YW__+SP Y%+SP !/SD Y"/SP /TY!W_P
M ,L+P :P#\1A Y .14S?__Y.=4CG@,!#^0 #D80&+ \ ")G#+'\
M / &WP8 #[PA 8L#P (F<.L?P \ ; #[L!+ 8.H2_ 3-\# 4YU2.?_
M_S\\ (O/ #D8_/ ]3D%03S/ .0K!\ !M /O83-___TYU2.?__T)G
M+SP Y&/SP /$Y!4$\SP #D*P? ;0#[L$S?__].=4CG__\_.0 #D(_
M/ ^3D%*GTS?__].=3\\ !.00T*1V]R9&\G<R!-0S8X,# P(%1I;GD@0D%3
M24,L('8Q+C -"@T*=C(N,"!F;W(@=&AE($%T87)I(#4R,"!35"!V97)S:6]N
M(&%D87!T960@8GD-"DME;FYE=&@@3"X@2'5R;&5Y#0HQ,C,P(%<@-W1H(",S
M#0I%=6=E;F4L($]2(" Y-S0P,@T*"@ -"D]+#0H 2&]W/PT* %=H870_#0H
M4V]R<GDN1FEL92!%<G)O<B$-"@ -"@ 8
M
M
M
M
M (<!@8*! 8,# @&!@8&�*$@H,A@0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$
M! 0$! 0$! 0$! 0$!@9*!!(&!A8.!K@&!@8.# 86!@8.!@82!@0&%"@6# 8.
M! 8N!C@*!A .,#0R!K0&@"X&9!J>!@@,'@9*#!@B"@X4,!@6)AX&. @&!@8(
8#@@&!@8!4%YL!@PF#!P0#A0@#AH.&-(
end