home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s2.arc / PIB4010.GLO < prev    next >
Encoding:
Text File  |  1988-01-02  |  2.1 KB  |  32 lines
  1. VAR
  2.    Write_Graphics_Screen : BOOLEAN (* TRUE to write graphics memory *);
  3.    EGA_Use               : BOOLEAN (* TRUE to use EGA graphics      *);
  4.  
  5. (* STRUCTURED *) CONST             (* Starting bytes for each CGA scan line *)
  6.    Scan_Line_Table : ARRAY[0..199] OF INTEGER =
  7.                      (    0,  8192,   80,  8272,  160,  8352,  240,  8432,
  8.                         320,  8512,  400,  8592,  480,  8672,  560,  8752,
  9.                         640,  8832,  720,  8912,  800,  8992,  880,  9072,
  10.                         960,  9152, 1040,  9232, 1120,  9312, 1200,  9392,
  11.                        1280,  9472, 1360,  9552, 1440,  9632, 1520,  9712,
  12.                        1600,  9792, 1680,  9872, 1760,  9952, 1840, 10032,
  13.                        1920, 10112, 2000, 10192, 2080, 10272, 2160, 10352,
  14.                        2240, 10432, 2320, 10512, 2400, 10592, 2480, 10672,
  15.                        2560, 10752, 2640, 10832, 2720, 10912, 2800, 10992,
  16.                        2880, 11072, 2960, 11152, 3040, 11232, 3120, 11312,
  17.                        3200, 11392, 3280, 11472, 3360, 11552, 3440, 11632,
  18.                        3520, 11712, 3600, 11792, 3680, 11872, 3760, 11952,
  19.                        3840, 12032, 3920, 12112, 4000, 12192, 4080, 12272,
  20.                        4160, 12352, 4240, 12432, 4320, 12512, 4400, 12592,
  21.                        4480, 12672, 4560, 12752, 4640, 12832, 4720, 12912,
  22.                        4800, 12992, 4880, 13072, 4960, 13152, 5040, 13232,
  23.                        5120, 13312, 5200, 13392, 5280, 13472, 5360, 13552,
  24.                        5440, 13632, 5520, 13712, 5600, 13792, 5680, 13872,
  25.                        5760, 13952, 5840, 14032, 5920, 14112, 6000, 14192,
  26.                        6080, 14272, 6160, 14352, 6240, 14432, 6320, 14512,
  27.                        6400, 14592, 6480, 14672, 6560, 14752, 6640, 14832,
  28.                        6720, 14912, 6800, 14992, 6880, 15072, 6960, 15152,
  29.                        7040, 15232, 7120, 15312, 7200, 15392, 7280, 15472,
  30.                        7360, 15552, 7440, 15632, 7520, 15712, 7600, 15792,
  31.                        7680, 15872, 7760, 15952, 7840, 16032, 7920, 16112  );
  32.