Radio Shack TRS-80 100 - Page 122

-----Model '1001------
II l"" """""" .. d """"'" of 1_ 10 " ..... 1. Ihao 1Uo< :!O l<"" BASIC "' ...... '" bile
100. ,1 ~k IIASK: 10,. '-~ .•• lldbIlASIC ... ,. 101_.100 If_
................ _"""'"_l,!OIIl ...... IlASIC< . _" .!O.
m __ ""- .. IF n.,...... ELSE'" ():<l tqftSO .. , "BASK;
... ,... .... "
GOSUB
Lou GOTO. OOSUB 10M ... r..r.:
GOSUB", -..bet
~ GO:SUBUA' ' .. _y , ...... -...... lo<a8ASlC;-oo ....
_nr ~. _ ell " npo<h '" 1i8d. RETUR." < "" WlIa
BASlCu«l*I llloTUR. .. c_ "'CI. _".mpo bck ....... ..... _04 inm«i.oldj krlluoo,.
ItIc (";()SUI! .-. F<.r ...........
l' CaSU!! III, PR1Ml ·A ....... "I"'VE
I" SU" • A • Il • C • 0
11' AVE. SU" , Q
III RETURN
U ... 10 •• 1I.!he •• bfQu',ne "'~In"" II> Ii .. I(lO. n.. ,ub<uotm" .J.l. "I' ~ ..... I .... ord fin<lJ
!1M: >"'roc- Lin, 120 con .. i .. t •• RETUR.'i ..... mond. When BASIC .. «"' •• ,hi. lin •• i'
JU'III" b.ock 10 middle of Ii .. III (0) , .. I'RINT .0 .......... ) and belin. newliun l/I<1'e
l.ilo< COlO. yOll moj" oh ... II>< Q05UII .. "'" of. IF TIlEI' ELSE «>mrn>Rd OIl •
OS <>pin>"'" """'mond. Set "BASIC KfjW_" fot. ~"'" oflbeo< • ........,.Jo
t'OR ... NEXT
ro.r FOIl I'UT-...."cooooa. "l'"U,*of-.ber of BASIC I ............ _ h .....
II'" ... _
FOfI--..w- ..... TO ........ STEP ~IICIO!I" ••
no. fin<._ BASIC.--. FO« ,_ c
,
• _ ........... -' ..... _..., ~
.... tu<... ... '.oil -oy to ... "t:XT ! non. BASIC ........ _
to.....w.. _ ; .. --.. fiul~'" If ra<lo<d .... fi-I_.
8ASIC .. ~ __ Ih<~t- ", ......... .,.....". _,..._,.. ~_.
ilASlCbo_lou_ t-~dwR)tt_ ='
fOa "", :Ii ... ~~ e-, ....... """ ~ .....,.. f<Io .,. ........
It SUI! • 1
2' ~Oll 1.\ TO I'
3' SUI! • SUI! • ~(Il
41 NExT I
'"
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•