*
***
*****
*******
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
endif
set talk on