' G31 Polar Array Calibration Macro V1.00
Xpos= getdro(0)
Ypos= getdro(1)
Pspeed= Question (" Probe Feed Rate")
Rleg= Question ("Input Max Leg Length")
Linc= Question ("Input leg Separation Angle")
SafZ= Question ("Input SafeZ Height")
Phgt= Question ("Input Safe Probe Height")
Spnt= Question ("Input start point in DEG, zero is x axis 3oclock")
Tdeg= Question ("Input Total Arc Width of Array in DEGs")
Nrep= (Tdeg / Linc)

Setvar (100 , Xpos)
Setvar (101 , Ypos) 
Setvar (102 , Rleg)
Setvar (104 , Linc)
Setvar (108 , Nrep)
Setvar (109 , Pspeed)
Setvar (110 , SafZ)
Setvar (111 , Phgt)
Setvar (103 , Spnt)
Code " F#109"

End