17 lines
437 B
QBasic
17 lines
437 B
QBasic
|
10 REM TIMER STOP queues events, TIMER ON fires pending
|
||
|
|
20 COUNT = 0
|
||
|
|
30 ON TIMER(1) GOSUB 200
|
||
|
|
40 TIMER STOP
|
||
|
|
50 T0 = TIMER
|
||
|
|
60 IF TIMER - T0 < 2 THEN 60
|
||
|
|
70 PRINT "Before TIMER ON: count ="; COUNT
|
||
|
|
80 TIMER ON
|
||
|
|
90 REM Small busy-wait for pending event to fire
|
||
|
|
95 FOR I = 1 TO 10000: NEXT I
|
||
|
|
100 PRINT "After TIMER ON: count ="; COUNT
|
||
|
|
110 TIMER OFF
|
||
|
|
120 IF COUNT >= 1 THEN PRINT "PASS" ELSE PRINT "FAIL"
|
||
|
|
130 END
|
||
|
|
200 COUNT = COUNT + 1
|
||
|
|
210 RETURN
|