49　F3 TIMER3_1.0

F3

100 'F3 TIMER3_1.0
120 CLS:I=30: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
185 GSB @EV
190 FOR J=1 TO 40
200 FOR K=1 TO 6
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 TICK()=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
410 E=E+1:GSB @E
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

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

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