Builtin cmd 1000000100111011000000000101110000011000
basic code   0000001001110000000000001011100100101011

 DIM FLOAT te, hu
 DIM FLOAT tr(50,2)
 
 DIM INTEGER steps, alldone
 DIM INTEGER dht_pin = 28 ' 15 on the F4
 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
 alldone = 0
 FOR n = 0 TO 50
   tr(n,1) = 0
   tr(n,2) = 0
 NEXT n
 SETTICK 25, endtime,1
 PIN(pn) = 1
 SETPIN pn, DOUT, OC
 PAUSE 2
 PIN(pn) = 0
 PAUSE 1 ' this is the line that determines the start pulse length - 18 for the DHT11
 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) ' this line gives the individual timings
   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

400MHz Colour Maximite 2
MMBasic Version 5.07.00b33
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather

> list "static-bug.bas"
Option Explicit On
Option Default None
Option Base 0

If foo$("hello")         = "*hello*" Then Print "1: PASS" Else Print "1: FAIL"
If bar_1$("*hello*")     = "*hello*" Then Print "2: PASS" Else Print "2: FAIL"
If bar_1$("")            = "*hello*" Then Print "3: PASS" Else Print "3: FAIL"
If bar_2$(foo$("hello")) = "*hello*" Then Print "4: PASS" Else Print "4: FAIL"
If bar_2$("")            = "*hello*" Then Print "5: PASS" Else Print "5: FAIL"

Function foo$(a$)
 foo$ = "*" + a$ + "*"
End Function

Function bar_1$(b$)
 Static static_1$ = b$
 bar_1$ = static_1$
End Function

Function bar_2$(c$)
 Static static_2$ = c$
 bar_2$ = static_2$
End Function

> run "static-bug.bas"
1: PASS
2: PASS
3: PASS
4: PASS
5: FAIL

#include "stdio.h"

int foo(int a) {
   return a + 1;
}

int bar_1(int b) {
   /* Slightly different formulation because you can't */
   /* initialise a static from a non-constant */
   static int static_1 = -1;
   if (static_1 == -1) static_1 = b;
   return static_1;
}

int bar_2(int c) {
   /* Slightly different formulation because you can't */
   /* initialise a static from a non-constant */
   static int static_2 = -1;
   if (static_2 == -1) static_2 = c;
   return static_2;
}

int main() {

   if (foo(10) == 11) {
       printf("1: PASS\n");
   } else {
       printf("1: FAIL\n");
   }

   if (bar_1(11) == 11) {
       printf("2: PASS\n");
   } else {
       printf("2: FAIL\n");
   }

   if (bar_1(0) == 11) {
       printf("3: PASS\n");
   } else {
       printf("3: FAIL\n");
   }

   if (bar_2(foo(10)) == 11) {
       printf("4: PASS\n");
   } else {
       printf("4: FAIL\n");
   }

   if (bar_2(0) == 11) {
       printf("5: PASS\n");
   } else {
       printf("5: FAIL\n");
   }
}

[thwill@PSEUK1383]$ cl "static.c"
Microsoft (R) C/C++ Optimizing Compiler Version 19.14.26433 for x64
Copyright (C) Microsoft Corporation.  All rights reserved.

static.c
Microsoft (R) Incremental Linker Version 14.14.26433.0
Copyright (C) Microsoft Corporation.  All rights reserved.

/out:static.exe
static.obj
[thwill@PSEUK1383]$ ./static.exe
1: PASS
2: PASS
3: PASS
4: PASS
5: PASS

Function bar_1$(b$)
 Static static_1$ = "-1"
 If static_1$ = "-1" Then static_1$ = b$
 bar_1$ = static_1$
End Function

Function bar_2$(c$)
 Static static_2$ = "-1"
 If static_2$ = "-1" Then static_2$ = c$
 bar_2$ = static_2$
End Function

> list "static-bug.bas"
Option Explicit On
Option Default None
Option Base 0

If foo%(10)         = 11 Then Print "1: PASS" Else Print "1: FAIL"
If bar_1%(11)       = 11 Then Print "2: PASS" Else Print "2: FAIL"
If bar_1%(0)        = 11 Then Print "3: PASS" Else Print "3: FAIL"
If bar_2%(foo%(10)) = 11 Then Print "4: PASS" Else Print "4: FAIL"
If bar_2%(0)        = 11 Then Print "5: PASS" Else Print "5: FAIL"

Function foo%(a%)
 foo% = a% + 1
End Function

Function bar_1%(b%)
 Static static_1% = -1
 If static_1% = -1 Then static_1% = b%
 bar_1% = static_1%
End Function

Function bar_2%(c%)
 Static static_2% = -1
 If static_2% = -1 Then static_2% = c%
 bar_2% = static_2%
End Function

> run
1: PASS
2: PASS
3: PASS
4: PASS
5: FAIL

As requested an alternative formulation for the STATIC variable bug reported previously:

   // pulse the pin low for 1mS
   PinSetBit(pin, LATCLR);
   uSec(1000);
   PinSetBit(pin, LATSET);
   uSec(5); // *********  insert short delay here *********

   // wait for the DHT22 to pull the pin low and return it high then take it low again
   writeusclock(0);
   timeout = 400;
   while(PinRead(pin)) if(readusclock() > timeout) goto error_exit;
   while(!PinRead(pin)) if(readusclock() > timeout) goto error_exit;
   while(PinRead(pin)) if(readusclock() > timeout) goto error_exit;

   // now we wait for the pin to go high and measure how long it stays high (> 50uS is a one bit, < 50uS is a zero bit)
   for(r = i = 0; i < 40; i++) {

DHT22 pin, temp!, humidity! [,version]

Function bar_1$(b$)
Static static_1$ = b$
PRINT static_1$
bar_1$ = static_1$
End Function