10 POKE#EF*8+0,`01110000
20 POKE#EF*8+1,`01111100
30 POKE#EF*8+2,`01111110
40 POKE#EF*8+3,`01110000
50 POKE#EF*8+4,`01000000
60 POKE#EF*8+5,`01000000
70 POKE#EF*8+6,`01000000
80 POKE#EF*8+7,`11110000
90 CLS:CLV
100 H=1:B=3:S=0:P=13:R=0:Z=0
110 F=RND(17)+8
120 IFF<11R=1
130 IFF>10R=2
140 IFF>14R=3
150 IFF>17R=4
160 IFF>22R=5
180 IFH<18LC6,3:?"HOLE:";H;" PAR:";R;" : SCORE:";Z
181 IFH>18END
182 LC6,4:?"SHOT:";S
185 LC6,5:?"POWER:"
190 LCF,14:?CHR$(#EF)
200 LCB,14:?"."
210 IFINKEY()<>32GOTO210
220 FORA=1TO10
230 LCP,5:?"ﾛ";
240 WAIT8
250 IFINKEY()=32A=10:NEXT:GOTO315
260 P=P+1:NEXT
270 FORA=11TO1STEP-1
280 LCP,5:?" "
290 WAIT8
300 IFINKEY()=32A=1:NEXT:GOTO315
310 P=P-1:NEXT
311 IFINKEY()<>32P=13:GOTO210
315 S=S+1:Q=P-13
320 FORA=1TOQ
330 LCB,14:?" ":B=B+1
340 LCB,14:?".":WAIT3
345 LCF,14:?CHR$(#EF)
350 NEXT
370 FORA=13TO23
380 LCA,5:?" ":P=13
390 NEXT
400 IFB>FLC14,10:?"BOGGY"ELSEGOTO440
405 WAIT50:LCB,14:?" ":LC13,10:?"      ":B=B-Q
440 IFB<>FGOTO180
450 B=3:H=H+1:LCF,14:?" "
460 Z=Z+S-R:S=0
500 GOTO110