IchigoJam IoT Sensor

10 @ARUN'IoTｷｯﾄ
20 SWITCH 1,10
30 WAIT 60:CLS
40 ?"IoTｷｯﾄ"
50 SWITCH1,10
100 POKE#700,0,#5E
110 R=I2CW(#48,#700,1):'temp1
115 R=I2CR(#48,#702,2)
120 R=I2CW(#4B,#700,1):'temp2
125 R=I2CR(#4B,#704,2)
126 R=I2CW(#40,#701,1)
127 R=I2CR(#40,#706,2)
130 T=PEEK(#702)<<8+PEEK(#703):U=PEEK(#704)<<8+PEEK(#705)
140 D=PEEK(#706)<<4+PEEK(#707)
143 LC 0,0:?"***IoTｴｯｼﾞｷｯﾄ***";
144 LC0,1
145 PRINT "ｵﾝﾄﾞ1= ";T/128;".";(T+6)%128*10/128;"    "
146 PRINT "ｵﾝﾄﾞ2= ";U/128;".";(U+6)%128*10/128;"    "
147 PRINT "ｷｮﾘ  = ";D/64;"  ";
150 WAIT 60
160 GOTO 100
OK