home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPMUL330.ZIP / MULTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-02  |  1.3 KB  |  45 lines
  1. Program MulTest;
  2. {
  3.  Copyright (c) 1992 A.B.S. - All Rights Reserved
  4.  
  5.  1.00
  6.  1.01  Minor Changes
  7.  1.10  Updated for new MulAware
  8.  2.00  Complete Rewrite
  9.  2.10  Updated for new MulAware
  10.  2.20  Updated for new MulAware
  11. }
  12.  
  13. {$A-,B-,D-,F-,I-,N-,O-,R-,S-,V-,X-}
  14.  
  15. {$M 1024,0,0}
  16.  
  17. Uses
  18.   MulAware;
  19.  
  20. Begin
  21.   WriteLn;
  22.   WriteLn('MulTest 2.20 Copyright (c) 1992 A.B.S.');
  23.   WriteLn;
  24.   Case MultiTasker of
  25.     None         : Write('No Supported MultiTasker');
  26.     DESQview     : Write('DESQview v', Hi(MulVersion), '.', Lo(MulVersion));
  27.     WinEnh       : Write('Windows v3.', Lo(MulVersion), ' in Enhanced Mode');
  28.     OS2          : Write('OS/2 v', Hi(MulVersion), '.', Lo(MulVersion));
  29.     DoubleDOS    : Write('DoubleDOS');
  30.     MultiDos     : Write('MultiDos Plus');
  31.     VMiX         : Write('VMiX v', Hi(MulVersion), '.', Lo(MulVersion));
  32.     TopView      : begin
  33.                      If MulVersion <> 0 then
  34.                         Write('TopView v', Hi(MulVersion), '.', Lo(MulVersion))
  35.                      Else
  36.                         Write('TaskView, DESQview 2.00-2.25, OmniView, or Compatible');
  37.                    end;
  38.     TaskSwitcher : Write('DOS 5.0 Task Switcher or Compatible');
  39.     WinStandard  : Write('Windows 2.xx or 3.x in Real or Standard Mode');
  40.   end;
  41.   WriteLn(' Detected');
  42.   WriteLn;
  43.   Halt(Ord(MultiTasker));
  44. End.
  45.