47 F1 TIMER1_1.0

F1

100 'F1 TIMER1_1.0
110 CLS
120 I=1:M=0:E=0
130 CLT :GSB @D
150 LC10,10:?"INTERVAL"
160 LC10,12:?"TIME PAST"
170 LC10,14:?"EVENTS"
180 GSB @M:GSB @E
200 GSB @EV
280 FOR J=1 TO 60
282 CLT
290 FOR K=1 TO 6
310 T=TICK()
320 IF T>3600*K M=M+1:GSB @M:GSB @EV:GOTO 330
325 GSB @T:GOTO 310
330 NEXT
340 NEXT
360 @EV:'EVENT
362 E=E+1:GSB @E
365 LED1:WAIT 30:LED0
367 OUT6,1:WAIT 60
369 OUT6,0:WAIT 60:RTN
380 @T
390 LC20,20:? TICK();" ":RTN
395 @I
400 LC20,10:?I:RTN
420 @M
430 LC20,12:?M:RTN
440 @E
445 LC20,14:?E:RTN
450 @D
455 GSB @I:GSB @M:GSB @E:GSB @T:RTN