rem 発振器 TICK()＝0.01秒を分周します。HとLの時間と出力回数を指定します。
rem H=5とすると　５✕0.01秒＝0.05秒になります。
rem S=0 でH>Lの順で出力します。
170 rem 
174 rem OSC H,L,cnt h=high time(10msec*H),C=continius loop
176 rem H=HIGH time , L=LOW time , C=Loop num. ,S=0 H Fast H->L S#0 L->H
180rem 2024/0808
182 rem
200 INPUT "High time=" H
210 IF H<1 H=1
220 INPUT "Low=" L
240 IF L<1 L=1
260 INPUT "CNT num.=" C
270 INPUT "H Fast(yes is ENT, No is 1 )=" S
274 rem
280 FOR D=1 TO C
300 rem
310 IF S=0 GOSUB 700;GOSUB 800
320 IF S#0 GOSUB 800;GOSUB 700
330 GOTO 600
350 FOR E=1 TO H
360 A=TICK()
370 IF A=B; OUT 5 HIGH; GOTO 360
380 B=A
390 NEXT E
400 REM
450 FOR F=1 TO L
460 A=TICK()
470 IF A=B; OUT 5 LOW; GOTO 460
480 B=A
490 NEXT F
600 NEXT D
620 print SIZE()
630 STOP
640 REM
700 FOR E=1 TO H
760 A=TICK()
770 IF A=B; OUT 5 HIGH; GOTO 760
780 B=A
790 NEXT E
794 RETURN
800 REM
850 FOR F=1 TO L
860 A=TICK()
870 IF A=B; OUT 5 LOW; GOTO 860
880 B=A
890 NEXT F
900 RETURN