Sharp PC-1500 - 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 ]
3J0: IF A$ ="2"LEI
D
·= 0*2: lF 0 >6 4 A
v
LET
0=64: GOTO
8
v
350
320:
IF
A$="6"L
ET
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: GO TO
290
G
350:A= DA N0 T< P>
35 I : l F
P >I 00 GO 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: WA l T
70:
Lo op Counter for
G CURSOR A:
N meteorite patlc rn
GP RJN T "0 008/A st or age
JC7FJC 2A 0800"
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 Sc ore
420:G CU RSOR E:
GPR J NT
T< E>
T
Mete orite Patle rn
430: "l E XT
E
Ta ble
440 :P : P+ J : GOTO
J80
500
:WA JT J 50 ! u
GCU R SOR
J 05:
v
GPRJNT "7F556B
5568556855/F"
w
50J:CLS : l.fAll
150
x
502 : S= S-J
5J0 : PRJ NT "GA ME OV
y
ER SCORE: "i s
z
' AS
Input Oat a
520:CLS : END
T C101 )
Doi paucrn storage
STATU S
J
927
.
Do not sale this PDF !!!
- 191 -