home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 276.img / FORUM21S.ZIP / TITLEPG.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-13  |  3KB  |  98 lines
  1. {$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
  2. {$M 65500,0,0 }
  3.  
  4. {
  5.    Please do not modify this module!  Thanks...
  6. }
  7.  
  8. unit titlepg;
  9.  
  10. interface
  11.  
  12. uses crt,
  13.      gentypes,modem,configrt,subs1,mainr2;
  14.  
  15. procedure titlepage;
  16.  
  17. implementation
  18.  
  19. procedure titlepage;
  20.  
  21. var cnt:integer;
  22.  
  23. procedure userinterrupt;
  24. begin
  25.   window (1,1,80,25);
  26.   textcolor (normbotcolor);
  27.   clrscr
  28. end;
  29.  
  30. function interrupted:boolean;
  31. var b:boolean;
  32. begin
  33.   b:=carrier or keyhit;
  34.   interrupted:=b;
  35.   if b then userinterrupt
  36. end;
  37.  
  38. begin
  39.   userinterrupt;
  40.   if interrupted then exit;
  41.   writeln (usr,'                      ╒═════════════════════════╕');
  42.   write (usr,'                      │      ');
  43.   textcolor (normtopcolor);
  44.   write (usr,versionnum);
  45.   textcolor (normbotcolor);
  46.   writeln (usr,'      │');
  47.   writeln (usr,
  48. '╒═════════════════════╡ Written by Kenneth Duda ╞═════════════════════╕');
  49.   if interrupted then exit;
  50.   writeln (usr,
  51. '│                     ╘═════════════════════════╛                     │');
  52.   writeln (usr,
  53. '│                                                                     │');
  54.   writeln (usr,
  55. '│ This program, in both source and compiled forms, is the property of │');
  56.   if interrupted then exit;
  57.   writeln (usr,
  58. '│ Kenneth Duda.  As an authorized user, you have the rights to:       │');
  59.   writeln (usr,
  60. '│                                                                     │');
  61.   writeln (usr,
  62. '│    o Run this program on a single machine                           │');
  63.   if interrupted then exit;
  64.   writeln (usr,
  65. '│    o Copy this program for archival purposes                        │');
  66.   writeln (usr,
  67. '│    o Modify this program, with the understanding that this program  │');
  68.   if interrupted then exit;
  69.   writeln (usr,
  70. '│      and modifications remain the property of Kenneth Duda          │');
  71.   writeln (usr,
  72. '│                                                                     │');
  73.   writeln (usr,
  74. '│ Rights which you do NOT have include:                               │');
  75.   if interrupted then exit;
  76.   writeln (usr,
  77. '│                                                                     │');
  78.   writeln (usr,
  79. '│    o Any form of duplication other than cited above                 │');
  80.   writeln (usr,
  81. '│    o Any distribution of this program, modified or otherwise, to    │');
  82.   if interrupted then exit;
  83.   writeln (usr,
  84. '│      be run on any machine other than your own                      │');
  85.   writeln (usr,
  86. '│                                                                     │');
  87.   writeln (usr,
  88. '╘═════════════════════════════════════════════════════════════════════╛');
  89.   for cnt:=1 to 100 do begin
  90.     if interrupted then exit;
  91.     delay (250)
  92.   end;
  93.   userinterrupt
  94. end;
  95.  
  96. begin
  97. end.
  98.