1 ! example of using the on_timer binary routine
2 !
10 LOADBIN "/disc/binaries/timer/timer"
15 ON KYBD t,"~027T" GOSUB 100 
20 ON KEY# 8,"quit" GOTO 995 
30 now=TIME 
40 CALLBIN "on_timer" (1000) 
50 GOTO 50 
100 DISP "got a key",TIME-now
110 RETURN 
995 CALLBIN "offtimer" (0) 
999 SCRATCHBIN "timer" 
1000 END