home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0809.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  757 b   |  30 lines
  1. Unit Three;
  2. { This is the third unit in this test program.  Like the      }
  3. { units preceding this, its sole purpose is to determine the  }
  4. { order of units within an OVR file.  The routines in this    }
  5. { unit must never be executed, as unpredictable results will  }
  6. { occur.                                                      }
  7.  
  8. {$O+,F+}
  9.  
  10. Interface
  11.  
  12. Uses
  13.   One, A;
  14.  
  15. Procedure Three1;
  16.  
  17. Implementation
  18.  
  19. Procedure Three1;
  20. { This procedure is an example used to determine the order of }
  21. { units within an OVR file.  This routine MUST NEVER BE       }
  22. { EXECUTED, as it could lock the machine.  It establishes a   }
  23. { dependancy on unit A.                                       }
  24. Begin
  25.   Inline( $90/$03/$90 );
  26.   A1;
  27. End;
  28.  
  29. End.
  30.