Procedure OvladaniScreen;
Begin
  ClearPage(Buffer[3]);
 
  Ramecek(0,0,319,199,ColorGreenBright,Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,268,12,'esc=exit',Buffer[3]);
 
  WriteText(Buffer[1],160,0,5,5,1,10,22,'do hry = enter',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,32,'exit = esc',Buffer[3]);
 
  WriteText(Buffer[1],160,0,5,5,1,10,52,'vhodit 50 korun = nula nebo nahoru',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,62,'vybrat credit = c nebo dolu',Buffer[3]);
 
  WriteText(Buffer[1],160,0,5,5,1,10,82,'start = s',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,92,'auto start = a',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,102,'zmenit sazku = v nebo enter',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,112,'prepnout win/gamble = w nebo doleva nebo doprava',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,122,'prevest multiwin do creditu = drzet t nebo drzet d',Buffer[3]);
 
  WriteText(Buffer[1],160,0,5,5,1,10,142,'situace vyhry v dolni hre',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,152,'prevest vyhru do multiwinu = m nebo mezernik',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,162,'risk hlava = h',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,10,172,'risk orel = o',Buffer[3]);
 
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
End;
 
 
Procedure Ovladani;
Var Ending: Boolean;
Begin
  Ending:=False;
  Repeat
    OvladaniScreen;
    Wait(DatRec.fpsProdleva);
 
{Esc} If Key[1]=True then
      Begin
        While Key[1]=True do Begin End;
        Ending:=True;
      End;
  Until Ending=True;
End;