Sharp PC-1500 - Page 214

A ll and more about Sharp PC-1 500 at http:/lwww.PC-1500.info
PROGRAM
T
I T LE
DOT PATTERN DEVELOPMENT
[ Program List I
10: " A" : CLEAR
20:C LS :WAJ T 0:
J NP UT "DOT PA N
GE < 0- > l 00 J? ,. ;
N
30: IF <N>=0!~ <N<=
l00><>2GOTO 20
40: CLS : O= ! : P=0
4
l : CURSOR 2 l ;
PR J NT " MO VE"
50: WAJT 0:A$•" ": X
=
POJNT P
55: Y= OOR X: fl$="'"
60 :GCURS OR P:
GPR J NT Y
65: 0 1= 0
70:A $= JN KfY$
80: JF A$ ()"" 6 0TO
150
90:A=&7F-
O:A = AANO
x
l0 0:GCU RSOR P:
GP RJNT A
J 05 : 0=0
l I 0: A$~ I NK E Ys
1 20 1: IF As< >""GOT O
150
l30 : 0=DJ
:GOTO SS
150:
BEEP J, J0, J0:
IF A$="8"LET 0
M=JHT
«OJ + J)/
2J:GOTO 2S0
16 0 : IF A $• " 2"Lfl D
W= Dl*2: GOTO 25
0
17 0: JF A$ •" 6 '"L ET P
W= P+ J: GO TO 260
1 80 : JF A$ ="4"LET P
W= P-l: GO TO 260
19 0 : IF A$=" n"LET n
00£=0: CU RSOR 2
J: PR JNT •· MOVE
":GOTO 130
20 0 : IF A$ •"T" L ET M
OOE• J:C URSO R 2
J:P RJN T "TR AC E
"
:G O TO 130
21 0 : IF A$ • "P "LET M
OOE•2: CU R SO R 2
J:PRJN T
"PRI NT
": GOTO 300
220: IF A$ = "E "G RA PH
:GOTO 600
Do not sale this PDF !!!
23 0: BEEP 2, 1 0, 40: 0
~ o J : GO T O 55
25 0: lF DW >64LET OW
"61
25J: JF MOD E<> 0GO TO
255
252:A= &7F - OJ: X =A
ANO X
253:GCUR
SOR P:
GP RJN T X: O=IJ!J;
GO TO 50
25 5; A · ~ YO R OW
? 5
6: G CURSOR P:
GP RJNT A: D" DIJ:
GOT O 50
260:
JF P tJ< 0LET PW=
0: BEEP 3, l 0, 20
:GOTO 280
270: JF PW> N LET PW =
N:BEEP 3, 10,30
280: IF M OO E= 0GOTO
286
28 4: 6CU RSOR P:
GPR JN T Y: GOT O
290
2 B6:A= ~7F- Ol :A = A
ANO X
207: GCU RSOR P:
G
PR JNT A
290:P =PW : D= OJ:6010
50
300:GCUR SO R P:
GPRJN T X: 0=01:
£=0
30l : TS: ''
l2 3156 ?89A
BCD EF "
305: G
RA PH :
f\ L CURSO R < 0, 0)
3J0: CO LOR !:R OTA!(
I : CS J Z£ J
320:C =J l0
330:FOR J =
JTO ?
340 : A=2~<J-J)
3 q I : GOSUB 57 0
350:6L C UR S OR <C,0J
:L PRJN T 0$
360: C= C- 15
370:NEXT J
380 : GL CU RS OR (0, -J
SJ: SORGN
390: LJ N£ <JS ,0 )- (J
20, 0), 0, 2
<10 0: FOR J =0T O H
'IJ0:A=POJtH I
- 208 -
PROGRAM NO.
P5- F- 6
qJ2:GL CURSOR C0, £)
:SOR GN
4J3 : E= -J 6
qJS: LJN E C JS , -15 )-
(120, - )6) , 8, 2
420:FOR J =JIO ?
430:0 = 2~<J - J)
44 0 :8 = AANO B
d50:C=J20- CJ t JSJ
<? 0: JF B=0GO TO 490
48
0: LI ME <C•3, - 4J-
c c~ 12, - 13 J, 0, 3
I B
q90: GLCUR SOR C C , ~ )
; LIN E CC, 0 )- CC
, - JSJ, J,2
500: N£X T J
505: 60 SU B 570
5J5:6LCURSOR
(2, - 4
J: COLOR I
520 : LPRINT OS
530: NE XT J
S40:TE XT :LF 2
55 0: CURSOR 2 l :
PR IN T " MOV E ":
MOD E =0
560: GO TO S0
5 70:F = JNT (A / J 6J:G
=A - CFt J6)
S?J: IF F =0 LE T F$ •"
0 ":GOTO 574
5?2:F s =MJO S <T s ,F,
J )
574: JF G= 0 LET 6$ •"
0" : 60TO 57 6
S?S: G$=M
J 0$ CT s, G,
l )
5?6: 0$ =F S· >G S
579 :R ET URN
600 : CSJ ZE ?: COL OR
0:CLS : RQHH E:
0: TE XT
6J0: ENO
S'I ATUS l
1428
3