Dim A As long			'назначаем переменные
Dim B As long
Dim C As long
Dim D As long
Dim E As long
A = GetOEMDRO(1001)		'высота прожига
B = GetOEMDRO(1002)		'высота подпрыжки
C = GetOEMDRO(1003)		'высота резки
D = GetOEMDRO(1004)		'задержка рпожига
E = GetOEMDRO(1005)		'Скорость оси Z
CurrentFeed = GetOemDRO(818) 	'запоминаем значение текущей подачи
Code "G31 Z-200" &E		'опускаем горелку до срабатывания датчика касания
While IsMoving() 			'ждём выполнения
Sleep 0.1 			'задержка 100мс 
Wend
Code "G92 Z0" 			'обнуляем координату Z
Code "G0 Z" &A 			'поднимаем горелку на высоту прожига
While IsMoving ()
Sleep 0.1
Wend
DoSpinCW() 			'включение плазмотрона
While IsMoving ()
Sleep 0.1
Wend
Code "G0 Z" &B 			'перемещение на высоту подпрыжки
Code "G0 Z" &C 			'перемещение на высоту резки
Code "G04 P" &D			'"аппаратная" задержка на прожиг
StartTHC()			'включаем THC
While IsMoving ()
Sleep 0.1
Wend
Code "F" &CurrentFeed 		'возврат к скорости заданной в УП