home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / top2src.zip / TOPLINK.ZIP / MULTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1992-11-22  |  2KB  |  65 lines
  1. Program MulTest;
  2. {
  3.  Copyright (c) 1992 ABSoft - 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.  3.00  Updated for TP 7.0 & BP 7.0
  12.        To Compile in Protected Mode:
  13.        BPC /CP /DPMODE MULTEST
  14. }
  15.  
  16. {$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
  17.  
  18. {$IFDEF VER70}
  19.   {$P-,Q-,T-,Y-}
  20. {$ENDIF}
  21.  
  22. {$IFDEF PMODE}
  23.   {$G+}
  24. {$ENDIF}
  25.  
  26. {$M 1024,0,0}
  27.  
  28. Uses
  29.   MulAware;
  30.  
  31. Const
  32. {$IFDEF PMODE}
  33.   Version = '3.00p';
  34. {$ELSE}
  35.   Version = '3.00';
  36. {$ENDIF}
  37.  
  38. Begin
  39.   WriteLn;
  40.   WriteLn('MulTest ', Version, ' Copyright (c) 1992 ABSoft');
  41.   WriteLn;
  42.   Case MultiTasker of
  43.     None         : Write('No Supported MultiTasker');
  44.     DESQview     : Write('DESQview v', Hi(MulVersion), '.', Lo(MulVersion));
  45.     WinEnh       : Write('Windows v3.', Lo(MulVersion), ' in Enhanced Mode');
  46.     OS2          : Write('OS/2 v', Hi(MulVersion), '.', Lo(MulVersion));
  47.     DoubleDOS    : Write('DoubleDOS');
  48.     MultiDos     : Write('MultiDos Plus');
  49.     VMiX         : Write('VMiX v', Hi(MulVersion), '.', Lo(MulVersion));
  50.     TopView      : begin
  51.                      If MulVersion <> 0 then
  52.                         Write('TopView v', Hi(MulVersion), '.', Lo(MulVersion))
  53.                      Else
  54.                         Write('TaskView, DESQview 2.00-2.25, OmniView, or Compatible');
  55.                    end;
  56.     TaskSwitcher : Write('DOS 5.0 Task Switcher or Compatible');
  57.     WinStandard  : Write('Windows 2.xx or 3.x in Real or Standard Mode');
  58.     WinNT        : Write('Windows NT');
  59.   end;
  60.   WriteLn(' Detected');
  61.   WriteLn;
  62.   TimeSlice;
  63.   Halt(Ord(MultiTasker));
  64. End.
  65.