home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Masterblend / cdsharewaremasterblend.iso / utils / infoplus / page_00.pas < prev    next >
Pascal/Delphi Source File  |  1990-12-08  |  2KB  |  63 lines
  1. procedure page_00;
  2.   var
  3.     x, y: word;
  4.  
  5.   procedure center(s: string);
  6.     begin
  7.     GotoXY((twidth div 2) - (Length(s) div 2), WhereY);
  8.     Writeln(s)
  9.     end;
  10.  
  11.   begin
  12.   TextColor(LightGreen);
  13.   Window((twidth div 2) - 16, 3, (twidth div 2) + 17, 8);
  14.   Writeln('█████  █   █  █████  █████       ');
  15.   Writeln('  █    ██  █  █      █   █    █  ');
  16.   Writeln('  █    █ █ █  ███    █   █  █████');
  17.   Writeln('  █    █  ██  █      █   █    █  ');
  18.   Writeln('█████  █   █  █      █████       ');
  19.   Window(1, (tlength div 2) - 4, twidth, (tlength div 2) - 3);
  20.   TextColor(LightCyan);
  21.   for x:=1 to twidth do
  22.     Write(#220);
  23.   Window(1, (tlength div 2) - 3, (twidth div 2) - 1, tlength - 2);
  24.   TextColor(White);
  25.   Writeln('Page 0  - Table of Contents');
  26.   Writeln('Page 1  - Machine & ROM Identification');
  27.   Writeln('Page 2  - CPU and FPU Identification');
  28.   Writeln('Page 3  - RAM type Identification');
  29.   Writeln('Page 4  - List of Memory Blocks');
  30.   Writeln('Page 5  - Video Identification');
  31.   Writeln('Page 6  - Video Information');
  32.   Writeln('Page 7  - Keyboard & Mouse Information');
  33.   Writeln('Page 8  - Parallel/Serial Port Info');
  34.   Write('Page 9  - DOS Information');
  35.   Window((twidth div 2) + 1, (tlength div 2) - 3, twidth, tlength - 2);
  36.   Writeln('Page 10 - Multiplex Programs');
  37.   Writeln('Page 11 - Environment Variables');
  38.   Writeln('Page 12 - Device Drivers');
  39.   Writeln('Page 13 - DOS Drive Information');
  40.   Writeln('Page 14 - BIOS Drive Information');
  41.   Writeln('Page 15 - Partition Table Listing');
  42.   Writeln('Page 16 - Boot & DOS Drive Parameters');
  43.   Writeln('Page 17 - CMOS Information');
  44.   Write('Page 18 - Thanks');
  45.   Window(1, (tlength div 2) + 7, twidth, (tlength div 2) + 8);
  46.   TextColor(LightCyan);
  47.   for x:=1 to twidth do
  48.     Write(#220);
  49.   Window(1, 1, twidth, tlength);
  50.   x:=twidth div 2;
  51.   for y:=(tlength div 2) - 3 to (tlength div 2) + 7 do
  52.     begin
  53.     GotoXY(x, y);
  54.     Write(#219);
  55.     end;
  56.   Window(1, tlength - 6, twidth, tlength - 1);
  57.   TextColor(Yellow);
  58.   Writeln;
  59.   Center('INFOPLUS - ' + qversion);
  60.   Center('by Andrew Rossmann, ' + qdate);
  61.   Center('Based on SYSID 4.44, by Steve Grant');
  62.   Center('Released to the Public Domain');
  63.   end;