10CLS :CLEAR :RANDOMIZE
20SP=35
30S= PEEK &HFF:E= PEEK &HFE
40H=E*256+S
50PRINT "-- KEY ATACK --"
60PRINT "HIGH:"; STR$ H
70PRINT "PUSH [SPACE] TO START"
80PRINT "PUSH [C] TO CLEAR SCORE"
90CALL 48381:KY$= INKEY$
100IF KY$<>" " IF KY$="C" GOTO *CLR ELSE 90
110DIM M$(23,5)*1
120FOR I=0 TO 5
130FOR J=0 TO 23
140IF RND 2=1 LET M$(J,I)="#" ELSE M$(J,I)=" "
150PRINT M$(J,I);
160NEXT :NEXT
170FOR J=1 TO 1000:NEXT
180FOR I=0 TO 5
190FOR J=0 TO 23
200LOCATE J,I
210PRINT "+"
220FOR W=0 TO SP
230IF INKEY$ <>"" LET K=1
240NEXT
250LOCATE J,I
260IF (K=1 AND M$(J,I)=" ") OR (K=0 AND M$(J,I)="#") PRINT "*":S=S-3:F=1:B=1
270IF K=1 AND M$(J,I)="#" PRINT "O":S=S+2:F=1
280IF F=0 PRINT " "
290F=0:K=0:NEXT :NEXT
300IF B=0 PRINT "PERFECT!! +100":S=S+100
310PRINT "SCORE:"; STR$ S
320FOR J=1 TO 2000:NEXT
330SP=SP-10:B=0
340IF SP>4 GOTO 120
350PRINT "HIGH :"; STR$ H
360IF H<S GOSUB *REC
370CALL 48381
380GOTO 10
390*REC PRINT "NEW RECORD"
400POKE &HFE,S\256,S MOD 256:RETURN
410*CLR POKE &HFE,0,0:PRINT "* SCORE CLEAR *"
420CALL 48381:GOTO 10