From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.0 required=5.0 tests=MAILING_LIST_MULTI
	autolearn=ham autolearn_force=no version=3.4.4
Received: (qmail 9973 invoked from network); 24 Nov 2021 15:45:43 -0000
Received: from minnie.tuhs.org (45.79.103.53)
  by inbox.vuxu.org with ESMTPUTF8; 24 Nov 2021 15:45:43 -0000
Received: by minnie.tuhs.org (Postfix, from userid 112)
	id AA4A194EFD; Thu, 25 Nov 2021 01:45:39 +1000 (AEST)
Received: from minnie.tuhs.org (localhost [127.0.0.1])
	by minnie.tuhs.org (Postfix) with ESMTP id 473E093D29;
	Thu, 25 Nov 2021 01:45:14 +1000 (AEST)
Received: by minnie.tuhs.org (Postfix, from userid 112)
 id 4A60393D29; Thu, 25 Nov 2021 01:45:11 +1000 (AEST)
Received: from mcvoy.com (mcvoy.com [192.169.23.250])
 by minnie.tuhs.org (Postfix) with ESMTPS id 1606593D1B
 for <tuhs@minnie.tuhs.org>; Thu, 25 Nov 2021 01:45:10 +1000 (AEST)
Received: by mcvoy.com (Postfix, from userid 3546)
 id A102F35E41D; Wed, 24 Nov 2021 07:45:09 -0800 (PST)
Date: Wed, 24 Nov 2021 07:45:09 -0800
From: Larry McVoy <lm@mcvoy.com>
To: Richard Salz <rich.salz@gmail.com>
Message-ID: <20211124154509.GM3889@mcvoy.com>
References: <CAKH6PiXtVetBZbyvOiWZFSTvNebSTEuaYkOoUx4KPg4wtdvN8g@mail.gmail.com>
 <b355e6b8-720d-3078-d54a-2beb5ff79bd4@mhorton.net>
 <d5c635f412e50be3740bf13c2380d799@firemail.de>
 <CAFH29tp9Rsrh=YBak1sBv8=BzJobeLyCeN2x3Jio76UGvCRP+A@mail.gmail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <CAFH29tp9Rsrh=YBak1sBv8=BzJobeLyCeN2x3Jio76UGvCRP+A@mail.gmail.com>
User-Agent: Mutt/1.5.24 (2015-08-30)
Subject: Re: [TUHS] Book Recommendation
X-BeenThere: tuhs@minnie.tuhs.org
X-Mailman-Version: 2.1.26
Precedence: list
List-Id: The Unix Heritage Society mailing list <tuhs.minnie.tuhs.org>
List-Unsubscribe: <https://minnie.tuhs.org/cgi-bin/mailman/options/tuhs>,
 <mailto:tuhs-request@minnie.tuhs.org?subject=unsubscribe>
List-Archive: <http://minnie.tuhs.org/pipermail/tuhs/>
List-Post: <mailto:tuhs@minnie.tuhs.org>
List-Help: <mailto:tuhs-request@minnie.tuhs.org?subject=help>
List-Subscribe: <https://minnie.tuhs.org/cgi-bin/mailman/listinfo/tuhs>,
 <mailto:tuhs-request@minnie.tuhs.org?subject=subscribe>
Cc: TUHS main list <tuhs@minnie.tuhs.org>
Errors-To: tuhs-bounces@minnie.tuhs.org
Sender: "TUHS" <tuhs-bounces@minnie.tuhs.org>

Say hi to Barry for me, I knew him back in the UUCP days, he was always
pleasant.

That bit of PL/1 is nuts but funny.

On Wed, Nov 24, 2021 at 10:18:56AM -0500, Richard Salz wrote:
> I asked my pal Barry Shein, who many of you know, if he had his PL/1 syntax
> horror lying around, and he did.  He said: "this was tested on the Iron
> Spring Software PL/1 compiler running on openSuSe Linux (
> http://www.iron-spring.com/)"
> 
> IBM still uses PL/1.  Remember, the main definition of "legacy" is
> "revenue-producing."
> 
> TRY:PROC OPTIONS(MAIN);
>    DCL (IF,THEN,ELSE) FIXED BINARY (31);
> 
>    IF = 1;
>    THEN = 2;
>    ELSE = 3;
> 
>    IF IF = THEN THEN THEN = IF ; ELSE ELSE = THEN;
> 
> END TRY;

-- 
---
Larry McVoy            	     lm at mcvoy.com             http://www.mcvoy.com/lm