home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORUM25C.ZIP / TITLEPG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-02  |  3.7 KB  |  121 lines
  1. {$R-,S-,I-,D-,V-,B-,N-,L- }
  2. {$O+}
  3.  
  4. {
  5.     This unit may NOT be modified, and calls to procedure titlepage may NOT 
  6.     be removed from the program. Modification and/or removal constitutes
  7.     violation of the license agreement.
  8. }
  9.  
  10. unit titlepg;
  11.  
  12.  
  13. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  14.  
  15. interface
  16.  
  17. uses crt,
  18.      gentypes,modem,configrt,subs1,mainr2;
  19.  
  20. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  21.  
  22.  
  23. Procedure titlepage;
  24.  
  25.  
  26. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  27.  
  28. implementation
  29.  
  30. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  31.  
  32.  
  33. Procedure titlepage;
  34.  
  35. VAR cnt:integer;
  36.  
  37.   Procedure userinterrupt;
  38.   begin
  39.     window (1,1,80,25);
  40.     textcolor (normbotcolor);
  41.     clrscr
  42.   end;
  43.  
  44.   Function interrupted:boolean;
  45.   VAR b:boolean;
  46.   begin
  47.     b:=carrier or keyhit;
  48.     interrupted:=b;
  49.     if b then userinterrupt
  50.   end;
  51.  
  52. begin
  53.   userinterrupt;
  54.   setparam (usecom,defbaudrate,false);
  55.   setupmodem;
  56.   userinterrupt;
  57.   if interrupted then exit;
  58.   writeln (usr,'                          ╒═════════════════════════╕');
  59.   write (usr,'                          │      ');
  60.   textcolor (normtopcolor);
  61.   write (usr,versionnum);
  62.   textcolor (normbotcolor);
  63.   writeln (usr,'      │');
  64.   writeln (usr,
  65. '    ╒═════════════════════╡ Written by Kenneth Duda ╞═════════════════════╕');
  66.   if interrupted then exit;
  67.   writeln (usr,
  68. '    │                     ╘═════════════════════════╛                     │');
  69.   writeln (usr,
  70. '    │                                                                     │');
  71.   writeln (usr,
  72. '    │ Portions of this program Copyright (C) 1988-89, The Triumvirate     │');
  73.   writeln (usr,
  74. '    │ Version 2.5b by Kevin Boyles.                                       │');
  75.   writeln (usr,
  76. '    │                                                                     │');
  77.   writeln (usr,
  78. '    │ This program, in both source and compiled forms, is the property of │');
  79.   if interrupted then exit;
  80.   writeln (usr,
  81. '    │ Kenneth Duda.  As an authorized user, you have the rights to:       │');
  82.   writeln (usr,
  83. '    │                                                                     │');
  84.   writeln (usr,
  85. '    │    o Run this program on a single machine                           │');
  86.   if interrupted then exit;
  87.   writeln (usr,
  88. '    │    o Copy this program for archival purposes                        │');
  89.   writeln (usr,
  90. '    │    o Modify this program, with the understanding that this program  │');
  91.   if interrupted then exit;
  92.   writeln (usr,
  93. '    │      and modifications remain the property of Kenneth Duda          │');
  94.   writeln (usr,
  95. '    │                                                                     │');
  96.   writeln (usr,
  97. '    │ Rights which you do NOT have include:                               │');
  98.   if interrupted then exit;
  99.   writeln (usr,
  100. '    │                                                                     │');
  101.   writeln (usr,
  102. '    │    o Any form of duplication other than cited above                 │');
  103.   writeln (usr,
  104. '    │    o Any distribution of this program, modified or otherwise, to    │');
  105.   if interrupted then exit;
  106.   writeln (usr,
  107. '    │      be run on any machine other than your own                      │');
  108.   writeln (usr,
  109. '    │                                                                     │');
  110.   writeln (usr,
  111. '    ╘═════════════════════════════════════════════════════════════════════╛');
  112.   for cnt:=1 to 100 do begin
  113.     if interrupted then exit;
  114.     delay(Title_delay)
  115.   end;
  116.   userinterrupt
  117. end;
  118.  
  119. Begin
  120. end.
  121.