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=-0.8 required=5.0 tests=DKIM_ADSP_CUSTOM_MED,
	DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI
	autolearn=ham autolearn_force=no version=3.4.4
Received: (qmail 12736 invoked from network); 24 Nov 2021 20:28:23 -0000
Received: from minnie.tuhs.org (45.79.103.53)
  by inbox.vuxu.org with ESMTPUTF8; 24 Nov 2021 20:28:23 -0000
Received: by minnie.tuhs.org (Postfix, from userid 112)
	id 3CC749C209; Thu, 25 Nov 2021 06:28:20 +1000 (AEST)
Received: from minnie.tuhs.org (localhost [127.0.0.1])
	by minnie.tuhs.org (Postfix) with ESMTP id 4D76593D29;
	Thu, 25 Nov 2021 06:28:06 +1000 (AEST)
Authentication-Results: minnie.tuhs.org;
	dkim=fail reason="signature verification failed" (2048-bit key; unprotected) header.d=gmail.com header.i=@gmail.com header.b="VGEQxUT1";
	dkim-atps=neutral
Received: by minnie.tuhs.org (Postfix, from userid 112)
 id 6CCA893D29; Thu, 25 Nov 2021 06:28:04 +1000 (AEST)
Received: from mail-pj1-f47.google.com (mail-pj1-f47.google.com
 [209.85.216.47])
 by minnie.tuhs.org (Postfix) with ESMTPS id 0186793D1B
 for <tuhs@minnie.tuhs.org>; Thu, 25 Nov 2021 06:28:04 +1000 (AEST)
Received: by mail-pj1-f47.google.com with SMTP id x7so3468822pjn.0
 for <tuhs@minnie.tuhs.org>; Wed, 24 Nov 2021 12:28:03 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112;
 h=mime-version:references:in-reply-to:from:date:message-id:subject:to
 :cc; bh=Y94mGKXPoWEoiSEDcS1avRS0GaMeAcaHolAhrr6HR0A=;
 b=VGEQxUT1t8R15I/YoDppJfbGmn1AQrzI5wAV9UPQqyUoRUk5iCiPVvHSWHoKkWoia2
 Kl0pbLhfEl4eEEJq6Xia108nJchvHM5U9mD9h4yrYKP1L00jytFssz0woB3YjTsdfouM
 /1xJzpgGbK+cwrhaPiqgXSZFZuiHVz5n3F1dfRaRZccHlvXVZb9O9+7Rwc7xJmQis4ZQ
 UUGtKg2B9tqYHpJxO1ELUel9cOxn/TGXIsh0za4PtT/c55DYuB+glt/kxfH7KET1GbdY
 zZAOXPEk8wYbrVbC6J6CaX1BLZ5/JLZU3NIxndNrCa9DNvAT6SavyeloEfuz7n8YJZSr
 RxqA==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20210112;
 h=x-gm-message-state:mime-version:references:in-reply-to:from:date
 :message-id:subject:to:cc;
 bh=Y94mGKXPoWEoiSEDcS1avRS0GaMeAcaHolAhrr6HR0A=;
 b=sP0+L2CpJzhMGFJz7c9nMKLyG3aNUrsyjqkeWfTCQiZXxfJoOf8S1LfnTUUbPgAFTm
 D2Z2vxHtKywivDpuUQxUgBrLIZ35fnk7syqHW7JkYgocZ8KBkKXvM3IAyDi13Y2tUEwI
 MiV20FizQg734VpbsmS0LhL+9P2PEbPJGBd0XuPFxePAMMSBumANntx/kp4CexPAopy0
 8Dn94r/1gQW2HL8Z4NZA2gVssIn5AAsVLolOyq2k23+iGLjv7plQXeA8isVywlByofgU
 H0a1h0Xfj7JSBX51GUKyxEHbJ1FAQLgUGMgvyzPxcfRai/nVyV6eL9xvgRp1e59C87zE
 ISjg==
X-Gm-Message-State: AOAM531F/mR1OD+j6SqTGS8Rpv1AwrpoybA3cz+qh4yahOlj6IgihgIv
 HTlzTV6CE8IKW2k415SDagXuVUYn8nfqFe9XMoQ=
X-Google-Smtp-Source: ABdhPJyKX7m6raDPKFrME7qw/NUplQLM85hLyl1Ul5VMDrS/xccoEDplDvJr1TyU8bJua678/FKR0TOa40GMlaCKqDw=
X-Received: by 2002:a17:90b:1bcb:: with SMTP id
 oa11mr19082768pjb.140.1637785683363; 
 Wed, 24 Nov 2021 12:28:03 -0800 (PST)
MIME-Version: 1.0
References: <CAKH6PiXtVetBZbyvOiWZFSTvNebSTEuaYkOoUx4KPg4wtdvN8g@mail.gmail.com>
 <b355e6b8-720d-3078-d54a-2beb5ff79bd4@mhorton.net>
 <d5c635f412e50be3740bf13c2380d799@firemail.de>
 <CAFH29tp9Rsrh=YBak1sBv8=BzJobeLyCeN2x3Jio76UGvCRP+A@mail.gmail.com>
 <CAKzdPgw7etwK-6ekJV3JyxRGJXmztncsb4QR_UsFCWkKaRN0PA@mail.gmail.com>
In-Reply-To: <CAKzdPgw7etwK-6ekJV3JyxRGJXmztncsb4QR_UsFCWkKaRN0PA@mail.gmail.com>
From: Rob Pike <robpike@gmail.com>
Date: Thu, 25 Nov 2021 07:27:52 +1100
Message-ID: <CAKzdPgwdE_F2XiMGP5BaKEEG+LFJ-ucWw+wJDGAtcJDR0xd_9Q@mail.gmail.com>
To: Richard Salz <rich.salz@gmail.com>
Content-Type: text/plain; charset="UTF-8"
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>

Also isn't it PROCEDURE? I don't remember PROC.

-rob

On Thu, Nov 25, 2021 at 7:15 AM Rob Pike <robpike@gmail.com> wrote:
>
> I thought it was
>
> 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 IF = THEN = ELSE;
>
> END TRY;
>
> But yeah.
>
> Best to Barry.
>
> -rob
>
> On Thu, Nov 25, 2021 at 2:23 AM Richard Salz <rich.salz@gmail.com> 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;
> >