level 10
19970314hx
楼主
*main1.prg*
clear
as=asc("A")-1
for I=1 to 3
for J=1 to 2*i-1
@I,20-I+J say chr(as+2*I-1)
endfor
endfor
return
2014年12月14日 06点12分
1
clear
as=asc("A")-1
for I=1 to 3
for J=1 to 2*i-1
@I,20-I+J say chr(as+2*I-1)
endfor
endfor
return
