Sharp PC-1500 Anwenderhandbuch Seite 186

PROGRAMMNAME
LABYRINTH
[ Programmlisting ]
1B: "A": CLEAR :
RANDOM :M= arr!
S=8FF 0
2@:CLS :WAIT @:
DIM T$¢11)*68,
PT C182)
38: T$(8)="887F 427
SBF 79575540778
977555D427F 550
47F 187755345708
S97 7S25ES55655F5
3S OB6D"
31: T$¢1)="886F217
FO@27F514C3S75D05 -
9457D2396D0533E4
S5E515D5577897
DS5S5556F 587F524 ©
77A4A":
(32:7$(2)="@87E494
B714D5F5115755
447504575455D4.
5754570817F 896
B217F207F25712
F692B"
33: T$(3)="@87B4227
F 482F 715047725
057552D75594F 2
Q1F78475D4570e@
IPF 417759887F 4
27343" .
34: T$¢4)="987F400
SPFOS?PA4I77D415
7147F 207F 285F6
AZ7445D11/7F 116.
F297E246F157D4 |
- S7B2A"
33: TS C5) ="887F 847
F2@7FQ817D55575
O5F4@7F486B205 -
F32553F 51/7084?
F415D758@6/735E4
27B4A"
40: T$¢(6)="SB6D557
053357D2577485
F515577047F 185
37F 21505577487
PIISS7S4F784F2
17Fa@s"
-37FOS7BSSSSSF 4
E65SB4A5F51555
D7519457F 207F4
27888"
42:7$(8)="604B7A4
7527F O27F 426B4
87F 4@5F5157515
05157515D71155
75445705947694
97F ag"
43:T$(9)="496F 212
F@84D77417F 405
_ F515D71877C877
_ 9405755575502
7715D472AG97F 2
16Fa8" |
44:7$(10)="2A6F51
5F547B123F 4078
447F 4450117728
ADOA7ZFB27F 1475 -
415F712F487F48
297F 98"
45: T$CLL)="296F21
30673057504 17F
1Q5F457E55257D
2A6BOQ97F @17085
P5S5SF 407F O27F
197Fa8"
58:A=RND 12:B=RND
12:C=RND 12 _
69: 1F A=BGOTO 5a:
61: IF A=CGOTO 52
62:1F B=CGOTO 52!
7@:CLS :A=A-1:B=B
-1:C=C-1. 0 °
88: GCURSOR @: 'a
GPRINT T$¢AD;T
CP=A
12@:GCURSOR CP:
GPRINT "2F"
134:NEXT CP
— 180 —
(Fortsetzung nichste Seite)
-PROGRAMM-NR. |
P5S—E-3
140:PT(192)=898
17@:WAIT G2 X= =POINT
CP as ® =
188: CURSOR 23:
PRINT 2: ¥=DOR
198: peuesae cP:
GPRINT ¥:Dist .
280: A$S=INKEYS |
21@:1F As$<>"" GOTO
388 |
228: ia &7F-D:A= AAND:
230: SCURSOR cP:
GPRINT' A
240: D=8
258: AS=INKEYS
268: 1F AS<>" "GOTO |
380
278: D=D1.
— 280:2=241:1F 2>99 |
LET 2=@:CURSOR:
-24:PRINT "@ ".
298:GOTO 18a
30@:BEEP 1, 18, 18
31Q8:1F A$="8"LET D
W=INT (CDI+1)71
2):GOTO 400
320: 1F A$="2"LET D!
W=D1k2: GOTO 49°
340: 1F AS="4"LET P,
W=CP-1:GOTO 5d)
- |
358: BEEP 2, 18,20
360: 0=01
378: GOTO 188
480: 1F DW>84LET OW
=64
418: Q=PT(CP):A=A
AND DW