Sharp PC-1500 - Page 186

A ll 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 ":CLE AR :
RANDO M ; M=8J "F:
S=&FF
20:CLS
:t.JAJT 0:
0 JM T$(l I )*68,
PT( J0 2J
30 •T$ (0) ="08?F4 27
90F79 575 54C7?0
97?555042? F550
47FJ0 77 5545700
9??525E55655 FS
5566 0"
31: T $(1 )="086F21?
F 027F5 14C5?505
54570296 05 33E4
55E5 15055 ?709?
0 55556F 50 7F 5 24
7 7A4A"
32:T$ 1 2J= ' '08 7F494
B71405F5l 15755
44 750 4575455 04
57545700l7F096
B217F207F25712
F 6928 "
33: f $(3)=''087842?
F482F71504 7725
05755207559 4F7
0lF 7 0475045?00
l 7F4 l 7759087 F4
27849 "
34: J$ (4 )=' '0 87F4A0
97F097A4?70415
7 H7F 207F2B5F6
A. 77 4 45 01 17F l 16
F 297E246F l 5?04
5782A"
35:TS(5J= "087F0 4?
F 207 F0 l 7055575
l!l5F407F48ll82A5
F 52553F5l 70 047
F4 J50 75 06?35E4
2784A"
40:J$(6)= " 5860 55 7
053557 025? ?485
f . 5J557704 ?F 105
5. 7F215 05577 487
7l955754F7B4 F2
l?F08"
Do not sale this PDF !!!
41: T$(?J= "292F712
57F057B555
SSF 4
677 5550 4 530513
E655B4ASF51555
075 l94 57 F207F4
27808 "
42 : TS
<8l= ''6 A48 7 A4
75 27F027F42684
87F405F5l 575 JS
05 l 575 l 507 l 1 55
754 45 70 5947694
97F08"
43! T $(9J="496 F217
F0840
?74 l 7F405
F5 1S 07 ! 07 7C 077
94 057 5A55755DZ
77 l 50 477A097F2
J6 F0 8"
44:T$ <1 0 J=' '2 A 6F 5l
5f 5 47Bl23F 4 A? B
4 4? F 44 5Dl l 772B
700A7F027F 14?5
41SF712F 4 8/ F 48
297F08"
45:T$( 1 JJ=' '29 6F2J
306?3057 S041 7F
10 5F' 457E55257D
2A6 B09 7F0J7005
75555F407 F02 7F
J 07 F 08"
5 0:A = RNO 12,B = RND
J2•C=RNO ! 2
60: IF A= BGOTO 50
61: IF A= CGO TO 50
62 : IF 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 : BE EP ! 0, J 0, I 0
J 00 :F OR CP• 0TO 101
J 0J: BE EP ! , l, J
Jl0:A=POJNT CP:P T<
CPl=A
l2
0:GCUR SOR CP :
GPR INT ''?F "
J30 : NEXT CP
J4 0:PTCJ02) = &08
15 0: D=B:CP=0•2=0
160:TJME =0
-180-
P ROGRAM NO .
PS-E-3
J70:WA lT 0:X =P CJNT
CP
.1 80: C URSOR 23:
P RIN T Z•Y=O OR
x
190 :GCUR S OR CP:
GP RJNT Y:O l =O
200:AS=I N K£YS
210: l F AS <)""G OTO
300
220: A= &? F- O:A=AANO
x
23 0: G CURSOR CP:
GPRJNT A
240:0 =0
250:A$ =J NK £ 'r'$
260: IF AS()" " GOTO
300
270:0=01
2B0: Z=Z+ l: IF 2>99
LET Z= 0:CURSOR
24 :P RJNT ''0 "
.290• GOTO 180
. 300: B EEP 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• IF A$ ="4"LET P
W=CP-l:GOTO 50
0
350 :B EE P 2, 10, 20
360•0=01
370•GOTO 180
400:
lF DW>64LET OW
=64
4J0:A=PTCCPJ:A=A
ANO OW
420: J F A=0B EE P 3, I
0, 30: O IJ =OI :
GOTO 440
430! A= &?F -OJ:X =A
AND X
440: GCU RSOR CP:
GP RJNT X
450:0=0W
4G0: 60 TO J ?0
(To be continued )
3