Radio Shack TRS-80 PC-3 Owner's Manual page 280

PROGRAM LIST
150
150
180:IF G$=96" LET X=X+1:
;';0-0
210
190:IF G$="8" LET Y=V+l:
GOTO 210
200:GOTO 150
210:IF X<0 LET X=0: GOTO
150
220:IF Y<0
Lei
V=0: GOTO
732
350:IF 3<0 OR 3>9 GOTO 3
70
360:GOTO 40
370:BEEP 4: PAUSE 9***
~
ARP ***9: GOTO 30
400:PAUSE
"HITI HITI"
410:BEEP 5
420: PAUSE "BANG
I
BANG
I
9
430:T=T+1:C= RND 3*5:F=F
+C
435:E=F- INT (S/2)
440:WAIT 100: PRINT "SCO
RE 9;T;" ENERGV 9;E
450:GOT 30
500:WAI : PRINT "SCORE
\' " TP$ (').',' :i<GAME
LET
:~=9:
GOTO
LET Y=9: GOTO
250:IF X=A AND V=B GOTO
400
260:E=F- INT (S/2)
270:IF E<=0 GOTO 500
280:R= RND 5
290:IF R=l LET B=B-1:
GOTO 340
300:IF R=2 LET A=A-1:
GOTO 340
310:IF R=3 LET A=A+1:
GOTO 340
320:IF R=4 LET 3=B+1:
GOTO 340
340:IF A<0 OR A>9 GOTO 3
70
230: IF
:~>9
150
24(1:
IF
Y>9
10:
9
A
9
:
RANDOM: WAIT 2
50: PRINT 9** BUGHUN
T GAME **9: BEEP 3
20:::::~:::E=~:F=~:
30:A= RND 9:3= RND 9
40:L= ABS (X-A)+ ABS (Y
-3)
50:I~
X=A AND Y=B GOTO
400
110:IF L=2 BEEP 2
120:IF L=3 BEEP 1
100:IF L=l BEEP 3
130:WAIT 50: PRINT 9(9;
STR$ (X);9,"; STR$ (
Y);") DISTANCE=";
STR$
(t.);"
E=9; STR$
(E)
150:S=S+1:E=F- INT (S/2)
153:IF E<=0 THEN 500
155:G$= INKEY$ : IF G$=9
9 GOTO 130
157:BEEP 1
160:IF G$="2 9 LET Y=Y-l:
GOTO 210
170:IF G$="4" LET X=X-1:
GOTO 210
285