33 TIMER1

プログラム

100 'TIMER1
110 CLS
120 I=1:M=0:E=0
130 CLT :GSB @D
140 '
150 LC10,10:?"INTERVAL"
160 LC10,12:?"TIME PAST"
170 LC10,14:?"EVENTS"
180 GSB@M:GSB@E
220 '
280 FOR J=1 TO 60
282 CLT
285 '
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
350 '
360 @EV:'EVENT
362 E=E+1:GSB@E
365 LED1:WAIT 60:LED0:RTN
370 '
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

画面