JPWで鮮烈デビューします！！

• 

－光で色づくりMAKER－　　　＠ K.Tanaka_2023.07
5 @ARUN
10 ‘WS_VOL_ROLL
15 PLAY”T200L8O6CEG”
20 CLV:WS.LED24
30 FOR S=0 TO 11
40 R=ANA(1)/10:G=ANA(2)/10:B=ANA(3)/10
50 ? R;”:”;G;”:”;B
60 LET[S32],G,R,B,G,R,B
65 WS.LED24
70 WAIT10
80 IF BTN()=0 GOTO40
90 BEEP:WAIT30
100 NEXT
200 ‘
210 WAIT 10-ABS(ANA(4)-512)/50
220 IF ANA(4)>512 GSB@RT　ELSE GSB@LT
230 WS.LED24
240 GOTO 210
250 @RT
260 FOR R=0 TO 71:[74-R]=[71-R]:NEXT
270 [0]=[72]:[1]=[73]:[2]=[74]
280 RTN
290 @LT
310 [72]=[0]:[73]=[1]:[74]=[2]
320 FOR R=0 TO71:[R]=[R+3]:NEXT
330 RTN