Sharp PC-1500 Applications Manual page 196

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
SPACE
EVADER GAME
PROG RAM NO.
2
T I T L E
P5- E- 9
[ Key Operat ion Procedure
I
Step No. Input
Display
Remarks
GAM E START
The
alarm sounds during
1
(oaj
[!]
meteorite pauen generated.
(Meteorite Pauem) (Score)
OJ
0
The spaceship treks nashing.
These keys are to operate
IT]
the spaceship.
ITJ
When the spaceship a1Ti-
(Score)
ves at the goal, a checkered
nag appears.
GAME OVER SCORE:
The game is over.
(Score)
[ Program List ]
10 : "A" : CLEAR J60:CURSOR 22:
20 :0JM TU01
>:
PRJNT
s
RANDOM
170:P=0:0=1
30:1.JA J T
J00:PRJ NT
190: FOR
J
=I
TO
2
"GAME START" IBJ : JF
P >l 00 GOTO
5
40:FOR N= IT O 100
00
STEP
2
190:At ='''' :X=0: 1JAJ T
50:A=RNO
7:8=2~(A
2
- J)
200:A=T(? ):B=AOR
0
60: JF
(A=l>•<A=7>
210: GCURSOR P:
<>JLET T(N)=B:
GPRJNT
B
BEEP 1, 1, l: 220 :A$=JNKEYS
GOTO I
I 0
230 :
l F
A$() ""GOTO
70:C=RNO
7
300
80: J
F A=CGOTO 70 250:GCURSOR P:
90:C =2~< C-I) GPRI NT A
100:T ( N>=BOR C: 260:A$ =INKEY$
BEEP
I ,
J,
I 270:JF AS()""GOTO
110:NEXT
N 300
120 : T(0>=& 7F: f(I>=
290:NEXT
I
0 : T(l 01> ~ &7F
295:P=P+ l :S=S+J:
130:1.JAJT 0
: FOR
P= 0
GOT O
350
TO 101 300: GCURSOR P:
J 40: GCURSOR P:
GPRHH
A
GPRJNT T (p)
305: IF AS="B"LET
0
150 : NEX T P : l
NT ((0+)) /2)
(To
be
continued )
: GOTO 350
Do not sale this PDF !!!
- 190 -