b = asc(TaValeurString$)
if b >128 then bit1$ "1" : b = b - 128 esle bit1$ = "0"if b >64 then bit2$ "1" : b = b - 64 esle bit2$ = "0"if b >32 then bit3$ "1" : b = b - 32 esle bit3$ = "0"if b >16 then bit4$ "1" : b = b - 16 esle bit4$ = "0"if b >8 then bit5$ "1" : b = b - 8 esle bit5$ = "0"if b >4 then bit6$ "1" : b = b - 4 esle bit6$ = "0"if b >2 then bit7$ "1" : b = b - 2 esle bit7$ = "0"if b >1 then bit8$ "1" esle bit8$ = "0"