Sharp PC-1500 - Page 97

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
D cm o1 lstration Program
The progr am listed here fills the display within the character stored in AS and creates unusu al
patterns by reversing this character. The prog ra m utilizes sev eral of the statements d iscus sed in
th is cha pter .
Program L is ting:
10 AS = " X"
20
WA IT 0
30
Y = 5 : X = 155/Y C = O
40 FOR I = 1
TO X
50
GCURSOR C
60
f'RINT AS
70 C = C + Y
80
NEX T I
90
FOR I = 0 TO 155
100 GCURSOA I
110
A = 127 - POI NT
120
GPRINT A
130 N EXT I
140
GOTO 90
U ::J! IDrn I '" '" '[]] r :i 1 "'" " [ ' J CXJ I smn l CJ fn• r£R f
ru r .e ·i CEJ L£J w rn rn l•• •• •I
CDOLl
UJI = IC[Jlsi""i O CDL =.JWrr.JW l / _j[D
1 •• ,., 1 c:::i m 1 = 11- ~ , •• ,.. ,
m m
ru CID 1 R 1m r= 1 mm OD c x- 1 r ..... ,
m un ru m nn m rn CQJ oo m ' '""" '
m oo rn mco oo m rn 1 •""' ' rn '' """ '
rn r JD o:::::i 1 = 1 ru oo c:o 1 ••TE• I
CID cru oo oo rn w m ,, . ... ,
rn m m OD mco 1= 1men C2.J m mm 1 •• ,..,
OJ rn rn rn m OD mm rn ooco im ••J
OJ OJ WOO i = J OJffi WGM CID CDOOMill ~ • @
rnrnl.@.. 1 00 m oo co ao Lr _J rn t ••ff •I
rncomao m rx:irn m r •• , .. ,
rn m m m CID m OD rn m l! """'
N OTE: If the l ast l irl e is included. the progran1 i.•J i ll be in an infinite loop when run. (T his may be
stopped w ith ~ he BREAK key). Th e cha racter displayed may be changed by inserting a n ew
character in the assignmen t in li ne 10 .
95
Do not sale this PDF !!!