home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PASTUT34 / OVRDEMO1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-14  |  712b  |  28 lines
  1.  
  2. { Copyright (c) 1985, 1989 by Borland International, Inc. }
  3.  
  4. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  5. { First overlay unit used by the program OVRDEMO.PAS                }
  6. { One modification made to show on the screen which overlay in use. }
  7. {                                                                   }
  8. { OVRDEMO1.PAS  -> .TPU    R. Shaw       15.4.90                    }
  9. {___________________________________________________________________}
  10.  
  11. {$O+,F+}
  12. unit OvrDemo1;
  13. { This unit is used by OVRDEMO.PAS }
  14.  
  15. interface
  16.  
  17. procedure Write1;
  18.  
  19. implementation
  20.  
  21. procedure Write1;
  22. begin
  23.   Writeln('One...');
  24.   Writeln('OvrDemo1.tpu is in use.');
  25. end;
  26.  
  27. end.
  28.