Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TEGA02.ZIP/GPCOLOR.P

Text File | 1986-01-26 | 661 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 color to be used by other graphic        }
{       primitives.                                                           }
{                                                                             }

procedure GPCOLOR(Color: Integer);
begin
    GDCOLOR := Color;
    GDS_FLG := 0;
end;