program robot ;
uses crt ;
var g:char;

Procedure allj ;
Begin
Port[$378]:= 0 ;
End;

Procedure elore ;
Begin
Port[$378]:= 2 ;
End;

Procedure hatra ;
Begin
Port[$378]:= 1 ;
End ;

{el‹re halad skor a sima " llj" csak a morrot  llĄtja le a kocsi megy tov bb
 el‹re. A stooop el‹re halad sb˘l r”gt”n meg llĄtja a kocsit. }

Procedure stooop ;
Begin
Port[$378]:= 1 ;
Delay(550) ;
End ;

Procedure hstooop ;
begin
Port[$378]:= 2 ;
Delay(300) ;
End;

Procedure ebalra ;
Begin
Port[$378]:= 10 ;
End;

Procedure hbalra ;
begin
Port[$378]:= 9 ;
End;

Procedure ejobbra ;
Begin
Port[$378]:= 6 ;
End ;

Procedure hjobbra ;
Begin
Port[$378]:=5 ;
End ;

Procedure fordulj ;
Begin
ejobbra ;
Delay(1200) ;
hbalra ;
Delay(1350) ;
allj ;
Delay(1000) ;
ejobbra ;
Delay(1000) ;

End;
begin
clrscr;
Textcolor(12) ;
GotoxY(20,10) ; Write('  Kapcsold ki a Nom Lock ot!!!!!!') ;
Textcolor(7) ;
GotoxY(20,11) ; Write(' Ha k‚sz vagy k‚rlek nyomj 1 ENTER-t') ;
GotoxY(20,12) ; Write('           K”sz”nnyk!') ;
ReadLn;
Clrscr ;
repeat
if keypressed then
   begin
   g:=readkey;
   if g=#56 then
   begin
   elore ;
   end;

   if g=#50 then
   begin
   hatra ;
   end;

   if g=#55 then
      begin
      ebalra ;
      end;

   if g=#57 then
      begin
      ejobbra ;
      end;


   if g=#49 then
      begin
      hbalra ;
      end;


   if g=#51 then
      begin
      hjobbra ;
      end;

   if g=#53 then
      begin
      fordulj ;
      end;

   Delay(120) ;
   allj ;
   end;


Until (g=#27) or (g='s');
End.