プログラム

100 'F0 INTVL TIMER 1.2
110 OK2:CLS
120 LC2,3:?"INTERVAL TIMER"
130 LC14,22
140 PRINT "I:Interval S:Shot"
150 LC21,10:?"SHOT 0"
160 LC21,3:INPUT "I=",I
170 LC25,3:INPUT "S=",S
180 LC1,10:?"Title: TEST RUN"
190 LC1,13:?"Date: 2022.3.25"
200 OUT 6,1:WAIT15:OUT6,0
210 FOR J=1 TO S
220 FOR K=1 TO I:CLT
230 T=TICK()
240 LC2,22:?T;" "
250 IF T<3600 GOTO 230
260 NEXT
270 LC26,10:?J
280 OUT6,1:WAIT15:OUT6,0
290 NEXT
300 LC21,12:?"DONE":LC20,12:END

f:id:nearbridge2:20220326105930j:plain