home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / INFOP140.ZIP / PAGE_18.INC < prev    next >
Text File  |  1990-11-12  |  1KB  |  33 lines
  1. procedure page_18;
  2.   var
  3.     xbyte: byte;
  4.  
  5.   begin
  6.   TextColor(White);
  7.   GotoXY((twidth div 2) - 15, 1);
  8.   Writeln('Thank You for using INFOPLUS!!');
  9.   Writeln;
  10.   TextColor(LightCyan);
  11.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  12.   Writeln('reached at the following places:');
  13.   Writeln;
  14.   TextColor(LightRed);
  15.   Writeln('Internet Mail  : andyross@ddsw1.MCS.COM');
  16.   Writeln('Unix Mail      : ..!uunet!gargoyle!igloo!infopls!andyross');
  17.   Writeln('RelayNet Mail  : ->METASYS');
  18.   Writeln('Infoplus BBS   : (708)537-0247 (1200/2400)');
  19.   Writeln('RCS Defender   : (708)390-6603 (1200/2400, 2 lines)');
  20.   Writeln('Mainframe      : (708)364-0425 (1200/2400/9600 HST)');
  21.   Writeln('Beacon         : (708)615-0845 (1200/2400)');
  22.   Writeln('ddsw1          : (708)808-7300 (1200/2400, 6 lines)');
  23.   Writeln('                 (708)808-7305 (PEP)');
  24.   Window(1, tlength - 2, twidth, tlength - 2);
  25.   xbyte:=TextAttr;
  26.   TextColor(White);
  27.   TextBackground(Brown);
  28.   ClrScr;
  29.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  30.   TextAttr:=xbyte;
  31.   end;
  32.  
  33.