10 REM ON TIMER event trapping test
20 COUNT = 0
30 ON TIMER(1) GOSUB 100
40 TIMER ON
50 T0 = TIMER
60 IF TIMER - T0 < 3 THEN 60
70 TIMER OFF
80 PRINT "Timer fired"; COUNT; "times"
90 IF COUNT >= 2 THEN PRINT "PASS" ELSE PRINT "FAIL"
95 END
100 COUNT = COUNT + 1
110 RETURN