求一个三角形的面积，程序时先输入三角形的一条边长，其他两边比输入的边长长1倍和2倍，求计算面积前先要检查边长是否合理。
CLEAR MEMO
INPUT”请输入三角形一边长”T0 B
[12]
”B=” ,B
[13]
D0 AREA [14]
‘三角形面积：’S1
PROCEDURE ABC &&过程ABC
IF B+B+DB+2
RETURN
ELSE
WAIT “输入的三角形边长值不合格!”
CANCEL
ENDIF
RETURN
PROCEDURE AREA SA过程AREA
[15]
SS=(X+Y+Z)/2
S1=SQRT(SS*(SS-X)*(SS-Y)*(SS-Y))
RETURN