10 MODE 1:FOR b=-4 TO 4:LOCATE 12+c,12+b:PRINT STRING$(17-c*2,42):WINDOW#2,20+b,20+b,4+c,21-c:PRINT#2,STRING$(19,42):c=1+c+2*(b>-1):NEXT