There is a bug in the sample PASCAL program included as part of the INFO
LPUNCH memo. Since we have no PC to VM connection, I had to re-key the program
completely on the VM machine and sure enough, it's easy to get your finger on
the '2' when you aimed for '1'... I have updated LISTLPUN MEMO of course.
 
  Thanks for letting me know, Jim. /Eric
 
/../
 
>Date:      Fri,  1 May 87 18:05:51 PDT
>To:        <ERIC@FRECP11>
>From:      "Jim Celoni S.J." <[log in to unmask]>
>Subject:   Bug in Info LPunch program
>
>I just saw an LPUNCH file the first time (upon receiving TEX FILELIST)
>and followed the preamble's advice in sending for INFO LPUNCH.  The
>LISTLPUN MEMO explanation and Turbo Pascal program is also an LPUNCH
>file, but, thanks to Kermit and FinalWord II, I extracted the program
>and ran it on an IBM compatible under Borland's Turbo Pascal 3.02A.
>No luck.
>
>The changes below (in Unix diff format) were enough to make it work
>for me; perhaps you'd like to update LISTLPUN MEMO?
>
>Thanks.  +j
>
>
>104c104
><     rewrite(cardfile);
>---
>>     rewrite(outfile);
>177c177
><     for i:=1 to Length(s) do Outchar(Substr(s,i,2));
>---
>>     for i:=1 to Length(s) do Outchar(Substr(s,i,1));
>
>[end of diffs]
>-------