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


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