1 FOR j=0 TO 18:b$="":READ a:FOR i=0 TO 8:a$=CHR$(32-10*((a AND 2^(8-i))>0)):PRINT a$;:b$=a$+b$:NEXT:PRINT"*"b$:NEXT:DATA,2,81,48,11
4,9,4,146,73,511,73,146,4,9,114,48,81,2,
