home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
276.img
/
FORUM21S.ZIP
/
TITLEPG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
3KB
|
98 lines
{$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
{$M 65500,0,0 }
{
Please do not modify this module! Thanks...
}
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;
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,
'│ 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 (250)
end;
userinterrupt
end;
begin
end.