Calendar - for "REAL" programmers: Difference between revisions

Line 496:

=={{header|REXX}}==

This is essentially the same REXX program as for the CALENDAR task, but written entirely

This is essentially the same REXX program as for the CALENDAR task, but written entirely in uppercase. Indeed,

~~in uppercase. Indeed,~~ it could be written without any Latin (or any language) letters

it could be written without any Latin (or any language) letters of any kind for the REXX program's variables.

⚫

From the task's description, I took it to mean the program was to be in all uppercase, but the output was

of any kind for the REXX program's variables.

⚫

still supposed to look pretty (that is, partly in lowercase). Even so, on the (line) printers that were used

⚫

From the task's description, I took it to mean the program was to be in all uppercase, but

⚫

long ago, the printers (if not supporting lowercase), would print lowercase as uppercase (with the FOLD option).

⚫

~~the output was~~ still supposed to look pretty. Even so, on the printers that I ~~grew up on,~~

⚫

The other REXX program made use of lowercase letters for determining the minimum length of any of the options

⚫

the printers (if not supporting lowercase), would print lowercase as uppercase (the FOLD option).

⚫

(from the command line), and a few simple tricks were used to accomplish this.

⚫

The other REXX program made use of lowercase letters for determining the minimum length of

⚫

~~any of the options~~ (from the command line), and a few ~~stupid~~ tricks were used to accomplish this.

[Note: the command line may also be all uppercase.]

In any case, both versions of the programs' output are identical (but the second REXX ~~program~~

In any case, both versions of the programs' output are identical (but the second REXX version sure as heck looks

~~sure as heck looks~~ it was beat with an ugly stick ─── and pardon the strong language).

like it was beat with a big ole ugly stick ─── and pardon the strong language).

⚫

<lang rexx>/*REXX PROGRAM TO SHOW ANY YEAR'S (MONTHLY) CALENDAR (WITH/WITHOUT GRID)*/

⚫

/*REXX PROGRAM TO SHOW ANY YEAR'S (MONTHLY) CALENDAR (WITH/WITHOUT GRID)*/

@ABC=

DO J=0 TO 255;_=D2C(J);IF DATATYPE(_,'L') THEN @ABC=@ABC||_;END

Line 678:

Line 675:

PUT:_=ARG(1);_=TRANSLATE(_,,'_'CHK);IF \GRID THEN _=UNGRID(_);IF LOWERCASE THEN _=LOWER(_);IF UPPERCASE THEN UPPER _;IF SHORTEST&_=' ' THEN RETURN;CALL TELL _;RETURN

TELL:SAY ARG(1);RETURN

UNGRID:RETURN TRANSLATE(ARG(1),,"│║─═┤┐└┴┬├┼┘┌╔╗╚╝╟╢╞╡╫╪╤╧╥╨╠╣")

UNGRID:RETURN TRANSLATE(ARG(1),,"│║─═┤┐└┴┬├┼┘┌╔╗╚╝╟╢╞╡╫╪╤╧╥╨╠╣")</lang>

⚫

'''output''' when using the input of: <tt> 1/1/1969 (noGrid shortest narrowest)

</lang>

⚫

~~Output~~ when using the input of: <tt> 1/1/1969 (noGrid shortest narrowest)

«Snoopy "picture" here»