160 

   160 

   161 var CursorPoint: TPoint;

   161 var CursorPoint: TPoint;

   162     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   162     TargetPoint: TPoint = (X: NoPointX; Y: 0);

   163 

   163 

   164 implementation

   164 implementation

   166 var KBnum: Longword = 0;

   166 var KBnum: Longword = 0;

   167 {$IFDEF DEBUGFILE}

   167 {$IFDEF DEBUGFILE}

   168 var f: textfile;

   168 var f: textfile;

   169 {$ENDIF}

   169 {$ENDIF}

   170 

   170 

   520 const head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24);

   520 const head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24);

   521 var p: Pointer;

   521 var p: Pointer;

   522 	size: Longword;

   522 	size: Longword;

   523 	f: file;

   523 	f: file;

   524 begin

   524 begin

   525 head[6]:= cScreenWidth;

   526 head[6]:= cScreenWidth;

   526 head[7]:= cScreenHeight;

   527 head[7]:= cScreenHeight;

   527 

   528 

   528 size:= cScreenWidth * cScreenHeight * 3;

   529 size:= cScreenWidth * cScreenHeight * 3;

   529 p:= GetMem(size);

   530 p:= GetMem(size);