接続：
5V – VCC
GND – GND
SDA – SDA
SCL – SCL

プログラム
1 R=0:G=0:B=0:K=5:Y=60:Z=30:F=135:C=165:S=60:CLO
2 IFIN(2)=0 GOTO3 ELSEGOTO60
3 OUT0:POKE#800,#81,#C0:?I2CW(#29,#800,2)
4 POKE#800,#80,3:?I2CW(#29,#800,2)
5 POKE#800,#94:U=I2CR(#29,#800,1,#800,8)
6 R=[1]:G=[2]:B=[3]:M=G
7 IFR>M M=R
8 IFB>M M=B
9 M=M3/5:N=0 10 IFR>M N=N+4 11 IFG>M N=N+2 12 IFB>M N=N+1 13 IFN!=4 GOTO20 14 OUT1:PLAY”E2″:WAITY:[K]=4:K=K+1:LED0 20 IFN!=2 GOTO30 22 OUT1:PLAY”G2″:WAITY:[K]=2:K=K+1:LED0 30 IFN!=1 GOTO40 32 OUT1:PLAY”99 K=5 52 OUT0:WAITY:GOTO2 60 OUT1:IF[5]=0 GOTO102 61 I=5 62 IFIN(2)=0 GOTO100 63 IFI>=K GOTO100 64 IF[I]!=4 GOTO70 65 CLO:OUT1:WAITY:PWM3,C:PWM2,F:WAITY9
70 IF[I]!=2 GOTO80
72 CLO:OUT1:WAITY:PWM3,C:PWM2,C:WAITZ:CLO
80 IF[I]!=1 GOTO90
82 CLO:OUT1:WAITY:PWM3,F:PWM2,F:WAITZ:CLO
90 IF[I]!=5 GOTO93
92 CLO:OUT1:WAITY:PWM3,F:PWM2,C:WAITY*9
93 WAITY:I=I+1:GOTO62
100 FORJ=5TOK:[J]=0:NEXT
102 K=5:CLO:WAITY:GOTO2