home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / diagnose / ifp1s155.arj / PAGE_00.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-21  |  2KB  |  60 lines
  1. unit page_00;
  2.  
  3. interface
  4.  
  5. uses Crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page00;
  8.  
  9. implementation
  10.  
  11. procedure page00;
  12.   var
  13.     x, y: word;
  14.  
  15.   procedure center(s: string);
  16.     begin
  17.     GotoXY((twidth div 2) - (Length(s) div 2), WhereY);
  18.     Writeln(s)
  19.     end;
  20.  
  21.   begin
  22.   TextColor(LightGreen);
  23.   Window((twidth div 2) - 16, 3, (twidth div 2) + 17, 8);
  24.   Writeln('█████  █   █  █████  █████       ');
  25.   Writeln('  █    ██  █  █      █   █    █  ');
  26.   Writeln('  █    █ █ █  ███    █   █  █████');
  27.   Writeln('  █    █  ██  █      █   █    █  ');
  28.   Writeln('█████  █   █  █      █████       ');
  29.   Window(1, (tlength div 2) - 4, twidth, (tlength div 2) - 3);
  30.   TextColor(LightCyan);
  31.   for x:=1 to twidth do
  32.     Write(#220);
  33.   Window(1, (tlength div 2) - 3, (twidth div 2) - 1, tlength - 2);
  34.   TextColor(White);
  35.   for x:= 0 to 9 do
  36.     Writeln('Page ', x, '  - ', pgnames[x]);
  37.   Write('Page 10 - ', pgnames[10]);
  38.   Window((twidth div 2) + 1, (tlength div 2) - 3, twidth, tlength - 2);
  39.   for x:=11 to 20 do
  40.     Writeln('Page ', x, ' - ', pgnames[x]);
  41.   Write('Page 21 - ', pgnames[21]);
  42.   Window(1, (tlength div 2) + 8, twidth, (tlength div 2) + 9);
  43.   TextColor(LightCyan);
  44.   for x:=1 to twidth do
  45.     Write(#220);
  46.   Window(1, 1, twidth, tlength);
  47.   x:=twidth div 2;
  48.   for y:=(tlength div 2) - 3 to (tlength div 2) + 8 do
  49.     begin
  50.     GotoXY(x, y);
  51.     Write(#219);
  52.     end;
  53.   Window(1, tlength - 5, twidth, tlength - 1);
  54.   TextColor(Yellow);
  55.   Writeln;
  56.   Center('INFOPLUS - ' + qversion + ' by Andrew Rossmann, ' + qdate);
  57.   Center('Based on SYSID 4.44, by Steve Grant');
  58.   Center('Released to the Public Domain');
  59.   end;
  60. end.