home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0803.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  1.1 KB  |  40 lines
  1. Unit OvrThre;
  2. { This is the last unit in the string of several demos.  It   }
  3. { simply interfaces a single procedure, which is called from  }
  4. { the main program.  When called, it will make a call to the  }
  5. { procedure in unit OvrTwo.  It serves no useful purpose      }
  6. { except to introduce the user to an overlayed application.   }
  7.  
  8. {$O+,F+}   { Instruct the compiler this unit can be overlayed }
  9.  
  10. Interface
  11.  
  12. Uses
  13.   Crt, OvrOne, OvrTwo;      { Link in the necessary units.    }
  14.  
  15. Procedure Driver;
  16.  
  17. Implementation
  18.  
  19. Procedure Driver;
  20. { This is the driving procedure for this demo program.  It is }
  21. { called from the main program, and will call each of the     }
  22. { routines in turn.                                           }
  23.  
  24. Var
  25.   Ch : Char;
  26.  
  27. Begin
  28.   OvrTwo1;                  { Call the first overlay          }
  29.   Writeln( 'Returned back to OvrThre.' );
  30.   Writeln( 'Now calling OvrOne directly...' );
  31.   Proc1;                    { Now call it directly instead    }
  32.   Writeln( 'Back in OvrThre.' );
  33.   Writeln( 'Press a key to return to main program.....' );
  34.   Ch := Readkey;
  35. End;
  36.  
  37. End.
  38.  
  39.  
  40.