Sharp PC-1500A Instruction Manual page 97

A ll and more about Sharp PC-1500 at http://www.PC- 1500.info
Demonstration Program
The pfogfam listed he re
fill s
the display
~'Vi
thin the character stored in A$ and creates unusual
patterns by reversing this character. The program uti lizes several of the statements discussed in
this chapter.
Program Listing:
10 AS = "X"
20
WAIT 0
30 Y = 5 : X
=
155/ Y C = O
40 FOR I = 1 TO
x
50 GCURSOR C
60 PRINT AS
70
C = C+Y
80 NEXT I
90
FOR I = 0 TO 155
100
GCUASOR I
110
A = 127 - POINT
120 GPRINT A
130 NEXT I
140 GOTO 90
Keystrokes:
o:JOfJ CAJ ls>UFT )
ffi l :
ll S>U FT I
CJ CKJ
( SKIHI C] IENTEAI
m oo oo m
CD
rnrn
t••rc•1
a:JOO[DI : 1 [£)f sHOFTI CJ[KJ I =
lo:Ja:JUJCZJ[D
' '"'" 1om 1= 1m1 ••TE•I
m rn m
CID
OD co
r=-1 rn
rn oo rn
t••TE•I
m m
m rn oo ODmrn OD m
1 .N, ..
1
rn rco m oo
co
oo rn m
r '""'
1
rn
1
••TE•I
OJ IJ[]CJDI
=
l[IJIT]ill l•HTEA I
mm nooo m rn
CD
,,.,,.1
m m m
CQJODCO
I =
IOOCOCQJ rnmw l••TE•I
CDl . !O
m
OD
m
[]]CB]
m
CQJ
OD CD
I EHTU I
rnrnoorn1 = irnrnrnGm ~cooorn rn 1
•.
~.1
m m m cru m m co
oo
rn m
l•NTE•I
m rn
8' . J
oo rn m
rn rn 1 ••T<•I
m mm m rn m rn rn
ODl ••TE•J
NOTE: If the last line is included, the program will be in an in finite loop when run . (Th is may be
stopped w ith the BREAK key). The character displayed may be changed by inserting a new
character in the assignment in li i ne 10.
Do not sale this PDF !!!
95