misc/SWAPTEST.PAS

program swaptest;
        uses crt,dos,swapunit;
 begin
 UseEmsIfAvailable := true;
 If InitExecSwap(HeapPtr,'C:\UTILS\SWAP.$$$') then
  begin
  ExecWithSwap(GetEnv('COMSPEC'),'');
  ShutDownExecSwap
  end;
 end.