'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