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