Sakura's IoT Platform beta on IchigoJam / Visiting to Nagano KOSEN
It's a program to send a number when the button is pushed.
1 'SAKURA's IoT beta send test 100 A=0 110 @LOOP 120 IF BTN()=0 CONT 130 C=1:A=A+1:POKE#700,#20,10,C,73,A,A>>8,0,0,0,0,0,0:N=2:GSB@I2C 140 POKE#700,1,0:N=3:GSB@I2C:IF PEEK(#782)=128 POKE#700,#24,0:N=2:GSB@I2C 150 GOTO @LOOP 900 @I2C:'use M,C,I 910 M=PEEK(#701)+2 920 C=0:FOR I=0 TO M-1:C=C^PEEK(#700+I):NEXT:POKE#700+M,C 930 IF I2CR(79,#700,M+1,#780,N+1) ERR 940 C=0:FOR I=0 TO N-1:M=PEEK(#780+I):C=C^M:?M;" ";:NEXT:? 950 IF C!=PEEK(#780+N) OR PEEK(#780)!=1 ERR 960 RTN
You can access the Sakura's IoT Platform with simple command.
For example this code to check the power of radio waves.
I went to Nagano KOSEN. Great sky!
Nagano KOSEN students made prototypes with radio waves. They will become products by Sakura's IoT Platform!
Thank you! Stay creative!