home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frostbyte's 1980s DOS Shareware Collection
/
floppyshareware.zip
/
floppyshareware
/
DOOG
/
INFOP131.ZIP
/
PAGE_17.INC
< prev
Wrap
Text File
|
1990-09-04
|
883b
|
29 lines
procedure page_17;
var
xbyte: byte;
begin
TextColor(White);
GotoXY((twidth div 2) - 15, 1);
Writeln('Thank You for using INFOPLUS!!');
Writeln;
TextColor(LightCyan);
Writeln(' If you have any questions, bug reports, or suggestions, I can be');
Writeln('reached at the following places:');
Writeln;
TextColor(LightRed);
Writeln('Unix Mail : andyross@ddsw1.MCS.COM');
Writeln('RCS Defender : (708)390-6603 (1200/2400, 2 lines');
Writeln('Beacon : (708)615-0845 (1200/2400)');
Writeln('ddsw1 : (708)808-7300 (1200/2400, 6 lines)');
Writeln(' (708)808-7306 (PEP)');
Window(1, tlength - 2, twidth, tlength - 2);
xbyte:=TextAttr;
TextColor(White);
TextBackground(Brown);
ClrScr;
Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
TextAttr:=xbyte;
end;