10 DIM B(1,1,1,1,1,1,1,1)
20 FORA7=0TO1:FORA6=0TO1:FORA5=0TO1
30 FORA4=0TO1:FORA3=0TO1:FORA2=0TO1
40 FORA1=0TO1:FORA0=0TO1
50 B(A7,A6,A5,A4,A3,A2,A1,A0)=128*A7+64*A6+32*A5+16*A4+8*A3+4*A2+2*A1+1*A0
60 NEXTA0,A1,A2,A3,A4,A5,A6,A7