10 'GOTO 100:'DS1307 20 H=0:M=0 30 INPUT "H 0-23>",H 40 INPUT "M 0-59>",M 50 A=(M/10)*16+(M%10) 60 B=(H/10)*16+(H%10) 70 POKE #700,0,0,A,B,3,1,1,#20 80 R=I2CW(#68,#700,1,#701,7) 90 'READ 100 POKE #700,0 110 R=I2CR(#68,#700,1,#701,7) 120 FOR I=3 TO 1 STEP -1 130 ?HEX$(PEEK(#700+I)); 140 IF I<>1 THEN ?":"; 150 NEXT 160 WAIT 60:? 170 GOTO 100
こちらもナイス電子工作。やはり回路の外付けが簡単にできるのはIchigoJamの魅力のひとつですね。