home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / SPO110.ZIP / NEED_286.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-12  |  1KB  |  23 lines
  1. Unit      Need_286; Interface
  2. { ------------------------------------------------------------------------- }
  3. { Support module for units optimized by Sally Peephole Optimizer.           }
  4. { Copyright 1993 by Sally I/S.                                              }
  5. {                                                                           }
  6. { Private individuals may distribute compiled versions of this unit as part }
  7. { of their own software provided that the copyright messages are left       }
  8. { intact.                                                                   }
  9. {                                                                           }
  10. { Aborts program if processor is not 286 or better.                         }
  11. { ------------------------------------------------------------------------- }
  12. {$R-,S-,I-,Q-,O-,F-,G-,A+}
  13.  
  14. Implementation
  15. { ------------------------------------------------------------------------- }
  16. Begin
  17.   If Test8086<1 Then Begin
  18.     Writeln('This program requires a 286 cpu or better.');
  19.     Halt($FC);
  20.     Writeln('Portions copyright 1993 by Sally I/S'#13#10);
  21.   End;
  22. End.
  23.