Procedure MainScreen;
Begin
  ClearPage(Buffer[3]);
 
  Ramecek(0,0,319,199,ColorGreenBright,Buffer[3]);
  WriteBlok(80,40,0,0,159,63,Buffer[1],Buffer[3]);
  Ramecek(78,38,241,105,ColorGreenBright,Buffer[3]);
  WriteNumber(Buffer[1],160,80,8,16,1,10,12,DatRec.HiScore,Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,257,180,'o=ovladani',Buffer[3]);
  WriteText(Buffer[1],160,0,5,5,1,268,190,'s=servis',Buffer[3]);
 
  If Fps2s=True then Begin
                       WriteSprite(72,130,0,64,79,87,Buffer[1],Buffer[3]);
                       WriteSprite(168,130,80,64,159,87,Buffer[1],Buffer[3]);
                     End
                else Blok(72,130,247,153,ColorBlack,Buffer[3]);
 
  WaitRetrace;
  FlipPage(Buffer[3],Buffer[4]);
End;
 
 
Procedure Main;
Var Ending: Boolean;
Begin
  Ending:=False;
  SaveLoad(False); {LOAD}
  MainScreen;
  Repeat
    MainScreen;
    Wait(DatRec.fpsProdleva);
 
{Enter} If Key[28]=True then
        Begin
          While Key[28]=True do Begin End;
          MainGame;
          If VyplacenoTMP>VkladyTMP then
          Begin
            If (VyplacenoTMP-VkladyTMP) > DatRec.HiScore
            then DatRec.HiScore:=VyplacenoTMP-VkladyTMP;
            SaveLoad(True);
          End;
        End;
 
{S}     If Key[31]=True then
        Begin
          While Key[31]=True do Begin End;
          Servis;
        End;
 
{O}     If Key[24]=True then
        Begin
          While Key[24]=True do Begin End;
          Ovladani;
        End;
 
{Esc}   If Key[1]=True then Ending:=True;
 
  Until Ending=True;
End;