rem Modified june/2/2011 by Agelkom
Option Explicit
Dim PierceHeight, PierceTime, PierceTime2,THC_ON, THC_LED, OK, Z_Min_Height, Z_Pos
THC_ON = 123 'torch on screen switch
THC_LED = 24 'torch on screen led
OK = False
PierceHeight = 0
Z_Pos = 0
PierceTime = 0
PierceTime2 = 0
PierceHeight = GetUserDRO(1000) 
PierceTime = GetUserDRO(1001)
If Not GetOEMLED (THC_LED) Then 
Call DoOEMButton (THC_ON) 
Else
OK= True 
End If
Z_Min_Height= GetUserDRO(1003)
code "G31Z"&(Z_Min_Height)
While IsMoving()
sleep(100)
Wend
Z_Pos = GetDro(2) 
Call SetDro(2,Z_Pos)
code "G4P1" 
code "G1Z"&(Z_pos+PierceHeight)
While IsMoving()
sleep(100)
Wend
DoSpinCW()
code "G4P"&(PierceTime)
PierceTime2 = PierceHeight * 200
sleep(PierceTime2)