'DS1620 Demp
  dim temp

  const dat 0
  const clk 1
  const rst 2

  output clk
  output rst
  low rst
  high clk



loop:
   
   gosub gettemp
   print temp
   pause 100
   goto loop


gettemp:
   high rst
   pauseus 50
   output dat
   shiftout dat,clk,8,238
   low rst

   high rst
   pauseus 50
   output dat
   
   shiftout dat,clk,8,170
   input dat
   shiftin dat,clk,8,temp
   low rst

   temp = temp/2
   return