10 PRINT:PRINT:PRINT"How fast are your reactions?  Driving is just one area of life where it pays to
20 PRINT"be alert.  This little routine (yes - it is little - just six lines of BASIC)
30 PRINT"will test your reactions... and you might like to compete with your family and
40 PRINT"friends to see who is fastest.":PRINT
50 PRINT"The rules - when the computer bleeps, press any key.  You will then be given an
60 PRINT"approximate timing, in thousandths of a second.  Timings are approximate, but are
70 PRINT"remotely accurate.":PRINT
80 PRINT"You are warned that fast reaction speeds are no excuse for fast driving - neither
90 PRINT"tyres or road surfaces have fast reaction speeds!  You are also warned that pressing
100 PRINT"the keys hard will harm your computer.  If you use the ENTER key, you should find
110 PRINT"that you can press it and stop the timer without any sound coming from the key and
120 PRINT"thus without any harm to the computer.":PRINT
130 PRINT"Having pressed your key, a random timer will cause the machine to bleep again 
140 PRINT"within ten seconds or so.  Press STOP at this stage to finish using":PRINT 
150 PRINT"Press any key when you're ready to begin.":z$=INPUT$(1)
160 PRINT:PRINT"Wait..."
999 OPTION RUN
1000 FOR b=1 TO 3000:NEXT:a=RND*3000:FOR b=1 TO a:NEXT
1010 IF INKEY$=CHR$(3) THEN GOTO 25000
1020 PRINT CHR$(7);
1030 FOR a%=0 TO 4999:IF INKEY$="" THEN NEXT
1035 IF a%=0 THEN PRINT "0 seconds... I think you found out how to cheat!":GOTO 1000
1040 PRINT "Timing -";USING "##.###";(CDBL(a%)/500);:PRINT" seconds.":RANDOMIZE a%:GOTO 1000
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN z$=INKEY$:OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION