Sharp PC-1500 Applications Manual page 214

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
T I T LE
DOT PATTERN DEVELOPMENT
[ Program List
I
10: "A" : CLEAR
20:CLS :WAJ T 0:
JNPUT "D OT 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 JNT " MOVE"
50: WAJT 0:A$•" ": X
=POJNT P
55 :
Y=OOR
X:
fl$="'"
60 :GCURSOR P:
GPR JNT
Y
65: 0 1=0
70:A$= JNKfY$
80: JF A$()"" 60TO
150
90:A=&7F- O:A=AANO
x
l00:GCURSOR P:
GPRJNT A
J
05 : 0=0
l I 0:
A$~
INKEYs
1201 : 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
160 : IF A$•" 2"Lfl D
W=Dl *2: G OTO 25
0
170: JF A$ •" 6'"L ET P
W =P+ J: GO TO 260
180: JF A$ ="4"LET P
W =P-l: GO TO 260
190 : IF A$=" n " LET n
00£ =0: CURSOR
2
J: PR JNT •· MOVE
":GOTO 130
200 : IF A$•"T" LET M
OOE• J: CURSOR
2
J : PRJN T "TRACE
" :GOTO 130
21 0 : IF A$ • "P"LET M
OOE•2: CURSOR 2
J :PRJN T " PRI NT
": G OTO 300
220: IF A$ ="E" G RAPH
:GOTO 600
Do not sale this PDF !!!
230: BEEP
2,
10, 40 : 0
~ o J : GO T O
55
250: lF DW >64LET OW
"61
25 J: JF MODE<> 0GO TO
255
252:A=&7F - OJ: X=A
ANO X
253:GCURSOR P:
GPRJN T X: O=IJ!J;
GO TO 50
255;
A ·~ YO R
O W
? 56: GCURSOR P:
GPRJNT A: D" DIJ:
GOT O 50
260 : JF PtJ< 0LET PW =
0: BEEP 3, l 0, 20
:GOTO 280
270: JF PW>NLET PW=
N:BEEP 3, 10,30
280: IF M OOE=0GOTO
286
284: 6CURSOR P:
GPR JN T Y: GOT O
290
2 B6:A= ~7F- Ol :A =A
ANO
X
207 : GCURSOR P:
G PR JNT A
290:P=PW: D=OJ:6010
50
300:GCURSOR P:
GPRJN T X: 0=01:
£=0
3 0 l : TS: '' l23156?89A
BCDEF "
305 : G RAPH :
f\L CURSOR
<
0, 0)
3 J0 : COLOR !:ROTA!(
I : CS J Z£
J
320:C=J l 0
330:FOR J =JTO
?
340 : A=2~<J-J)
3 q
I : GOSUB 570
350:6LCURSOR <C,0J
:LPRJN T 0$
360 : C= C- 15
3 70:NEXT
J
3 80 : G LCURSOR ( 0, -J
SJ: SORGN
390: LJ N£ <JS,0) - (J
20, 0), 0,
2
<100 : FOR J =0TO H
'IJ 0 :A=POJtH I
- 208-
PROGRAM NO.
P5- F- 6
q J2:GL CURSOR C 0, £)
:SORGN
4J3 : E=-J 6
qJS: LJN E CJS, -15 ) -
(120,
- )6) , 8,
2
420:FOR J = JIO
?
430:0 = 2~<J - J)
44 0 :8=AANO B
d50:C=J 20- CJ t JSJ
<?0 : JF B=0GOTO 490
480: LI M E
<C•3,
- 4J-
c c~ 12,
- 13 J, 0, 3
I
B
q90: GLCUR SOR
C C, ~ )
; LINE C C, 0 ) - CC
, - JSJ, J,2
500: N£X T
J
505: 60SUB 570
5J5:6LCURSOR (2, - 4
J: COLOR I
520: LPRINT OS
530 : NEXT J
S40:T EXT :LF
2
550: CURSOR 2 l :
PR IN T " MOV E":
MODE=0
560 : G OTO S0
570:F =JNT (A/ J6J:G
=A- C Ft J6)
S?J:
IF
F=0 LE T F$•"
0 ":GOTO 574
5?2:Fs =MJO S <T s ,F,
J )
574 : JF G= 0LET 6$•"
0" : 60TO 576
S?S : G$=M J 0$ CT s, G ,
l )
5?6 : 0$ =F S·>GS
579:RETURN
600: CSJ ZE ?: C O LOR
0:CLS : RQHH E:
0: TEXT
6J 0 : ENO
S'I ATUS l
1428
3