rem   modified 07/2008 by LKV
Option ExplicitDim    
TorchHeight, PierceDelay, TCutHeight
PierceDelay = getUserDRO (1001)
code "g31z-100"
While IsMoving() 
   wend
TorchHeight = GetUserDRO(1000)
TCutHeight = (getUserDRO (1003))
code "G92Z0"
code "G1Z"  &  (TorchHeight)
While IsMoving()
   wend
DoSpinCW()
code "G4 P" & (PierceDelay)
code "G1Z" &  (TCutHeight  ) 
TorchHeight = 0