DIM FLOAT te, hu
 DIM FLOAT tr(50,2)
 
 DIM INTEGER steps, alldone
 DIM INTEGER dht_pin = 28
 DO
   DHT22 dht_pin,te,hu
   PRINT te,hu
   PAUSE 2000
   dht11 dht_pin,te,hu
   PRINT te,hu
   PRINT
   PAUSE 5000
 LOOP
 
SUB dht11 pn, tem, hum
 LOCAL INTEGER n, x = 1
 LOCAL INTEGER repl(5)
 LOCAL reply$
 steps = 0
 FOR n = 0 TO 50
 repl(n) = 0
 SETTICK 25, endtime,1
 PIN(pn) = 1
 SETPIN pn, DOUT, OC
 PAUSE 2
 PIN(pn) = 0
 PAUSE 18 ' this is the line that determines the start pulse length
 PIN(pn) = 1
 
 SETPIN pn, INTL, tick
 DO
 LOOP UNTIL alldone = 1
 SETTICK 0,1,1
 SETPIN pn, OFF
 FOR n = 1 TO 49
   IF tr(n+1,1)= 0 THEN EXIT FOR
   ' print  (tr(n+1,1)-tr(n,1))*1000, tr(n,1)
   IF (tr(n+1,1)-tr(n,1)) > 0.1 THEN
     reply$ = reply$ +"1"
   ELSE
     reply$ = reply$ + "0"
   ENDIF
 NEXT n
 FOR n = 0 TO 4
   repl(n) = VAL("&b"+MID$(reply$,n*8+x,8))
 NEXT n
 hum = repl(0)*256+repl(1)
 IF hum > 32767 THEN hum = hum - 65536
 hum = hum/10
 tem = repl(2)*256+repl(3)
 IF tem > 32767 THEN tem = tem - 65536
 tem = tem/10
 PRINT reply$
 PRINT repl(0),repl(1),repl(2),repl(3),repl(4)," ch_sum ";(repl(0)+repl(1)+repl(2)+repl(3)) AND 255
END SUB
 
SUB tick
 tr(steps,1) = TIMER
 steps = steps + 1
END SUB
 
SUB endtime
 alldone = 1
END SUB

FOR n = 0 TO 50
   tr(n,1) = 0
   tr(n,2) = 0
 next n