10 LOADBIN "/disc/binaries/wait/wait"
20 ON KEY# 8,"quit" GOTO 995 
30 now=TIME 
40 CALLBIN "wait" (1000) 
50 DISP "got a key",TIME-now
60 GOTO 40 
100 DISP "got a key",TIME-now
995 CALLBIN "unwait" (0) 
999 SCRATCHBIN "wait" 
1000 END