25 

    25 

    26 

    26 

    27 procedure movecursor(dx, dy: LongInt);

    27 procedure movecursor(dx, dy: LongInt);

    28 function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;

    28 function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;

    29 procedure MakeScreenshot(filename: shortstring);

    29 procedure MakeScreenshot(filename: shortstring);

    30 

    31 

    31 procedure initModule;

    32 procedure initModule;

    32 procedure freeModule;

    33 procedure freeModule;

    33 

    34 

    34 implementation

    35 implementation

   129 

   130 

   130     exit(tmpsurf);

   131     exit(tmpsurf);

   131 end;

   132 end;

   132 

   133 

   133 

   134 

   134 procedure initModule;

   142 procedure initModule;

   135 begin

   143 begin

   136 end;

   144 end;

   137 

   145 

   138 procedure freeModule;

   146 procedure freeModule;