home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0808.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  532 b   |  24 lines
  1. Unit Two;
  2. { Second unit in example program.  This unit will make a      }
  3. { "call" to the procedure in unit one.  This establishes a    }
  4. { dependancy by unit two upon unit one.                       }
  5.  
  6. {$O+,F+}
  7.  
  8. Interface
  9.  
  10. Procedure Two1;
  11.  
  12. Implementation
  13.  
  14. Procedure Two1;
  15. { This routine MUST NEVER BE EXECUTED!  It is a useless       }
  16. { procedure, whose only purpose is to determine the order of  }
  17. { units within an OVR file.                                   }
  18.  
  19. Begin
  20.   Inline( $90/$02/$90 );
  21. End;
  22.  
  23. End.
  24.