1 FOR b=0 TO 8:a$=STRING$(17-c*2,42):LOCATE 12+c,11+b:PRINT a$:WINDOW#2,16+b,16+b,7+c,24-c:PRINT#2,a$:c=c+1+2*(b>3):NEXT