98               GameState:= gsGame

    98               GameState:= gsGame

    99               end;

    99               end;

   100      gsGame : begin

   100      gsGame : begin

   101               ProcessKbd;

   101               ProcessKbd;

   102               DoGameTick(Lag);

   102               DoGameTick(Lag);

   103               DrawWorld(Lag, SDLPrimSurface);

   104               DrawWorld(Lag, SDLPrimSurface);

   104               end;

   105               end;

   105    gsConsole: begin

   106    gsConsole: begin

   106               DoGameTick(Lag);

   107               DoGameTick(Lag);

   107               DrawWorld(Lag, SDLPrimSurface);

   109               DrawWorld(Lag, SDLPrimSurface);

   108               DrawConsole(SDLPrimSurface);

   110               DrawConsole(SDLPrimSurface);

   109               end;

   111               end;

   110      gsExit : begin

   112      gsExit : begin

   111               OnDestroy;

   113               OnDestroy;