OUT2,3,4でLEDイルミネーションを点滅させるプログラムです。
LEDイルミネーションはトランジスタアレイを利用してichigojamと別の電源で点灯させました。
BTNにCDSで明るさを検知する回路を接続して明るいときと真っ暗なときは自動的にLEDを消します。
5 'イルミネーション 10 W=1:X=20:VIDEO1,16 20 @MA 40 ?:?"フワットヒカリマス" 50 FORJ=0TO5 60 GOSUB@PW 70 NEXT 80 GOSUB@OU 90 GOTO@MA 100 @PW 110 FOR I=0 TO 100 115 GSB@DO 120 PWM4,I*20 130 PWM3,(100-I)*20 140 WAITW 150 PWM2,I*RND(21) 160 NEXT 170 FOR I=0 TO 100 180 PWM4,2000-I*20 190 PWM3,I*20 200 PWM2,2000-I*RND(21) 210 WAIT W 220 NEXT 230 RTN 240 @OU 250 ?:?"チカチカヒカリマス" 260 FOR I=0TO10 265 GSB@DO 270 OUT0 280 WAIT X 290 OUT4,RND(2):OUT3,RND(2):OUT2,(RND(3)>0) 300 WAIT X 310 NEXT 320 RTN 330 @DO 340 IF ANA()<560OR ANA()>885 OUT2,0:OUT3,0:OUT4,0:LC0,6:?"コノアカルサテ゛ハケシマス";:GOTO@DO 350 RTN