home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECO_VIDE.INC < prev    next >
Encoding:
Text File  |  1992-08-20  |  3.4 KB  |  83 lines
  1. (*
  2.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  3.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  4.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  5.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  6.     ▓▓▓▓▓▓▓▓·──                                              ──·▓▓▓▓▓▓▓▓▓▓▓
  7.     ▓▓▓▓▓▓▓▓│                                                  │░░▓▓▓▓▓▓▓▓▓
  8.     ▓▓▓▓▓▓▓▓   Unit was conceived, designed and written         ░░▓▓▓▓▓▓▓▓▓
  9.     ▓▓▓▓▓▓▓▓   by Floor A.C. Naaijkens for                      ░░▓▓▓▓▓▓▓▓▓
  10.     ▓▓▓▓▓▓▓▓   UltiHouse Software / The ECO Group.              ░░▓▓▓▓▓▓▓▓▓
  11.     ▓▓▓▓▓▓▓▓                                                    ░░▓▓▓▓▓▓▓▓▓
  12.     ▓▓▓▓▓▓▓▓   (C) MCMXCII by EUROCON PANATIONAL CORPORATION.   ░░▓▓▓▓▓▓▓▓▓
  13.     ▓▓▓▓▓▓▓▓   All Rights Reserved for The ECO Group.           ░░▓▓▓▓▓▓▓▓▓
  14.     ▓▓▓▓▓▓▓▓                                                    ░░▓▓▓▓▓▓▓▓▓
  15.     ▓▓▓▓▓▓▓▓│                                                  │░░▓▓▓▓▓▓▓▓▓
  16.     ▓▓▓▓▓▓▓▓·──                                              ──·░░▓▓▓▓▓▓▓▓▓
  17.     ▓▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓▓▓▓▓
  18.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  19.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  20.     ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  21. *)
  22. unit eco_vprm;
  23. interface
  24. uses
  25.   graph, eco_gdrv;
  26.  
  27.  
  28. procedure get_video_params;
  29. var i: sint;
  30. begin
  31.   allowlines[1] := true;
  32.   for i := 2 to 4 do allowlines[i] := false;
  33.   if _monoadapter<>_absent then herc_present := true else herc_present := false;
  34.   if _coloradapter <> _absent then cga_present := true else cga_present := false;
  35.   if _egaadapter <> _absent then begin
  36.     ega_present := true; allowlines[_43]:= true
  37.   end else ega_present := false;
  38.   if _hercadapter <> _absent then herc_present := true else herc_present := false;
  39.   if _mcgaadapter <> _absent then begin
  40.     vga_present := true; allowlines[_30] := true
  41.   end else vga_present := false;
  42.   if _vgaadapter <> _absent then begin
  43.     vga_present := true;
  44.     allowlines[_30] := true;
  45.     allowlines[_43] := true;
  46.     allowlines[_50] := true
  47.   end else vga_present := false;
  48.   if herc_present then begin
  49.     if registerbgidriver(@hercdriverproc)>0 then warningbeep else begin
  50.       writeln(retmsg(745)); delay(pause)
  51.     end;
  52.   end;
  53.   if cga_present then begin
  54.     if registerbgidriver(@cgadriverproc)>0 then warningbeep else begin
  55.       writeln(retmsg(746)); delay(pause);
  56.       if registerbgidriver(@attdriverproc)>0 then begin
  57.         writeln(retmsg(747)); delay(pause)
  58.       end else begin
  59.         writeln(' No ATT present, CGA detected, though.');
  60.         warningbeep
  61.       end;
  62.     end;
  63.   end;
  64.   if ega_present then begin
  65.     if registerbgidriver(@egavgadriverproc)>0 then warningbeep;
  66.     writeln(retmsg(748)+'  <EGA> Enabled'); delay(pause);
  67.   end;
  68.   if vga_present then begin
  69.     if registerbgidriver(@egavgadriverproc)>0 then warningbeep else
  70.     writeln(retmsg(748)+'  <VGA> Enabled'); delay(pause);
  71.     if registerbgidriver(@pc3270driverproc)>0 then warningbeep else
  72.     writeln(retmsg(749));
  73.   end;
  74.   delay(pause); writeln(retmsg(750)); delay(pause);
  75.   writeln(retmsg(751)); delay(pause); writeln(retmsg(752)); delay(pause);
  76.   writeln(retmsg(753)); delay(pause+pause);
  77. end;
  78.  
  79.  
  80. begin
  81.  
  82. end.
  83.