Radio Shack TRS-80 100 User Manual page 147

IIIfgoI
10 FOR I-I TO 100
20 FOR J-I TO
~II
30 e(I,JI • A(I,JI
~II NEXT I
:III NEXT
J
10 feR 1'1 TO 100
Z0 feR J" TO
~0
30 1I11,J' - A([,J'
n
NEXT
J
~0 NEXT I
FOR..• NEXT
Establish Program Looping
- - - - - - B A S I C - - - - - -
18 A • FIXII44g.G31
.... A equal to
·~.H94123
,ell ,.. eq..1
' < >
1440.
I' A •
F1X(-3J49G12J.44~ZI
Th<.. romrroando ,,«ute
lhe
"'ale""'''' bolwecn
the
FOR .00 NEXT loop
rep"'ilivcly ••
ot}'\111
""""'.. • or/<JbIt
from
I~',it>l ~"'
"'[mat
"Ill",.
odd"., ''''''''''''''
l<>
il tach ,inlt BASiC .",b
til< loop. inillol ",1",.fiMi
ouI.,.
olld
j"",,"""' .....
11 "","en< •• »".......,. STEP
j"'......'"
is
"I"i_l:
if
""","ed.
BASIC ' ..
"m,,,
STEP 1.
BASte e.oecule'
th<: loop ..
I....
'*"'..,"""
if ••
rit>lJ/t
""""«l.ft"",
WJiw lhe
fiN Ii"",
th<
FOR
w .........
rea<l. AI"". BASIC .....I"'"cs inin',,' .... 1,....
final
..,j.....
UId
i""'nrl<'nJ ....
r,r1l
,ime " ,,,«utes
dI<
Ii"" Jr
me.. upn.ion, ore ....n.bIe., <""fig"'!
tho: ..
h...
<Jl ,Il<ot
_"""blo>
""tr
,n [I!< ""'" .... "" dfet' "" ,.....,""''''' of ,II< Hlop
YCR
"'.y .'"",,"
FOR., .NEXT
loop< wilk - . .
FOR .NEXT
loops. Th< number of ..."l«J
l<>::>po is
deptn<leo' olll}'
<>II
,he oi
of roro.oinin, mt"""Y. N<>le
thai
'II
'Me<"""
mu"
be
<_a;fIo<d ...... Iy ..i,hio
,hI: ""1«""', ror "...
mplc;
FIX
Truncate Real Numbers
FIX "'",,'" ,ht
,",'oolt ooml><.
port,,,,,
0* """,,,,,'
up"""""
(!"ok:
lk diff<r<fl« bel""con FIX and
lNT i....'
foc
""pi;".
"umbt<" FIX "",ply trIlll<alc.
ownerio
ex""",,"'" ..
lIi1< lNT
""lim,
1M .. _ """,1><, "'"
I"""c' ....n
"""",ric •• pre.. iorI.
[ .....(lI..
• •
• •
•
•
•
•
•
•
• •
•
• •
•
•
•
• •
•
·
'
•
• •
•
•
•
• •
•
• •
•