IchigoJam IoT Temp Sence ADT7410

10 @ARUN'IoTｷｯﾄ
20 SWITCH 1,10
30 WAIT 60:CLS
40 ?"IoTｷｯﾄ"
50 SWITCH1,10
100 POKE#700,0,0
110 R=I2CW(#48,#700,1)
115 R=I2CR(#48,#702,2)
120 R=I2CW(#4B,#700,1)
125 R=I2CR(#4B,#704,2)
130 T=PEEK(#702)<<8+PEEK(#703):U=PEEK(#704)<<8+PEEK(#705)
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;"    "
150 WAIT 60
160 GOTO 100