我现在好像知道了一点，因为我也干过操作。
PROC PINGMIAN(REAL CHANG,REAL KUAN,REAL FANHUI,REAL ANJU_Y,REAL ANJU_Z,REAL SHANGMIAN,REAL XIAMIAN,REAL YULIANG，REAL CHISHEN,REAL CHIKUAN,REAL JINGEI_SHEN,REAL JINGEI_PING,REAL YICHUZ,REAL YICHUY,REAL YI_X,REAL YI_Y,REAL ZHUANJIAO)
是呼叫铣平面子程序（实数 长，实数 宽，实数 返回，实数 间距?Y， 实数 anjuZ、、、、、、）

等我把“IF $P_S==0 GOTOF AL1”搞明白了再来和你交流。你最好把程序全部贴出来。这样我们好前后搭配看来分析。