Joys of PL/I
DECLARE BY FIXED BINARY(31) INIT(1);
...
DO I = 1 TO TO BY BY;
INTO = INTO + I;
END;
DO UNTIL (UNTIL > 20);
UNTIL = UNTIL + 5;
END;
IF INTO > 0 THEN THEN = THEN + 1;
SELECT (WHEN);
WHEN (6) WHEN = WHEN + 1;
OTHERWISE WHEN = 0;
END;
