TINY BASIC [message #282998] |
Mon, 10 March 1986 22:13 |
|
Originally posted by: franco
<pre>
Article-I.D.: iuvax.54600020
Posted: Mon Mar 10 22:13:00 1986
Date-Received: Thu, 13-Mar-86 06:49:37 EST
Lines: 102
Nf-ID: #N:iuvax:54600020:000:5968
Nf-From: iuvax!franco Mar 10 22:13:00 1986
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
</pre>
|
|
|