主程序：
N100 R1=728
N200 R17=813
N300 R2=R1*3.14
N400 R18=R17/R1
N500 R3=R2-25
N600 R4=300
N700 R5=390
N800 R6=(R4/R5)*R18
N900 R7=(R3/R4)*60
N1000 R8=R9-20
N1100 R9=1402.115
N1200 R10=500
N1300 R11=207.247
N1400 R12=R11-60
N1500 R13=153.627
N1600 R14=-2.0
N1700 R15=45.827
N1800 R16=40
N1900 R19=4
N2000 R20=350
N2100 G90G94
N2200 X=R14F500
N2300 Y=R16F500
N2400 B=R8F2000
N2500 R101=0
N2600 R103=0
N2700 Z=R11F1500
N2800 Y=R13F500
N3000 B=R9F1500
N3200 X=R15F200
N3300 G4F2
N3400 M60 ；Y轴伸缩气缸伸出
N3500 G4F2
N3600 M50M52 ；X轴跟踪气缸伸出 Y轴跟踪气缸伸出
N3700 G4F2
N3800 GXV ;X向位移传感器检测初始位置
N3900 GYV ；Y向位移传感器检测初始位置
N4000 G4F2
N4100 H=R20
N4200 M20 ;加热启动
N4300 G4F=R19
N4400 M4 S=R6
N4500 M6 ；淬火喷水开
N4600 G4 F=R7
N4700 STOPRE
N4800 M21； 加热停止
N4900 G4F10
N5000 M7 ；淬火喷水关
N5100 M5 ；主轴停止
N5200 M51M53 ；X轴跟踪气缸缩回 Y轴跟踪气缸缩回
N5300 M61 ；Y轴伸缩气缸缩回
N5400 B=R8F2000
N5500 X=R14F500
N5600 Y=R16F500
N5700 B=R10F2000
N5800 Z=R12F1500
N5900 M30
子程序：
GXV.SPF
N100 R100=$AA_IM[X]
N200 R101=$A_DBR[0]
N300 EVERY R101>9.0 DO SETAL(62000)
N400 EVERY R101<4.0 DO SETAL(63000)
N500 IF R101>9.0 GOTOF TX1
N600 IF R101<4.0 GOTOF TX1
N700 DO UNLOCK(11)UNLOCK(12)UNLOCK(13)UNLOCK(14)UNLOCK(15)
N800 CANCEL(11)
N900 CANCEL(12)
N1000 CANCEL(13)
N1100 CANCEL(14)
N1200 CANCEL(15)
N1300 FCTDEF(1,-60,60,-1,0.1,0,0)
;N1400 FCTDEF(2,-60,60,-1,0.1,0,0)
N1500 ID=11 WHENEVER ($A_DBR[0]>R101)AND($A_DBR[0]-R101<2) DO MOV[X]=1 FA[X]=3
N1600 ID=12 WHENEVER ($A_DBR[0]N1700 ID=13 DO SYNFCT(1,$$AA_VC[X],ABS($$A_DBR[0]-R100))
N1800 ID=14 EVERY $A_DBR[0]-R101>2.0 DO MOV[X]=0 FA[X]=0
N1900 ID=15 EVERY R101-$A_DBR[0]>2.0 DO MOV[X]=0 FA[X]=0
N2000 TX1:
N2100 RET

子程序
GYV.SPF
N100 R102=$AA_IM[Y]
N200 R103=$A_DBR[4]
N300 EVERY R103>9.0 DO SETAL(60000)
N400 EVERY R103<4.0 DO SETAL(61000)
N500 IF R103>9.0 GOTOF TY1
N600 IF R103<4.0 GOTOF TY1
N700 DO UNLOCK(1)UNLOCK(2)UNLOCK(3)UNLOCK(4)UNLOCK(5)
N800 CANCEL(1)
N900 CANCEL(2)
N1000 CANCEL(3)
N1100 CANCEL(4)
N1200 CANCEL(5)
N1300 FCTDEF(1,-60,60,-1,0.1,0,0)
;N1400 FCTDEF(2,-60,60,-1,0.1,0,0)
N1500 ID=1 WHENEVER ($A_DBR[4]>R103)AND($A_DBR[4]-R103<2) DO MOV[Y]=1 FA[Y]=3
N1600 ID=2 WHENEVER ($A_DBR[4]N1700 ID=3 DO SYNFCT(1,$$AA_VC[Y],ABS($$A_DBR[4]-R101))
N1800 ID=4 EVERY $A_DBR[4]-R103>2.0 DO MOV[Y]=0 FA[Y]=0
N1900 ID=5 EVERY R103-$A_DBR[4]>2.0 DO MOV[Y]=0 FA[Y]=0
N2000 TY1:
N2100 RET