Here is a more sophisticated routine which emulates ECB's TIMER via the USR() function.
e.g.
"PRINT USR(A$)" is the same as "PRINT TIMER".
"T=USR(A$)" is the same as "T=TIMER".
"A=USR(32767)" is the same as "TIMER=32767".
Code: Select all
10 'TIMER FUNCTION V1.0
20 'FOR TANDY COLOR BASIC
30 'BY STEVE EVANS
40 '2ND APRIL, 2012
50 '
60 IF PEEK(32768)+PEEK(32769)=157 THEN END
70 CLEAR200,PEEK(116)*256+PEEK(117)-88
80 START=PEEK(116)*256+PEEK(117)-87
90 CH=0:FOR I=0 TO 88:READ A:CH=CH+A:POKE START+I,A:NEXT
100 IF CH=8514 THEN EXEC START ELSE PRINT"ERROR IN DATA LINES."
110 END
120 '
130 'PRINT TIMER > PRINT USR(A$)
140 'T=TIMER > T=USR(A$)
150 'TIMER=32767 > A=USR(32767)
160 '
170 DATA 26,80,48,141,0,74,188,1,13,39,23,252,1,13,191,1,13,237,7,48,141,0,14
180 DATA 191,1,19,182,255,3,138,1,183,255,3,28,175,57,150,6,38,18,134,40,158,166
190 DATA 48,31,161,132,38,250,159,166,189,183,61,159,118,57,158,118,159,82,15,80,15
200 DATA 81,15,6,15,99,15,84,198,160,215,79,126,186,28,158,118,48,1,159,118,126,169,179