186 end;

   186 end;

   187 

   187 

   188 procedure ShowMainWindow;

   188 procedure ShowMainWindow;

   189 begin

   189 begin

   190 if cFullScreen then ParseCommand('fullscr 1')

   190 if cFullScreen then ParseCommand('fullscr 1')

   192 end;

   193 end;

   193 

   194 

   194 ///////////////

   195 ///////////////

   195 procedure Game;

   196 procedure Game;

   196 var s: shortstring;

   197 var s: shortstring;