home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TEGA02.ZIP / GPINIT.P < prev    next >
Encoding:
Text File  |  1986-02-03  |  1.0 KB  |  45 lines
  1. {                                                                             }
  2. {       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 03FEB86.        }
  3. {       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     }
  4. {                                                                             }
  5.  
  6. procedure GPINIT;
  7. begin
  8.   inline
  9.     ($A0/GDTYPE/$3C/$03/$74/$0A/$3C/$04/$74/$0A/$3C/$05/$74/$0A/$EB/$0E/$B0/
  10.      $0E/$EB/$06/$B0/$0F/$EB/$02/$B0/$10/$32/$E4/$CD/$10);
  11.  
  12.   GDCOLOR := Green;
  13.   GDMERGE := 0;
  14.   GDCUR_X := 0;
  15.   GDCUR_Y := 0;
  16.  
  17.   if GDTYPE = 3 then
  18.     begin
  19.     GDASPC1 := 3;
  20.     GDASPC2 := 2;
  21.     end
  22.   else
  23.     begin
  24.     GDASPC1 := 3;
  25.     GDASPC2 := 4;
  26.     end;
  27.  
  28.   GDWD_X1 := 0;
  29.   GDWD_X2 := GDMAXCOL;
  30.   GDWD_X3 := GDMAXCOL + 1;
  31.   GDWD_Y1 := 0;
  32.   GDWD_Y2 := GDMAXROW;
  33.   GDWD_Y3 := GDMAXROW + 1;
  34.  
  35.   GDVW_X1 := 0;
  36.   GDVW_X2 := GDMAXCOL;
  37.   GDVW_X3 := GDMAXCOL + 1;
  38.   GDVW_Y1 := 0;
  39.   GDVW_Y2 := GDMAXROW;
  40.   GDVW_Y3 := GDMAXROW + 1;
  41.  
  42.   GDS_FLG := 0;
  43.   GDW_FLG := False;
  44. end;
  45.