home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / INFOP125.ZIP / PAGE_00.INC < prev    next >
Encoding:
Text File  |  1990-08-10  |  2.0 KB  |  62 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, 8, twidth, 9);
  20.   TextColor(LightCyan);
  21.   for x:=1 to twidth do
  22.     Write(#220);
  23.   Window(1, 9, (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.   Write('Page 8  - Parallel/Serial Port Info');
  34.   Window((twidth div 2) + 1, 9, twidth, tlength - 2);
  35.   Writeln('Page 9  - DOS Information');
  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.   Write('Page 17 - Thanks');
  44.   Window(1, 18, twidth, 19);
  45.   TextColor(LightCyan);
  46.   for x:=1 to twidth do
  47.     Write(#220);
  48.   Window(1, 1, twidth, tlength);
  49.   x:=twidth div 2;
  50.   for y:=9 to 18 do
  51.     begin
  52.     GotoXY(x, y);
  53.     Write(#219);
  54.     end;
  55.   Window(1, 19, twidth, tlength - 1);
  56.   TextColor(Yellow);
  57.   Writeln;
  58.   Center('INFOPLUS - ' + qversion);
  59.   Center('by Andrew Rossmann, ' + qdate);
  60.   Center('Based on SYSID 4.4, by Steve Grant');
  61.   Center('Released to the Public Domain');
  62.   end;