Sharp PC-1500 Applications Manual page 197

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
SPACE EVADER GAME
PROGRAM NO .
3
TIT LE
PS- E- 9
[ Program List ] [ Memory Contents ]
3 J0: IF A$ ="2 "LEI
D
·=0*2:
lF
0 >6 4
A
v
LET
0=6 4: GOTO
8
v
350
320 : IF
A$="6"LET
p
c
v
=P .. J : S=S .. l :
Spaceship Doi Posi·
GOTO 350
0
330: IF A$="4 "L£T p
lion
·=P- l: S=S- J: IF
E
../
P<JL ET
P= l:
GOTO 350
F
340: GOTO
290
G
350:A =DAN0 T< P>
35 I : l F P
>I
00GO TO
s
H
00
I
v
360 : JF A=08E£P
J'
3
0,30 : CURSOR
22
J
:PRJNT
S:GQTO
K
!80
L
370: A=P- 4 : !F
A<J
LET A=!
M
380: B£EP 5, J0, J0
3!:l0: W A l T 70:
Loop Counter for
GCURSOR A:
N meteorite patlcrn
GPRJN T "0008/A
storage
JC7FJC2A0800 "
400: WAJT 0: S=S-6: 0
CURSOR 22:
p
Display
Posilion
PRJNT
s
4J0:FOR E=ATO
A•J0
a
415 : !F E>l0J
GOTO 4
R
40
s
Score
420 :GCURSOR E:
GPR JNT T<
E>
T
Meteorite Patlern
430: "lEXT
E
Table
440 :P: P+ J : GOTO J80
500 :WA JT J 50
!
u
GCURSOR
J 05:
v
GPRJNT "7F 556B
5568556855/F"
w
50 J:CLS : l.fAll 150
x
502: S=S-J
5J0: PRJ NT "GAM E OV
y
ER
SCORE:
"i s z
'
AS
Input Oata
520:CLS : END
TC101 )
Doi paucrn storage
STATUS
J
927
.
Do not sale this PDF !!!
- 191 -