Sharp PC-1500 Applications Manual page 194

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
MOL E BANGING
PROGRAM NO.
3
T I TLE
P5-E-7
[ Program List ] [ Memory Contenu
I
10: "B": CLEAR
360: lF AS=CHRS &1 3
20: WAlT J50: PR JNT
LE T A=3 :GOTO
3
A
..;
"GAME START"
95
30: 1.JAlT 0:CLS
:
370: lF A$=CHR$ 8.1 4
B
RANDOM
LET A=4:GOTO 3
Display Cursor Posi·
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:
390: IF AS =CHR$ 8.16 E
1st Loop Cou. n ter
GOSUB 200 :
LET A=6
F
2nd )..QQp Counter
GOSUB 300
395:RETURN
90: lF A=S.FFGOTO l
400:BE EP J,30, 30:
G
20
GCuRSOR C:WAIT
H
100: IF P=AGOTO 150
10
110: GOSUB 500 410: l F R=lGPRJNT
. .
I
120: lF
R=3L ET
X=X ..
20103070703010
l
20" :T=T+2:GOTO
J
130 :NEXT R 440
K
1<10 :GOTO
160
420: IF R=2GPR1NT
..
150 :GOSU8 400 20J03C7C7C3CJ0
L
160 : WA 1T 0:6CURSOR 20" : T=T+ J: 60TO
M
C:GPRJNT "0000 440
000000000000"
430: IF R=3GPRlNT
..
N
170: £=£- J:r=F-J 20
i 33F
7E7E3F J
:~
0
!72: lF
X>3 GOTO 600
20"
174: J
F E=0LET
W=
I : 440: PR JNT T
Mole Display Posti·
GOTO 60 450: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
200: 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:PRJNT T {I to 3)
220 : IF R= JIJAJT
\.J:
S40 :RETURN
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 "081078
: ENO
7C7C7Sl000" :
v
GOTO 250
w
Waiting
time
24 0: IF R=3WA1T
\.J:
GPRJ NI "0264/E
x
No. of missed moles
3F3F7E6402"
STATUS I
y
250: RETURN
965
300:A$:lNKEYS
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 !!!
-188-