'You must have the c with the value of the charicter that you want
'to cut up. After it ends, d$ has new value.


1
d$="00000000"
if c=>128 then mid$(d$,1,1)="1":c=c-128
if c=>64 then mid$(d$,2,1)="1":c=c-64
if c=>32 then mid$(d$,3,1)="1":c=c-32
if c=>16 then mid$(d$,4,1)="1":c=c-16
if c=>8 then mid$(d$,5,1)="1":c=c-8
if c=>4 then mid$(d$,6,1)="1":c=c-4
if c=>2 then mid$(d$,7,1)="1":c=c-2
if c=>1 then mid$(d$,8,1)="1":c=c-1
return