Var3 = GetOemdro(800)*3.14
Var4 = GetVar(1)*1000

If (Var3 = 0) Then
Call Code("M30")
MsgBox (" M555 Macro  X Position  = 0 !")
end
End If

Var5 = Var4/Var3

If (Var3 < 0) Then
Var5 = (Var5 * -1)
End If

Var6 = Var5*GetVar(2)

If (GetVar(7) <= Var5) Then
Var5 = GetVar(7)
Var6 = Var5*GetVar(2)
End If

Call Code("S"&Var5 & "F"&Var6)
While ismoving()
Sleep 100
Wend