110 REM TWO LIGHT SENSOR TIMER PROGRAM›112 REM CALIBRATE BOTH SENSORS›115 FOR I=0 TO 1›120 PRINT "TURN ON FLASHLIGHT AND ADJUST THE"›130 PRINT "POTENTIOMETER ";I+1;" TILL THE MESSAGE JUST"›140 PRINT "CHANGES FROM OFF TO ON›150 PRINT :PRINT "PRESS X TO CONTINUE"›155 FOR J=1 TO 1000:NEXT J›160 A=STICK (0)›162 IF I=1 THEN 174›164 IF A=15 THEN PRINT "OFF"›166 IF A=13 THEN PRINT "OFF"›168 IF A=14 THEN PRINT "ON "›170 IF A=12 THEN PRINT "ON "›172 GOTO 190›174 IF A=15 THEN PRINT "OFF"›176 IF A=14 THEN PRINT "OFF"›178 IF A=13 THEN PRINT "ON "›180 IF A=12 THEN PRINT "ON "›190 REM CHECK IF X KEY PRESSED›200 IF PEEK(764)=22 THEN 220›210 GOTO 160›220 REM CLEAR LAST KEYSTROKE›230 POKE 764,255›240 NEXT I›250 PRINT "BREAK BEAM 1 TO START TIMER"›260 REM CHECK FIRST SENSOR TILL TRIGGERED›270 IF STICK(0)<>13 THEN 270›280 REM START TIMER›290 POKE 18,0:POKE 19,0:POKE 20,0›300 REM CHECK SECOND SENSOR UNTIL TRIGGERED›310 IF STICK(0)=14 THEN 320›315 GOTO 310›320 PRINT "TIME IS ";((PEEK(18)*255*255)+(PEEK(19)*255)+(PEEK(20)))/60;"SECONDS"›