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