CLEAR
FOR I=1 TO 5
  ?SPACE(10-I)     &&换行并确定起始位置
  FOR J=1 TO 2*I-1
    ??CHR(64+I)    &&输出内容
  ENDFOR
ENDFOR
FOR I=4 TO 1 STEP -1
   ?SPACE(10-I)
   FOR J=1 TO 2*I-1
     ??CHR(64+I)
  ENDFOR
ENDFOR
RETURN