Sharp PC-1500 - Page 194

All and more about Sharp PC - 150 0 at http:/lwww.PC-1500.info
PR OGRAM
MOLE
BANGING
PROGRAM NO.
3
T I TLE P 5-E-7
[ Program List ] [ Memory Contenu I
10: "B": C LEAR
360: lF AS=CHRS &1 3
20: WAlT J50: PR J NT
LE T A=3 :G OTO 3
A
..;
"GAME START"
95
30: 1.JAlT 0:CLS :
37 0: lF A$=CHR$ 8.1 4
B
RANDOM
LE T A =4:GOTO 3
Display C ur so r P osi·
4&:PR1NT
T
95
c
ti on
5&:1.J=4:E=24 :F = 40 380: IF AS=CHR$ &1 5
60
:P=RNO 6 LET A=5:GOTO 3
0
70:FOR R=ITO 3 95
80: AS="•·: A=&FF:
39 0: IF AS = CHR$ 8. 16 E
1st Loop Cou .nt er
GOSUB 200:
LET A=6
F
2 nd )..QQp Co unt er
GOSUB 300
395 :RE TUR N
90: lF A=S.FFGOTO l
400:BEEP J,30, 30:
G
20
G CuRSOR C :WAIT
H
100: IF P= AGOTO
150
10
110: GOSUB 500 410: l F R= lGPRJNT
..
I
12 0: lF
R=3L ET
X=X ..
2 01030 70 703010
l
20" :T=T+ 2:GOTO
J
13 0 :NEXT R 440
K
1<1 0 :GOTO
160
420:
IF R= 2GPR1NT
..
15 0 :GOSU8 400 20J03C7C7C3CJ0
L
16 0 : WA 1T 0:6CURS OR 20" : T=T+ J: 60TO
M
C:G PRJNT "0000 440
000000000000"
430: IF R=3GPRlNT
..
N
17 0: £=£- J:r=F-J 20 i 33F 7E7E 3F J :~
0
!72: lF
X>3 GOTO 600 20 "
174: J F
E=0LET
W= I: 440: PR JNT T
Mole Di sp l ay P os ti·
GOTO 60 45 0:RETURN
p
tions (I to 6)
I 76: IF F=0GOTO 600
500: IF R= lLET T= T-
180:GOTO 60
2 : GOTO 530
a
20 0: C=l0 +<< P -J> t 24
510: lF R= 2LET T=T-
>: GCURSOR C 1: GOTO 530
R
M ole Display Stages
210:0EEP 1, J 0, J 0
530:P RJNT T {I to 3)
220: IF R= JIJ AJT \.J: S40 :RET URN
GPRINT
"204060
600: WA1T
150:PRINT
s
70? 0604020 .. : "GAME OUER
SC
T
Score
GOTO 250 ORE : " ; T ;
230: JF R=2WAJ T
w:
6J0:GCURSOR 0: CLS
u
GPRIN T "0810 78
: E NO
7C7C7Sl000":
v
GOTO 250
w
Wai ting time
24 0: IF R =3WA1T \.J:
GPRJ NI "0264 /E
x No. of missed moles
3F3F7E6402"
STATUS I
y
250: RETURN
965
3 00:A$ :l NKEYS z
340: IF AS = CHRS
8. I 1
A$
Area for IN KEY S
LET A=J: GOTO 3
95
350:
IF
AS = CHRs 8.12
LET A=2: GOTO 3
95
Do not sale this PDF !!!
-1 88-