Sharp PC-1500 - Page 55

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
ce_iUJ m@J rnrnm ,,. ,..,
rn rnmm m mm l•NTE• )
m rE1~ n riC10m co m 1• •1FT 1 omm m 1• •" T' o
w ITO OD CD CQJ ®rel lfu:®
rnrn nn rn1 = 1cn rD CIDt <• •< •1
rn moo mm ITO mm, . ... , 1 C'.J m rn corn m
! SPACE ) 1 = ) lsrAc£! ! SHIF T I c:J I s111rTI CO
CD l••T .. f
rnrnoommmoorn 1-·1 C'.Jmmwmmm cE1
f S>ACl f f = f ( SP•C•f , ... , ,, I c:J, ...... I c:J
[X) IEN TER I
Th e FOR ... NEXT loop need not always increment the cou nt er·vari ab le by 1 nor always
i ni tialize it to 1. Using the STEP clause, the programmer ma y specify the si ze of the increment
(or decr
eme nt). Our n ext example progr am demonstr ates this and brings back memories of high
school cheerle
ad in g:
P rogra m Listi ng:
10 WAIT 30
20 FOR
HS = 2 TO 8 STEP 2
30 PRINT HS ; " I " ;
40
NE XT HS
50 WAIT 60 : CLS : CURSOR 0
60
PRINT "WHO DO WE APPRECIAT E? "
70 PRINT
"SHAR P PC· 150 0!"
80 END
Keystrokes:
moo oo rn com rn rn l •NTE•I
rn rn ru rn oo DD II!l 1 = 1 rn D:J rn rn m com rn
ffil <NTC Rf
rnrnm oo m oo co rnm1 '" "" ' m , .. .. ,, c:J
I SH 1 rT I CO lsrAC EI I SHI FT! c:J I SH •FT I c:.J
(E NT ER!
m rn OD mm CD OD m l •• TC•t
rn rn oo a::i corn rn m 1 .... ,, , o ill mm 1 SH•FT! o
ill o:o mm rn OD rn '' "'"" '
rn rn m oorn rn rn 1• ••" ' CJ oo oorn l •••C •t oo oo
, ... c.1 CID CD l •••CE I m 0 0 OD oo mm
m CD OCl l•••n l CD' '"" " CJ (E HTER f
53
Do not sale this PDF !!!