Program Demo_DDUtil_Package;

Uses Crt,DDUtils;

Var
   Test1:Integer;
   TChar:Char;

Begin
   If Not DDActive Then
   Begin
      WriteLn('DoubleDOS not activated.  Aborting!');
      Halt(0);
   End;
   DirectVideo := False; { Turn Off Direct Screen Writes For Multi-Tasker }
   WriteLn('DoubleDOS detected.');
   Test1 := Task_Number;
   Case Task_Number Of
        0:WriteLn('Top Memory Partition');
        1:WriteLn('Bottom Memory Partition');
   End;
   WriteLn;
   WriteLn('Giving up 110 milliseconds (for no reason).');
   Give_Time(2);  { Give up 110 milliseconds }
   WriteLn;
   WriteLn('Current TimeSharing Is At: ');
   Case Current_TimeShare Of
        0:WriteLn('Visible Program Gets 70%, Invisible Gets 30% (Default)');
        1:WriteLn('Visible Program Gets 50%, Invisible Gets 50% of Time.');
        2:WriteLn('Visible Program Gets 30%, Invisible Gets 70% of Time.');
        3:WriteLn('Top Program Gets 70%, Bottom Program Gets 30% of Time.');
        4:WriteLn('Top Program Gets 30%, Bottom Program Gets 70% of Time.');
   End;
   WriteLn;
   WriteLn('Press A Key To Switch Partitions.');
   TChar := ReadKey;
   Switch;
End.