5 CLS
10 ON TIMER(.01) GOSUB 1000
20 TIMER ON
30 WHILE 1:LOCATE 10,1
40 C=-1:IF 1 THEN C=7:COLOR C: PRINT I; ELSE PRINT "NO1";
50 C=-1:IF 0 THEN PRINT "NO2" ELSE C=7:COLOR C : PRINT I;
60 REM play "p4"
100 I=I+1: WEND
999 END
1000 PRINT "HIT";:RETURN
