option nolist

setvar version, " 95.10.17"

comment CHECKSUM FOR TRUCK FILE NQTELNET:

setvar checksum," 57196 557 "

echo ******************************************************************

echo ** NQTELNET !version MPE Command File to unload packaged files.

echo ******************************************************************



if finfo("glunpack.pub.sys", 0)  and &

   finfo("glunpack.pub.sys", -9) = 1029 then

    setvar uhaul_prog,"RUN GLUNPACK.PUB.SYS"

else

echo **

echo ** This command file will search your system for the HP utility

echo ** 'GLUNPACK' or 'UHAUL' and run it to unpack the NQTELNET file.

echo **

echo ** Performing LISTF now...please wait.

echo **

purge nqtlst,temp >$null

setvar uhaul_prog,""

file nqtlst,new;msg;temp;rec=-80,1,V,ASCII;nocctl

continue

LISTF GLUNPACK.@.SYS,6;*nqtlst  >$null

file nqtlst,oldtemp;acc=append

continue

LISTF UHAUL.@.SYS,6;*nqtlst     >$null

continue

LISTF UHAUL.@.TELESUP,6;*nqtlst >$null



while finfo("nqtlst",19)<>0 and uhaul_prog="" do

  input nqt_ln <nqtlst

  setvar nqt_ln, Rtrim(nqt_ln)

  if finfo("!nqt_ln",-9) = 1029 then

    setvar nqt_rs,"Y"

    input nqt_rs; prompt="Found '!nqt_ln', run it (Y/N) ?"

    setvar nqt_rs,ltrim(nqt_rs)

    if nqt_rs = "" or lft(ups(nqt_rs),1)="Y" then

      setvar uhaul_prog,"RUN !nqt_ln"

    endif

  endif

endwhile

endif



if uhaul_prog="" then

 echo **

 echo ** Sorry, can't find GLUNPACK or UHAUL on your system

 echo ** Maybe contact HP to get a copy or ask a friend....

 echo **

 return

endif



echo

echo ****** Answers to prompts ***********************************

echo **

echo ** DO YOU WANT TO LOAD, UNLOAD OR LIST FILES ?

echo **                                     Answer 'UNLOAD' or 'LIST'

echo **

echo ** ENTER THE NAME OF YOUR TRUCK

echo **   (THE DISC FILE YOU WANT TO UNLOAD FROM)

echo **                                     Answer 'NQTELNET'

echo **

echo ** Good luck!

echo

setvar nqt_rs,"N"

input nqt_rs; prompt="Replace existing 'NQT*' files (N/Y) ?"

setvar nqt_rs,ltrim(nqt_rs)

if lft(ups(nqt_rs),1)="Y" then

  setvar uhaul_prog, uhaul_prog + ";PARM=1"

endif

!uhaul_prog

echo ************************* IMPORTANT ***************************

echo **                                                           **

echo **     Checksum for Version !version is [ !checksum  ]

echo **                                                           **

echo ** IF CHECKSUMS DON'T MATCH YOUR UNLOAD, FILE IS CORRUPT!    **

echo **                                                           **

echo ** Edit 'NQTELCMD' file to setup logons under NQtelnet.      **

echo **                 NS/3000 method is prefered.               **

echo **                                                           **

echo ** Edit 'NQTJOB'   to setup background job.                  **

echo **                                                           **

echo ***************************************************************