option nolist

comment  You need:     UHAUL (A.00.16)  HP utility or later

comment

comment  Upload this ASCII file to your HP;rec=-72,1,F,ASCII

comment

comment  Upload UHAUL truckfile "WWWMPE40";rec=128,1,U,BINARY;code=72

comment

comment  Execute this MPE command file: WWWUNPAC

comment

comment  Follow directions - that is it.

comment

comment

setvar version, " 95.01.18"

setvar checksum," 41665 151 "

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

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

echo **

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

echo ** 'UHAUL' or 'GLUNPACK' and run it to unpack the WWW files.

echo **

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

echo **

 

purge wwwlst,temp >$null

setvar uhaul_prog,""

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

continue

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

file wwwlst,oldtemp;acc=append

continue

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

continue

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

 

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

  input www_ln <wwwlst

  setvar www_ln, Rtrim(www_ln)

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

    setvar www_rs,"Y"

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

    setvar www_rs,ltrim(www_rs)

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

      setvar uhaul_prog,"RUN !www_ln"

    endif

  endif

endwhile

 

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 UHAUL prompts ***********************************

echo **

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

echo **

echo **                                   Answer 'UNLOAD' or 'LIST'

echo **

echo ** ENTER THE NAME OF YOUR TRUCK

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

echo **

echo **             Answer 'WWWMPE40' (or name of your uploaded file)

echo **

echo ** Good luck!

echo **

echo

setvar www_rs,"N"

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

setvar www_rs,ltrim(www_rs)

if lft(ups(www_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 ***************************************************************