home *** CD-ROM | disk | FTP | other *** search
- {--------------------------------------------------------------}
- { Main }
- { }
- { Exit procedure chaining demonstration program }
- { }
- { by Jeff Duntemann }
- { Turbo Pascal V4.0 }
- { Last update 7/1/88 }
- { }
- { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann }
- { Scott, Foresman & Co., Inc. 1988 ISBN 0-673-38355-5 }
- {--------------------------------------------------------------}
-
- PROGRAM Main;
-
- USES Unit1,Unit2,Unit3;
-
- BEGIN
- Writeln('Main program execution begins here.');
- Writeln('Main program execution ends here.');
- END.