13 lines
274 B
QBasic
13 lines
274 B
QBasic
|
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
|