1 B=61*A+&530C:RETURN 
5 " "A=1
10 "A"Z=0:WAIT 80:PRINT " /OKUYA KUN/  ",A
20 GOSUB 1:WAIT B:CALL &5252:WAIT 80:IF ZPRINT "GAME OVER!":END 
30 A=A+1:PRINT "GOAL!",A:IF A<17THEN 20
40 PRINT "ALL CLEAR!":GOTO 5
50 "M"INPUT "1-16 ?";A
60 IF A>16OR A<1THEN 50
70 GOSUB 1:WAIT B+1:CALL &524D:POKE B,PEEK &571C