Program MulTest;
{
 Copyright (c) 1992 A.B.S. - All Rights Reserved

 1.00
 1.01  Minor Changes
 1.10  Updated for new MulAware
}

{$A-,B-,D-,F-,I-,N-,O-,R-,S-,V-,X-}

{$M 1024,0,0}

Uses
  MulAware;

Procedure DoTV;
Var
  Version : Word;
Begin
  Version := MulVersion;
  If Version <> 0 then Write('TopView v', Hi(MulVersion), '.', Lo(MulVersion))
  else Write('TaskView, DESQview 2.00-2.25, OmniView, or Compatible');
End;

Begin
  WriteLn;
  WriteLn('MulTest 1.10 (c) 1992 A.B.S.');
  WriteLn;
  Case MultiTasker of
    None         : Write('No Supported MultiTasker');
    DESQview     : Write('DESQview v', Hi(MulVersion), '.', Lo(MulVersion));
    WinEnh       : Write('Windows v3.', Lo(MulVersion), ' in Enhanced Mode');
    OS2          : Write('OS/2 v', Hi(MulVersion), '.', Lo(MulVersion));
    DoubleDOS    : Write('DoubleDOS');
    TopView      : DoTV;
    Win386       : Write('Windows 386 v2.xx');
    TaskSwitcher : Write('DOS 5.0 Task Switcher or Compatible');
    WinStandard  : Write('Windows 2.xx or 3.x in Real or Standard Mode');
  end;
  WriteLn(' Detected');
  WriteLn;
  Halt(Ord(MultiTasker));
End.