Radio Shack TRS-80 100 - Page 117

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
-----BASIC:-----
1Ao.olly, ,OU .. ,II ... ",I."",,,,, "1""''';0''' "1"" 01 on I~' .. 'iln./ll .. liL.S~;<I_n' M
IF .. TH}:N .. ELS}; ... Iemen, ,e<lS' oonltirion ... ~ hase<l oa the 'ru'" or faJ<ehood of t~ •
.......... ", tell, BASIC '" uk., pankular 0<,,0/1. For e ... mpl<.
IF A < ~ l~E~ GOlD 10' ELSE GOTO Z0'
If A ill lc>. tlun R. 11>< ", .. im""p" tnlC. and tilt I'fovam procce~ '0 "'T<m<'II' 100. If A "
equ.1 10 or gr<OlCf ,t..n II. ,.... r<1,,~.,,",ip i. f.ls<. .00 th< ~r.m proceed. lU ""'1C'mO"' .!OO.
IF •. THE'" .. [LSI: ... IC'mO ........ ~,5< ... ~ ,n lurther deu" ........ "IlASIC "'l"'"rd •. "
loKi<.1 u~c>,ioo. pOrf"",, 11<>0 .. .., los'" opera!"'" 00 '" be,,,,,,,,, ~ •. ~ .. logIC
de>!. willl bit by bit CUfl1POl1""" l><t~n nurnb<". Y"" un "'" lol:lC>1 .. I'f't .. ....,. to combo ...
r<!.Ilional "pres"o,,,.
1m. an: '" IOJI".I 0("e'>'OI<, II'" of whIch .f< .. nary .0.1 me ... hkb "'"""Y T.Ok 1)-6
su"""",,,"' th< 0<11O1l 01 "'" 1"Il"'" ~nt<n:
,.,
l.ble 13-0
lb< oomputC'f '",,>ortl [11< op<"."Is~' ;" .. , ...... bclot< pcrfurrmnll tht !oJ",,1 ope''';OII. NOle
"'''' "h<n IIllth< 'n. <:of • b1"0fJ' nom""" ..... '"'. , ...... ,Iv' """ ... 1".1, .. " .1, ',""': ......
~·lw:n.lI Ih< bit, 01 • Oinary numb<T .... 0.. ,!><fllbe &<0,11101 •• 1"" .. O. '" ··rol (Il<m<mb<r
!h0! ;n"'S." or< 16 bit tI.,,.. compl<m<nt numb<n!j
'"