他给你的应该是个子程序。我帮你解释下：

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)
这句是解释子程序中的相应参数。 这里括号中的参数都是子程序和主程序相互传递的时候需要用到的。


DEF REAL QUCHU

DEF INT DAOSHU_SHEN

DEF INT DAOSHU_PING

DEF REAL QIDAO_X

DEF REAL ZHUDAO_X

DEF REAL T_R4

DEF REAL KUAN_

DEF INT JISHU_SHEN,JISHU_PING

DEF FRAME FRA_

DEF INT _G6,_G14,_G15,_G10

DEF REAL ZHONG

这上边的都是 定义的 实数 和整数 两种类型的相应参数。这些参数什么用处，就要问编程序的人了。


IF $P_S==0 GOTOF AL1
这句我也不清楚是什么。 不好意思。呵呵
IF $P_TOOL==0 GOTOF AL2

这句 是 如果刀长等于0的话，那么向下收索到 AL2 段落。。
。。。

我也是新手，希望可以帮到你。