CLEAR
INPUT "請輸入三角形的邊長:" TO N
*用INPUT命令輸入邊長存放到變量N中
FOR I=N TO 1 STEP -1
*循環變量I控制行,從N到1
?SPACE(20-I) &&輸出20-I個空格
FOR J=1 TO 2*I-1
*循環變量J控制列,輸出2*I個*
?"*"
ENDFOR
? &&換行
RETURN