wait

 
 

ProgramForm!ExpMove.Caption = "Please wait 1"
ProgramForm!ExpMove.BackColor = Computer_Action_Colour

If Imperial Then
ProgramForm.MetricImpDisplay.Caption = "I"
Else
ProgramForm.MetricImpDisplay.Caption = "M"
End If

Clear_Tool_Cmd
Change_fp_tool 1
Change_fp_cmd cmdhole

Draw_target ProgramForm!Target1, target_rad + PanR, target_color

ProgramForm!ExpMove.Caption = "Please wait 2"
MC_Reset 'Pulse reset line
'and wait for head up

ProgramForm!ExpMove.Caption = "Please wait 3"
XY_Home

ProgramForm!ExpMove.Caption = "Please wait 4"
MC_is_at_home = True

ProgramForm!ExpMove.Caption = "Please wait 5"
Set_Zero

ProgramForm!ExpMove.Caption = "Please wait 6"
Wait .1

ProgramForm!ExpMove.Caption = "Please wait 7"
Set_Zero

ProgramForm!ExpMove.Caption = "Please wait 8"
Get_Position

ProgramForm!ExpMove.Caption = "Please wait 9"
Update_position_displays

Xa = 0: Ya = 0
Xh = 0: Yh = 0
oldX = 0: oldY = 0
Xrel_offset = 0: Yrel_offset = 0