请教楼主：以下NC程序如何阅读？属于何种语言？感谢！！！
程序如下：
PROC DIACALC1
;---------------------------------------------------------------
;Copyright (C) Techint 1998 All Rights Reserved. Confidential
;---------------------------------------------------------------
;$Revision:840d.1.0
;$Author:P.CASSANI
;$Date:14/01/99
;RollDiameterAtStageBeginning is Diameter of Phase resetted when phase is changed

Case MD_CaliperDiamReadPosition OF 0 GOTOF Central 2 GOTOF Headstock 1 GOTOF Footstock DEFAULT GOTOF ErrorData
ErrorData:
LOOP
MSG("$8000041") ; Wrong value in MD_DiameterPosition Parameter
STOPRE
M00
ENDLOOP

;Stock Removal calculated in central Position
Central:
IF ((RollDiameterAtStageBeginning==0) and (RollDiameterCenter>0))
RollDiameterAtStageBeginning=RollDiameterCenter
ENDIF
IF ( RollDiameterCenter > 0 )
IF ( ActRollStartDiam>0 )
ActCycleStockRemoval=ActRollStartDiam-RollDiameterCenter
ELSE
ActRollStartDiam=RollDiameterAtStageBeginning
ENDIF
ENDIF
;Calcola l'asportazione per fase
ActGrindStageStockRemoval=RollDiameterAtStageBeginning-RollDiameterCenter
GOTOF ENDROUTINE

;Stock Removal calculated on Headstock Position
Headstock:
IF ((RollDiameterAtStageBeginning==0) and (RollDiameterHead>0))
RollDiameterAtStageBeginning=RollDiameterHead
ENDIF
IF ( RollDiameterHead > 0 )
IF ActRollStartDiam>0
ActCycleStockRemoval=ActRollStartDiam-RollDiameterHead
ELSE
ActRollStartDiam=RollDiameterAtStageBeginning
ENDIF
ENDIF
ActGrindStageStockRemoval=RollDiameterAtStageBeginning-RollDiameterHead
GOTOF ENDROUTINE

;Stock Removal calculated on Footstock Position
Footstock:
IF ((RollDiameterAtStageBeginning==0) and ( RollDiameterFoot>0 ))
RollDiameterAtStageBeginning=RollDiameterFoot
ENDIF
IF ( RollDiameterFoot > 0 )
IF ActRollStartDiam>0
ActCycleStockRemoval=ActRollStartDiam-RollDiameterFoot
ELSE
ActRollStartDiam=RollDiameterAtStageBeginning
ENDIF
ENDIF
ActGrindStageStockRemoval=RollDiameterAtStageBeginning-RollDiameterFoot
ENDROUTINE:
M17