Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TPEGA.ZIP/GPMOVE.P

Text File | 1986-01-19 | 650 b | 14 lines

{                                                                             }
{       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01Feb86.        }
{       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     }
{                                                                             }
{       Description: Set the current graphic pointer to the specified X,Y     }
{       coordinates.                                                          }
{                                                                             }

procedure GPMOVE(X,Y: Integer);
begin
  GDCUR_X := X;
  GDCUR_Y := Y;
end;