Sharp PC-1500 Applications Manual page 186

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
T I T L E
LABYRINTH ESCAPE
[ Program
List
I
10! "A":CLEAR :
RANDOM ; M=8J"F:
S =& FF
20:CLS :t.JAJT 0:
0
JM T$(l
I
)*68,
P T( J02J
30•T$ (0) ="08?F 427
90F7957554C7?0
97?555042?F550
47FJ0775545700
9??525E55655FS
55660 "
3 1: T$(1 )="086F21?
F
027F5 14C5?505
545702960533E 4
55E5 15055?709?
0 55556F507F 524
7
7A4A"
32:T$ 12J= ''087F494
B71405F5 l 15755
44 750457545504
57545700l7F096
B217F207F25712
F6928 "
33:
f
$(3)=''087842?
F482F71504 7725
05755207559 4F7
0lF70475045?00
l
7F4 l 7759087F4
27849 "
34: J$ (4 )= ''087F4A0
97F097A4?704 15
7
H7F 207F2B5F6
A. 7 7 44501 17F l 16
F
297E246F l 5?04
5 782A"
35:TS(5J=" 087F0 4?
F 207F0 l 7055575
l!l5F407F48ll82A5
F52553F5l 70047
F4 J507506?35E4
2784A"
40:J$(6)=" 5860557
053557 025? ?485
f . 5 J557704? F 105
5. 7 F21505577 487
7l955754F7B4F2
l?F08"
Do not sale this PDF !!!
41: T$(?J= "292F71 2
57F057B555SSF 4
67755504530513
E655B4ASF5 1555
075 l94 57F207F4
27808"
42 : TS <8l= ''6A48 7A4
7527F027F42684
87F405F5 l 575 JS
05 l 575 l 507 l 155
754 45705947694
97F08"
43! T$(9J="496F2 17
F084 0?74 l 7F 405
F5 1S07 ! 077C077
940575A55755DZ
77 l 50477A097F2
J6F08"
44:T$ <1 0 J=''2A6F 5 l
5f547Bl23F 4A?B
44?F445Dl l 772B
700A7F027F 14?5
4 1SF712F 48/ F 48
297F08"
45:T$( 1 JJ=''296F2 J
306?3057S0 417F
105F' 457E55257D
2A6 B09 7F0J7005
75555F407F027F
J 07F08"
50:A =RNO 12,B=RND
J2•C=RNO ! 2
60: IF A=BGOTO 50
6 1:
IF
A=CGO TO 50
62 :
I F
B=CGO TO 50
?0: CLS :A=A- J :S=B
- l : C=C- l
80:GCURSOR 0:
6PR JNT TS<A>; T
$(8); T$(C l ;
8 J : BEEP
!
0, J 0, I 0
J 00 : FOR CP• 0TO 101
J 0J: BE EP
! ,
l,
J
Jl0:A=POJN T CP:P T<
CPl=A
l 20:GCUR SOR CP :
GPR INT
'' ?F "
J30 : NEXT CP
J 40:PTCJ02) =&08
150: D=B:CP=0•2=0
160:TJME =0
-180-
PROGRAM NO.
PS-E-3
J70:WA lT 0:X=P CJNT
CP
.1 80: CURSOR 23:
PRIN T Z•Y=OOR
x
190:GCURSOR CP:
GPRJNT Y:O l =O
200:AS=I NK£YS
210: l F AS<)""GOTO
300
220: A=&?F- O:A=AANO
x
230: GCURSOR CP:
GPRJNT A
240:0 =0
250:A$ =J NK£'r'$
260: IF AS()" "GOTO
300
270:0=01
2 B0 : Z=Z+
l:
IF 2> 99
LET Z=0:CURSOR
24 : PRJNT ''0 "
.290• GOTO 180
. 3 00: BEEP
I,
10, 10
310• IF A$=''B'' LE T
D
W =J NT «DJ+J) /
2> :GOTO 400
320: lF AS='' 2"LET 0
W= D l
*2: GOTO 40
0
330: IF AS ="6"LET P
W=CP+l:GOTO 50
0
340•
I F
A$ ="4 "LE T
P
W =CP-l:GOTO 50
0
350:BEEP 2, 10, 20
360•0=01
370•GOTO 180
400: l F DW>64LET OW
=64
4J0 :A=P TCCPJ:A=A
ANO OW
420: J
F
A=0BEEP 3, I
0, 30: OIJ=OI :
GOTO 440
43 0! A= & ?F -OJ:X =A
AND X
440: GCURSOR CP:
GPRJNT X
450:0=0W
4G0: 60 TO J?0
(To be continued )
3