10 CLS
20 X=15:S=0
30 LOCATE 9,24:PRINT"H           H";
35 REM LOCATE X,10:PRINT" "
40 LOCATE 10+RND*11,24:PRINT"+"
50 P=PEEK(X,10)
60 IF P<>32 THEN PRINT"SCORE=";S:END
62 I$=INKEY$
64 IF I$="j" THEN X=X-1
66 IF I$="k" THEN X=X+1
70 LOCATE X,10:PRINT"U"
75 REM FOR I=0 TO 1500:NEXT:GOTO 80
76 B=ZTIME
77 A=(INT(B/100)*100+100)
78 IF (ZTIME<=AANDZTIME>=B) THEN GOTO 78
80 S=S+1:GOTO 30