0  CLS:SCREEN 1:COLOR 2,1,1
10 DIM S$(7):GOSUB 10000
20 FOR R=0 TO 2 STEP 1:FOR M=0 TO 2 STEP 1:FOR L=0 TO 7 STEP 1
30 T=LEN(S$(L)):FOR D=0 TO T STEP 1
40 P$=S$(L):PX=D+5:PY=L+1
50 X=(PX+(7*M))-1:Y=(PY+(7*R))-1
60 IF M>0 AND M<=2 THEN:X=X-M
70 IF R>0 AND R<=2 THEN:Y=Y-R
80 LOCATE X,Y:IF MID$(P$,D+1,1)="1" THEN:PRINT"*"
90 IF M>0 AND M<=2 THEN:X=X-M
100 NEXT D:NEXT L:NEXT M:NEXT R
9000 IF NOT INKEY$=CHR$(13) THEN GOTO 9000:ELSE:END
10000 S$(0) = "0001000":S$(1) = "0010100":S$(2)="0100010":S$(3)="1000001":S$(4)="0100010":S$(5) = "0010100":S$(6) = "0001000":RETURN