Program post site for everyone
２台のIchigoJamを TXD-RXD GND-GNDで接続。
親機のSAVE100-103を子機のSAVE0-3にコピーします。
撮影のため子機の配線は外してあります。
このプログラムはSAVE0に入れておき、ボタンを押しながらスイッチを入れて起動します。
同じことはUSBシリアルI/Fとパソコン・ターミナルソフトでできますが、
親機をモバイルバッテリーで動かすことで小さくまとまりました。
NEW 10 'COPY 20 UART1:CLS:? 30 BEEP10,4:WAIT8 40 BEEP10,4:WAIT8 50 FORF=0TO3 60 LC0,-1:?"NEW" 70 S=F*1024:B=#900 80 @L:POKE #8CC,S/256,S%256 90 R=I2CR(80,#8CC,2,B,200) 100 N=PEEK(B)+PEEK(B+1)*256 110 IFN=0GOTO@N 120 ?N;" "; 130 L=PEEK(B+2) 140 FORP=3TO2+L 150 D=PEEK(B+P) 160 IF(D>=32)*(D<>#7F)?CHR$(D); 170 NEXT:?:WAIT30 180 S=S+L+4:GOTO@L 190 @N:CLS:BEEP 200 ?"SAVE";F:WAIT60 210 NEXT:CLS 220 FORI=0TO2 230 BEEP10,4:WAIT8 240 NEXT 250 END SAVE0
