Procedure SaveLoad(Save: Boolean);
Begin
  FindFirst('gambler.dat',Archive,DirInfo);
  Case DosError Of
  0: Begin {OK -> LOAD or SAVE}
       Assign(F,'gambler.dat');
       If Save=True then Begin {SAVE}
                           ReWrite(F,1);
                           BlockWrite(F,DatRec,SizeOf(DatRec));
                         End
                    else Begin {LOAD}
                           Reset(F,1);
                           BlockRead(F,DatRec,SizeOf(DatRec))
                         End;
       Close(F);
     End;
 18: Begin {Not found -> Create new}
       Assign(F,'gambler.dat');
       ReWrite(F,1);
 
       DatRec.fpsProdleva:=15;
       DatRec.RollSpeed:=1;
       DatRec.RiskSpeed:=2;
       DatRec.RawEnable:=True;
       DatRec.HiScore:=0;
       DatRec.Pub.Vklady:=0;
       DatRec.Pub.Vyplaceno:=0;
       DatRec.SBEnable:=True;
       DatRec.PS3:=True;
 
       BlockWrite(F,DatRec,SizeOf(DatRec));
       Close(F);
     End;
  End; {Case End}
End;