110 REM TIMER PROGRAM
120 PRINT "TURN ON FLASHLIGHT AND ADJUST THE"
130 PRINT "POTENTIOMETER TILL THE MESSAGE JUST"
140 PRINT "CHANGES FROM OFF TO ON
150 PRINT "PRESS X TO CONTINUE"
155 FOR J=1 TO 2500:NEXT J
170 IF STICK(0)=15 THEN PRINT "OFF"
175 IF STICK(0)=14 THEN PRINT "ON�
180 REM CHECK IF X KEY PRESSED
190 IF PEEK(764)=22 THEN 215
210 GOTO 170
212 REM CLEAR OUT PREVIOUS KEYSTROKE
215 POKE 764,255
220 PRINT "BREAK BEAM TO START TIMER"
230 IF STICK(0)=14 THEN 230
240 POKE 18,0:POKE 19,0:POKE 20,0
250 IF STICK(0)=15 THEN 250
260 IF STICK(0)=14 THEN 260
270 PRINT "TIME IS ";((PEEK(18)*255*255)+(PEEK(19)*255)+(PEEK(20)))/60;"SECONDS"