set talk off for i=1 to 7 if(i<5) ?space(6-i) for j=1 to 2*i-1 ??"*" endfor else ?space(i-2) for m=1 to 2*(7-i+1)-1 ??"*" endfor endif endforset talk on
