99               FinishProgress;

    99               FinishProgress;

   100               GameState:= gsGame

   100               GameState:= gsGame

   101               end;

   101               end;

   102      gsGame : begin

   102      gsGame : begin

   103               ProcessKbd;

   103               ProcessKbd;

   105               DoGameTick(Lag);

   104               DoGameTick(Lag);

   106               DrawWorld(Lag, SDLPrimSurface);

   105               DrawWorld(Lag, SDLPrimSurface);

   107               end;

   106               end;

   108    gsConsole: begin

   107    gsConsole: begin

   109               DoGameTick(Lag);

   108               DoGameTick(Lag);

   111 //              DrawWorld(Lag, SDLPrimSurface);

   109 //              DrawWorld(Lag, SDLPrimSurface);

   112 //              DrawConsole(SDLPrimSurface);

   110 //              DrawConsole(SDLPrimSurface);

   113               end;

   111               end;

   114      gsExit : begin

   112      gsExit : begin

   115               OnDestroy;

   113               OnDestroy;