clear
for i=1 to 5
space(5-i)
r=i
for j=1 to 2*i-1
k=j
if k>i
r=r-1
chr(64+r)
else
chr(64+k)
endif
endfor
endfo