100 FOR Y=10 TO 19
110   READ A
120   FOR X=1 TO 9
130     C=10*(A MOD 2)+32
140     S$=CHR$(C)+SPACE$(9-X)+"*"+SPACE$(9-X)+CHR$(C)
150     LOCATE 20-Y,X
160     PRINT S$
170     LOCATE Y,X
180     PRINT S$
190     A=A\2
200   NEXT
210 NEXT
220 DATA 511,292,146,64,288,156,24,276,128,0

