home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / TFEXMPL.ZIP / PTOLLPAS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  500 b   |  28 lines
  1. { Copyright (c) 1990, Borland International }
  2. Uses Crt;
  3.  
  4. Procedure Route66;
  5. Begin
  6.   Writeln( 'Entering Route 66' );
  7.   Delay(2000);
  8.   Writeln( 'Leaving  Route 66' );
  9. End;
  10.  
  11. Procedure Highway80;
  12. Begin
  13.   Writeln( 'Entering Highway 80' );
  14.   Delay(2000);
  15.   Writeln( 'Leaving  Highway 80' );
  16. End;
  17.  
  18. Begin
  19.   Writeln( 'Entering main' );
  20.   route66;
  21.   Writeln( 'back in main' );
  22.   Delay(1000);
  23.   highway80;
  24.   Writeln( 'back in main' );
  25.   delay(100);
  26.   Writeln( 'Leaving main' );
  27. End.
  28.