I appreciate all the help.  I have it going now. 

The last trick was to find a version of the LZW program that had PM as a capability.  Once I found that, I was able to complete the restore.

Mark Ranft
Pro 3K


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Stan Sieler
Sent: Sunday, September 25, 2016 2:42 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Real HP3000 Question LZW

Re:

"If you have trouble uncompressing the file with lzw you may need to download again with ftp using the correct file info for an lzw file with a command like

get fname tofname;rec=128,1,f,binary;fcode=2501;disc=500000
...
Depends on what a normal lzw file looks like..."

As it happens, "modern" versions of Telamon's LZW program are well written and adapt to almost any way you uploaded the file from your Mac, PC, Mac, Linux box, Mac, or whatever.

I.e., you do not have to have a specific record size, or filecode.

Example:

   Mac:
      (in ftp to an HP 3000)
      bin                   <--- turn on binary mode
      put foo.lzw

The resulting foo.lzw file might look like:

   FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----

                     SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX


   B                 128W  VB          74     204800   1       80  1  8


Note the lack of filecode, and that it's a variable binary file.

Restoring the files from it (assuming no renaming/retargting),

and assuming just the files in the logon group:


    lzw "-f foo.lzw -r @"


   LZW[pm]: (C) 1991, 2001 - Telamon, Inc. - Version A.03.51 [A.02.04] (Apr  3 2001)

     (Unisys U.S. Patent No. 4,558,302 - see -about for details)

   Restore (Expand) (Local)

   Use archive file: foo.lzw

      --Attempting to convert incorrectly formatted archive

      --Record structure reformatted - processing temporary copy

   CI2.SOURCE.SIELER;REC=-80,3,F,ASCII;NOCCTL;DISC=54,1

...


That said, I still prefer to upload my LZW files and give them a fixed

record structure.

   put foo.lzw foo.lzw;rec=256,1,f,binary;code=665;disc=SOME_NUMBER


where SOME_NUMBER is at least large enough (guideline: do an "ls -l" (or
"dir")

to find the filesize...divide by 512, add 1).


​Stan

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *