1 REM demo of TIMERS.CO 2 REM by Tracy Allen 76670,326 3 REM demos 8 independent timers 4 REM press key 1-8 to zero timer 1-8 5 REM TIMER.CO maintains 49 timers 6 REM that run in the background. 7 REM Timers continue to run 8 REM the computer does, BASIC TEXT etc 9 REM 10 LOADM"timers" 15 CALL 62750'A 20 CALL 62750'E 25 DIM X%(8) 30 CLS 35 PRINT"press number 1-8, or 9 to exit" 60 PRINT@80,"";:FORN%=1TO8 65 CALL 62750,N%,VARPTR(X%(I))'G 70 PRINTUSING"##########";X%(I); 75 NEXT N% 80 N%=VAL(INKEY$) 85 IF (N%>0) AND (N%<9) THEN CALL62750,N%,0'S 90 IFN%=9THENSTOP 95 GOTO 60 100 REMarks... 115 REM L15 zeros all timers 120 REM L20 enables timer hook 160 REM here we use 8 of the 49 timers 165 REM L65 gets the time from N%th timer 170 rem L70 prints time from N%th timer 175 REM L75-L85 get user keypress 185 REM if a number, zero that timer 190 REM loop around