proc main
   string sPWZipPath, sCmdLine, sTargetPath, sZipName, sSourceFile
   integer iRunTaskID

   sZipName = "PWZIP.EXE"
   sPWZipPath = $PWTASKPATH                  ;Setup the needed paths
   sTargetPath =                             ;Path to unzip ZIP contents to
   sSourceFile =                             ;Source ZIP file

   addfilename sPWZipPath sZipName           ;Build the execute statement
   strfmt sCmdLine "%s %s`x01 %s`x01 -o" sPWZipPath sSourceFile sTargetPath

   run sCmdLine iRunTaskID                   ;Run PWZIP
   while taskexists iRunTaskID               ;Wait for PWZIP to finish
      yield
   endwhile
endproc