'Stop Button Feedhold/stop to check torch
DoButton(1) 'Feedhold
While IsMoving 'Wait for movement to stop
Sleep(100)
Wend
DoSpinStop ' Turn OFF torch
Sleep(1000)
DoButton(286) ' Set positions
Sleep(1000)
DoButton(3) 'Set Stop
Sleep(1000)
SetVar(604,GetDro(18)) 'SetVar to Feedrate
SetVar(605,GetDro(16)) 'SetVar to CurrentLine#
Code"G0 Z1.000" 'Move to a SafeZ
While IsMoving()
Sleep(1000)
Wend
Code"(Stop Routine Complete)"
End
'***************************************************************************************************************************************X
'Restart Button to return to work
Code"G1 Z1.000 F#604" 'Go To a SafeZ
While IsMoving()
Sleep(1000)
Wend
SetDro(16,Getvar(605)) 'Reset SET NEXT LINE #
Sleep(100)
SetDro(18,GetVar(604)) 'Reset Feedrate
Sleep(100)
'************************* Setup TOM to suite machine
'Code"G28.1 Z0.500" 'ReREF Head to TOM
'While Ismoving()
'Sleep(100)
'Wend
'Code"G92 Z0.000" 'Reset Dro
"Code"G1 Z0.150"
'Code"G92 Z0.000"
'sleep(100)
'*************************************************
DoOemButton(285) 'Return to stop position
While IsMoving()
Sleep(1000)
Wend
Code"G1 Z#601 F#604" 'Return Z to stop Point
While IsMoving()
Sleep(1000)
Wend
DOSPINCW() 'Refire Torch
Sleep(100)
DoButton(0) 'Resume Program Run from Stop Point
Code"(You are now back ONLINE cutting )"
End