Here ya go give this a whirl. This is your post code button code.

Sub Main()

'(CNC A axis Plasma TUBE Coping routine)

'(Math derivative by Dan Hopper Copyright 2006)

'WIZARD BY WES TREIHAFT

CutTubeD = GetOEMDRO (1366)

UncutTubeD = GetOEMDRO (1367)

TubeThickness = GetOEMDRO (1368)

JointANGLE = GetOEMDRO (1369)

'ASTEPDEG = GetOEMDRO (1370)

RO = (CutTubeD / 2) ' (RO)

RU = (UncutTubeD / 2) ' (RU)

RI = (RO - TubeThickness) ' (RI)

AF = JointANGLE ' (AF)

ID = 0 ' (ID)

ASTEPDEG = 2 ' (A step in deg)

SetTicker 20, ""

Setvar(200, RO)

Setvar(201,RU)

SetVar(202, RI)

SeTvAR(203, AF)

SetVar(204, AstepDeg)

OpenTeachFile "PIPENOTCHER.tap"

Code "%"

Code "G0 G40 G54 G90 G49 G17 G50 G64 G91.1 G94"

Code "G0 A0.000 x0.000 Z1.000 F500"

Code "Z0.0"

Code "M98 P01 L180"

Code "G0 A0.0 X0.0 Z1.0"

Code "M30"

Code "o01"

Code"G1 A#300 X [sqrt [#201 **2 - [ [#202 * sin [#204]] **2]] / sin[#203] - tan [90-#203] * #202 * cos[#204]]"

Code"#204=[#204+2]"

Code"#300=[#300+2]"

Code "M99"

Code "%"

Setdro(25,RU)

CloseTeachFile

Call LoadTeachFile()

End Sub

Main