; AP-238 STEP-NC PROGRAM
N1 EXTERN WSSPINDLE( INT, REAL )
N2 EXTERN WSTOOL( INT )
N3 G17 G40 G53 G90
; Workingstep: WS 1
N4G1X10.787402Y0.000000Z8.500000F118.11
N5X9.803150Z6.322835
; Workingstep: WS 2
; PROBE: probing operation
N6X-2.177165Z-0.196850
N7 _SETVAL=-1.980315 _MA=1  _MVAR=0 _PRNUM=1 _KNUM=0 _FA=4 _TSA=8 _VMS=0 _NMSP=1 ; probe X
N8 CYCLE978
N9 WRITE(_LOG, "probelog",<< "SETPOINT (X,Y,Z) -1.980315, 0.000000, -0.196850"<< " ACTUAL X=" << _OVR[4] )
; Workingstep: WS 3
N10X9.803150Z6.322835
N11X10.787402Z8.500000
N12X9.803150Y2.177165
; Workingstep: WS 4
; PROBE: probing operation
N13X0.000000Z-0.196850
N14 _SETVAL=1.980315 _MA=2  _MVAR=0 _PRNUM=1 _KNUM=0 _FA=4 _TSA=8 _VMS=0 _NMSP=1 ; probe Y
N15 CYCLE978
N16 WRITE(_LOG, "probelog",<< "SETPOINT (X,Y,Z) 0.000000, 1.980315, -0.196850"<< " ACTUAL Y=" << _OVR[4] )
; Workingstep: WS 5
N17X9.803150Y2.177165Z8.500000
N18X10.787402Y0.000000
N19X9.803150Z10.677165
; Workingstep: WS 6
; PROBE: probing operation
N20X2.177165Z-0.196850
N21 _SETVAL=1.980315 _MA=1  _MVAR=0 _PRNUM=1 _KNUM=0 _FA=4 _TSA=8 _VMS=0 _NMSP=1 ; probe X
N22 CYCLE978
N23 WRITE(_LOG, "probelog",<< "SETPOINT (X,Y,Z) 1.980315, 0.000000, -0.196850"<< " ACTUAL X=" << _OVR[4] )
; Workingstep: WS 7
N24X9.803150Z10.677165
N25X10.787402Z8.500000
N26X9.803150Y-2.177165
; Workingstep: WS 8
; PROBE: probing operation
N27X0.000000Z-0.196850
N28 _SETVAL=-1.980315 _MA=2  _MVAR=0 _PRNUM=1 _KNUM=0 _FA=4 _TSA=8 _VMS=0 _NMSP=1 ; probe Y
N29 CYCLE978
N30 WRITE(_LOG, "probelog",<< "SETPOINT (X,Y,Z) 0.000000, -1.980315, -0.196850"<< " ACTUAL Y=" << _OVR[4] )
N31 WSMODEOF
N32M2