home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
270.img
/
FORUM25C.ZIP
/
TITLEPG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-02
|
4KB
|
121 lines
{$R-,S-,I-,D-,V-,B-,N-,L- }
{$O+}
{
This unit may NOT be modified, and calls to procedure titlepage may NOT
be removed from the program. Modification and/or removal constitutes
violation of the license agreement.
}
unit titlepg;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
interface
uses crt,
gentypes,modem,configrt,subs1,mainr2;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
Procedure titlepage;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
implementation
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
Procedure titlepage;
VAR cnt:integer;
Procedure userinterrupt;
begin
window (1,1,80,25);
textcolor (normbotcolor);
clrscr
end;
Function interrupted:boolean;
VAR b:boolean;
begin
b:=carrier or keyhit;
interrupted:=b;
if b then userinterrupt
end;
begin
userinterrupt;
setparam (usecom,defbaudrate,false);
setupmodem;
userinterrupt;
if interrupted then exit;
writeln (usr,' ╒═════════════════════════╕');
write (usr,' │ ');
textcolor (normtopcolor);
write (usr,versionnum);
textcolor (normbotcolor);
writeln (usr,' │');
writeln (usr,
' ╒═════════════════════╡ Written by Kenneth Duda ╞═════════════════════╕');
if interrupted then exit;
writeln (usr,
' │ ╘═════════════════════════╛ │');
writeln (usr,
' │ │');
writeln (usr,
' │ Portions of this program Copyright (C) 1988-89, The Triumvirate │');
writeln (usr,
' │ Version 2.5b by Kevin Boyles. │');
writeln (usr,
' │ │');
writeln (usr,
' │ This program, in both source and compiled forms, is the property of │');
if interrupted then exit;
writeln (usr,
' │ Kenneth Duda. As an authorized user, you have the rights to: │');
writeln (usr,
' │ │');
writeln (usr,
' │ o Run this program on a single machine │');
if interrupted then exit;
writeln (usr,
' │ o Copy this program for archival purposes │');
writeln (usr,
' │ o Modify this program, with the understanding that this program │');
if interrupted then exit;
writeln (usr,
' │ and modifications remain the property of Kenneth Duda │');
writeln (usr,
' │ │');
writeln (usr,
' │ Rights which you do NOT have include: │');
if interrupted then exit;
writeln (usr,
' │ │');
writeln (usr,
' │ o Any form of duplication other than cited above │');
writeln (usr,
' │ o Any distribution of this program, modified or otherwise, to │');
if interrupted then exit;
writeln (usr,
' │ be run on any machine other than your own │');
writeln (usr,
' │ │');
writeln (usr,
' ╘═════════════════════════════════════════════════════════════════════╛');
for cnt:=1 to 100 do begin
if interrupted then exit;
delay(Title_delay)
end;
userinterrupt
end;
Begin
end.