48 F２ TIMER2_1.0

F2

100 'F2 TIMER2_1.0
110 CLS
120 I=10:M=0:E=0:LED0
130 CLT :GSB @D
150 LC10,10:?"INTERVAL"
160 LC10,12:?"TIME PAST"
170 LC10,14:?"EVENTS"
180 GSB@M:GSB@E
185 GSB @EV
190 FOR J=1 TO 60
200 FOR K=1 TO 2
210 CLT
220 IF TICK()=3600 M=M+1:GSB @M:GOTO 240
230 GSB @T:GOTO 220
240 IF TICK()=7200 M=M+1:GSB @M:GOTO 260
250 GSB @T:GOTO 240
260 IF TICH()=10800 M=M+1:GSB @M:GOTO 280
270 GSB @T:GOTO 260
280 IF TICK()14400:M=M+1:GSB @M:GOTO 300
290 GSB @T:GOTO 280
300 IF TICK()=18000:M=M+1:GSB @M:GOTO 320
310 GSB @T:GOTO 300
320 NEXT
330 GSB @EV0
340 NEXT
360 @EV:'EVENT
370 E=E+1:GSB @E
380 LED1:WAIT 30:LED0
390 OUT6,1:WAIT 60
400 OUT6,0:WAIT 60:RTN
420 @T
430 LC20,20:? TICK();" ":RTN
440 @I
450 LC20,10:?I:RTN
460 @M
470 LC20,12:?M:RTN
480 @E
490 LC20,14:?E:RTN
500 @D
510 GSB @I:GSB @M:GSB @E:GSB @T:RTN