okay, not sure why I cant do that in screen4, but it worked in screen3 and the code shows up in Mach3.
Dim Len, SD, FD, SR, FR, TD, ClearZ, I
SD = GetOEMDRO(1111)
SR = SD / 2
FD = GetOEMDRO(1112)
FR = FD / 2
TD = GetOEMDRO(1113)
Len = GetOEMDRO(1110)
ClearZ = SR + .1
Code "G18 G40 G49 G90 G94 G50 M48 G80"
Code "G0 Z" & ClearZ
Code "G0 X0"
Code "M3"
for I = SR To FR Step -0.01
Code "G1 Z" & I
Code "G1 X" & Len - TD & "F6"
Code "G0 Z" & ClearZ
Code "G0 X0"
Next I
Code "G1 Z" & FR
Code "G1 X" & Len - TD
Code "G0 Z" & ClearZ
Code "G0 X0"
Code "M30"
however nothing goes into the code window on the screen, now what am I doing wrong?