0100 dim i, j, k, c, a$(32), f, f$(16), c$(16), cf, ci, c1
0200 call lcdinit (porta, 20, 4)
0250 call lcdwr ("LM76 Temp Sensor", 0)
0300 call twiinit ()
0400 call lcdcmnd (&b1000000)
0500 rem begin char(0)
0600 call lcddata (&b1110)
0700 call lcddata (&b1010)
0800 call lcddata (&b1110)
0900 call lcddata (&b0)
1000 call lcddata (&b0)
1100 call lcddata (&b0)
1200 call lcddata (&b0)
1300 for k = 5 to 0 step -1
1500 outp &h90, twibuf
1600 outp k, twibuf + 1
1700 call twiio (twibuf, 1, i)
1800 outp &h91, twibuf
1900 call twiio (twibuf, 2, i)
2000 let c1 = inpw(twibuf + 1)
2100 let c1 = swapb(c1)
2150 print k; " ";
2200 let c = c1 / 8
2300 let f = ((c * 9) + 4) / 8 + 320
2400 let a$= dec$(f)
2500 let f$= dec$(f / 10, 3, " ") + "." + dec$(f mod 10, 1, "0") + chr$(128) + "F"
2600 call lcdwr (a$, 40)
2700 call lcdwr (f$, 45)
2800 let f$= dec$(f / 10, 3, " ") + "." + dec$(f mod 10, 1, "0") + chr$(176) + "F"
2900 print "0b"; bin$(c1, 16, "0"),
3000 let a$= dec$(c)
3100 let ci = c / 16
3200 let cf = c mod 16
3300 let cf = (cf * 1000) / 16
3400 let c$= dec$(ci, 3, " ") + "." + dec$(cf, 3, "0") + chr$(128) + "C"
3500 call lcdwr (a$, 20)
3600 call lcdwr (c$, 25)
3700 let c$= dec$(ci, 3, " ") + "." + dec$(cf, 3, "0") + chr$(176) + "C"
3800 print c$, f$
3900 if (k = 0) then goto 4100
3950 delay 500
4000 next k
4100 for i = 1 to 200
4200 delay 10
4300 next
4400 goto 1800