home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / TFEXMPL.ZIP / PLOSTPAS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  486 b   |  28 lines
  1. { Copyright (c) 1990, Borland International }
  2. Uses Crt;
  3.  
  4. Procedure Lost_in_town;
  5. Var
  6.   I : integer;
  7. Begin
  8.   writeln( 'Looking for highway...' );
  9.   delay(100);
  10.   for I := 0 to 9 do
  11.   Begin
  12.     Writeln( 'Ask for directions' );
  13.     Writeln( 'Wrong turn' );
  14.     Writeln;
  15.     delay(1000);
  16.   End;
  17.   Writeln( 'on the road again' );
  18. End;
  19.  
  20. Begin
  21.   Writeln( 'Entering Main' );
  22.   Lost_in_town;
  23.   Delay(1000);
  24.   writeln( 'Leaving main' );
  25.   writeln;
  26.   delay(1000);
  27. End.
  28.