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.1 required=5.0 tests=DKIM_SIGNED,DKIM_VALID, DKIM_VALID_AU,MAILING_LIST_MULTI autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 31271 invoked from network); 24 Nov 2021 18:36:29 -0000 Received: from minnie.tuhs.org (45.79.103.53) by inbox.vuxu.org with ESMTPUTF8; 24 Nov 2021 18:36:29 -0000 Received: by minnie.tuhs.org (Postfix, from userid 112) id 2C13C9C764; Thu, 25 Nov 2021 04:36:27 +1000 (AEST) Received: from minnie.tuhs.org (localhost [127.0.0.1]) by minnie.tuhs.org (Postfix) with ESMTP id 6999393D29; Thu, 25 Nov 2021 04:34:18 +1000 (AEST) Authentication-Results: minnie.tuhs.org; dkim=pass (2048-bit key; unprotected) header.d=cfcl.com header.i=@cfcl.com header.b="bWuAwM0n"; dkim-atps=neutral Received: by minnie.tuhs.org (Postfix, from userid 112) id 964F493D29; Thu, 25 Nov 2021 04:34:15 +1000 (AEST) Received: from mail-pj1-f53.google.com (mail-pj1-f53.google.com [209.85.216.53]) by minnie.tuhs.org (Postfix) with ESMTPS id E0FDB93D1B for ; Thu, 25 Nov 2021 04:34:14 +1000 (AEST) Received: by mail-pj1-f53.google.com with SMTP id x7so3260921pjn.0 for ; Wed, 24 Nov 2021 10:34:14 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=cfcl.com; s=google; h=mime-version:subject:from:in-reply-to:date :content-transfer-encoding:message-id:references:to; bh=yF2yffs7ycQxSdJvX+PvyynJLHJgU2yJbk2Nj/OgXgs=; b=bWuAwM0nDrY8MGCDCsEDhAudv4Vlv8aS9mq5I60KHAA5pxC+A1fSX3cMW7NmBf4GWD h0WfUhHOq2UiKE+SFnTFjBnGmV0n6PluvWF6Un2ZWP9wibT8b9c1xPcpMdN53qC5qHKh TFevWFtlrVp6wwQGpklpuUJYH1LH2CgkSjWXxizJbndup3LXtftgBD8EX3DrzKJC6doH 8HIfOlfI/WNBKyWYnIo4iKAnosT+EvYlWUWkaAbZm9tF4R94AdRDr870BIqmVBZY6q6i IkJmGazPbl7RKcuHpD1GHRTuDjPoyG7VlRIWW/5Hbe48FjDO3g5IwJi+IFD+KbwGYqEW 5ijA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:subject:from:in-reply-to:date :content-transfer-encoding:message-id:references:to; bh=yF2yffs7ycQxSdJvX+PvyynJLHJgU2yJbk2Nj/OgXgs=; b=n8ILu3CgdQqs7foXnSRWvuUmdeL23HyGNQYegwlmsJE/LfsTSa12RnjC/9A46UJSCZ ao3tPx16F8bc9N3lYK73bx74bngOhte8NUA9vtciJLKOqUpboaipd4dGBP2N9H5IcbqI hX4MXN/vmfjNwp39Yh+KDkfwBPddaUGPjto7rMldLu0/D/V+a50uYt4ychcJVidHwsu0 ftN6WrNA4CzzesTEfV583WSg1N2V9KlesEEG29nDcq0+P1pGi04FoiIiVuQIps24W+Ib eNekLN1+x+K8T3gRN8lbSUmUrNb65EK49mhyzWEyDn/mFQyF4K00ErhAdfEVWFq5Sjtn EJKA== X-Gm-Message-State: AOAM533M8mQbXSCZEF2f93vi+jptGCCCV3pSvTKAPMSmRoNXsFz/WPXZ 90/yTHv6JKwExl67ASmfX5+nZ/9qaNs5/w== X-Google-Smtp-Source: ABdhPJxExSksCAM2RvpLo3LU1JeVv0mzg1Onb0MfRCGdw+ysb1nDg1hPm2PiXPe5QNCHFFo0JSAShQ== X-Received: by 2002:a17:90a:195a:: with SMTP id 26mr11401512pjh.126.1637778853758; Wed, 24 Nov 2021 10:34:13 -0800 (PST) Received: from [192.168.4.38] (24-113-81-134.wavecable.com. [24.113.81.134]) by smtp.gmail.com with ESMTPSA id hk18sm5737721pjb.20.2021.11.24.10.34.12 (version=TLS1_2 cipher=ECDHE-ECDSA-AES128-GCM-SHA256 bits=128/128); Wed, 24 Nov 2021 10:34:13 -0800 (PST) Content-Type: text/plain; charset=us-ascii Mime-Version: 1.0 (Mac OS X Mail 13.4 \(3608.120.23.2.7\)) From: Rich Morin In-Reply-To: Date: Wed, 24 Nov 2021 10:34:08 -0800 Content-Transfer-Encoding: quoted-printable Message-Id: <530A0404-0542-404F-9E77-484AA2E678C5@cfcl.com> References: To: TUHS main list X-Mailer: Apple Mail (2.3608.120.23.2.7) 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: tuhs-bounces@minnie.tuhs.org Sender: "TUHS" Speaking of Barry and IBM, I've always loved his snark on AIX: "It will = remind you of Unix." -r P.S. My guess is that this code sets ELSE to 2. True?=20 > On Nov 24, 2021, at 07:18, Richard Salz wrote: >=20 > 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/)" >=20 > IBM still uses PL/1. Remember, the main definition of "legacy" is = "revenue-producing." >=20 > TRY:PROC OPTIONS(MAIN); > DCL (IF,THEN,ELSE) FIXED BINARY (31); >=20 > IF =3D 1; > THEN =3D 2; > ELSE =3D 3; >=20 > IF IF =3D THEN THEN THEN =3D IF ; ELSE ELSE =3D THEN; >=20 > END TRY;