program robot ;
uses crt ;
var g:char;

Procedure kesz ;
Begin
WriteLn('Friss�t�s.') ;
End;

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

Procedure elore ;
Begin
WriteLn('El�re megyek.') ;
Port[$378]:= 2 ;
kesz ;
End;

Procedure hatra ;
Begin
WriteLn('H�tra megyek.') ;
Port[$378]:= 1 ;
kesz ;
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
WriteLn('El�re �s balra megyek.') ;
Port[$378]:= 10 ;
kesz ;
End;

Procedure hbalra ;
begin
WriteLn('H�tra �s balra megyek.') ;
Port[$378]:= 9 ;
kesz ;
End;

Procedure ejobbra ;
Begin
WriteLn('El�re �s jobbra megyek.') ;
Port[$378]:= 6 ;
kesz ;
End ;

Procedure hjobbra ;
Begin
WriteLn('H�tra �s jobbra megyek.') ;
Port[$378]:=5 ;
kesz ;
End ;


Procedure fordulj ;
Begin
Textcolor(12) ;
WriteLn('Megfordulok.') ;
WriteLn('Pill...') ;
Textcolor(7) ;
ejobbra ;
Delay(1200) ;
hbalra ;
Delay(1350) ;
allj ;
Delay(1000) ;
ejobbra ;
Delay(1000) ;
Textcolor(12) ;
WriteLn('Megfordultam.') ;
Textcolor(7) ;
allj ;
End;

begin
clrscr;
Textcolor(12) ;
GotoxY(20,10) ; Write('  Kapcsold BE a Num 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 ;
WriteLn('A Num Lock gombjaival tudsz ir�ny�tani') ;
WriteLn('1-es H�tra �s balra megyek.') ;
WriteLn('2-es H�tra megyek.') ;
WriteLn('3-as H�tra �s jobbra megyek.') ;
WriteLn('4-es Balra fordulok.') ;
WriteLn('5-�s Megfordulok.') ;
WriteLn('6-os Jobbra fordulok') ;
WriteLn('7-es El�re �s balra megyek.') ;
WriteLn('8-as El�re megyek.') ;
WriteLn('9-es El�re �s jobbra megyek.') ;
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 ;
      allj ;
      end;

   if g=#52 then
      begin
      WriteLn('Jobbra fordulok') ;
      Port[$378]:= 8;
      kesz ;
      end ;

   if g=#54 then
      begin
      WriteLn('Balra fordulok') ;
      Port[$378]:= 4 ;
      kesz ;
      End ;

   Delay(120) ;
   allj ;
   end;


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