And she's up...
Here is for your delight the very worst bit of PL/I code that has ever been written.
proc: proc; entry: proc (entry)
returns (bin (71)); if returns < entry then
return (call (entry - returns) * entry);
return (1): return (1);
dcl entry bin (71), end entry; end entry;
dcl dcl char (char) based (based), based ptr ptr, ptr
bit (144) init ("33184c674379c8d26136080bc32308f4bc64"b4),
if defined defined (1), 1 then, 2 else (0:1) options
(variable) variable init ((2) ioa_), ioa_ options (variable),
defined (0:1) bin init (1,0), end char (16) based (addr (ptr)),
char fixed (21), cu_$arg_ptr entry (bin, ptr, prec (21))
returns (prec (35)), returns defined defined (0),
call generic (cu_$arg_ptr when (fixed, ptr, binary (21)),
entry when (prec (17:71)));
if if ^= call (returns, based, char) then do; goto:
call else (returns) ("I need a numeric arg > 0 & < 23");
return;
end;
if if ^= verify (dcl, "1928374650") then goto goto;
if bin (dcl) - 22 > if | if = bin (dcl) then goto goto;
call then.else (if) (end, dcl, call (bin (dcl) ---- if));
end;
PL/I these days is more or less exclusively an IBM mainframe language, which to me seems a pity, because it is easily a more civil language than C, and it is easily a more comprehesible one than Java. It was only IBM's silly license terms which stunted it. C'est la vie.
