Sharp PC-1500 - Page 89

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
Demonstration Program
Key· st r ok e s:
10 WA IT 0
20 DIM AS (01 :;: 13
30 INPUT "EN TER YOUR NA ME", AS (0)
40 C = 0 : CLS
50 FOR I
= 1 TO (L EN A$ (0) - 1)
60 CURSOR C
70 P RINT MID$ (A$ (0 ), I, 1)
80 C = C + 2
90 NE XT I
100 WAIT
110 CURSOR C
120 PR IN T RI GHTS (AS (0), 1)
130 E ND
CLJ w 00 L£) o:J CD C!!J ( <Hr<R )
ill rn (_Q_J co 00 [_AJ ( SH on J m L! .J ill:::O rn CD C!J l <•TC• I
ClJ 00 O:JQO P lfUj W [ snorr ![::.J [5:] f'ITT C!J !IJW I s• •« )
CYl [ .O J OiJ OD I s••« ) [NJ W CKl CD ( siu rr I CJ
1 .. ,,,1 1..i:l m 1 '"" r1 rn m ru co 1 •• , •• ,
W ( A.Jo;] I = l ['ll"" J( sm n l [Dw;Jo;JOCJ l• •TE• I
mrnmoooom 1 = 1mm oo m mmoom 1 - , 1rn m ~ m
c:J OJ CD !• •>< •I
mm m rn oo m rn oo m 1 c.,,, ,
CD 00 l.I) OD CD Cii.J CD [MJ UJ [[) rn l • ) w rn [IJ rn Q. l
1 ~11 1' 11 w co 1 SH • f'1 ~ ro ,_j_ J !E NTER !
mw m c= 10 m rn1 •• t•R 1
rn oo oo m rn rn rn l ••TE•I
LD rn rn oo m com !••t••I
mm oo m rn nn 0000 ori 0 1••t••I
rarnmm nn moorur.. 8-J CDODODCDl """'J ill
l!.J[A]I SIU <Y l l $ JIQ ( 81 j o:J( S HIF t!G:J [D l lJ
I EN T£RI
87
Do not sale this PDF· !!!