(*******************************************************************************************)
(******************************    MODUL MOVE/POSITION-CONTROL   ***************************)
(*******************************************************************************************)
procedure MP;
(*******************************************************************************************)
var  Counter: integer;
begin
     Counter:=0;Alert:=false;
     repeat
           IO(RS232);
           Counter:=Counter + 1;
     until TA.done or (Counter > 30);
     if not TA.done then
        begin                                 {Alert to user, if not Alert1 done before}
             gotoxy(4,22);textbackground(red);write('ROB2-Reset-Taste, dann "Enter" drcken!');
             readchr([Return],false,Key);textbackground(blue);gotoxy(4,22);
             write('                                       ');
             TA.Service_Spec.ROB:=Init;IO(RS232);TA.Service_Spec.ROB:=New_all;
             MP(MOVE);
        end;
end;