Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
m (→simpler, shorter: used a template for the output section.) |
m (→block characters: added a comment to the REXX section header.) |
||
Line 2,698: | Line 2,698: | ||
=={{header|REXX}}== |
=={{header|REXX}}== |
||
===block characters=== |
===block characters=== |
||
The REXX program works in '''ASCII''' or [[:wp:EBCDIC|'''EBCDIC''']]. |
The REXX program works in '''ASCII''' or [[:wp:EBCDIC|'''EBCDIC''']]. |
||
<br><br>It's astonishing how much time I <del>wasted</del> spent on this program. |
<br><br>It's astonishing how much time I <del>wasted</del> spent on this program. |
||
<br>Most of the time was spent on writing comments, but the code was so easy to read, so the comments were elided. <font size=8> ☺ </font> |
<br>Most of the time was spent on writing comments, but the code was so easy to read, so the comments were elided. <font size=8> ☺ </font> |
||
⚫ | |||
This REXX has been used as part of a test suite for some REXX interpreters to stress test their syntax parser. |
|||
⚫ | |||
signal . /* Uses left-hand shadows, slightly raised view. |
signal . /* Uses left-hand shadows, slightly raised view. |
||
0=5~2?A?2?A? |
0=5~2?A?2?A? |
||
Line 2,729: | Line 2,731: | ||
changestr(arg(1),_,arg(2))</lang> |
changestr(arg(1),_,arg(2))</lang> |
||
Some older REXXes don't have a '''changestr''' BIF, so one is included here ──► [[CHANGESTR.REX]]. |
Some older REXXes don't have a '''changestr''' BIF, so one is included here ──► [[CHANGESTR.REX]]. |
||
'''output''' |
|||
{{out|output|text= when using the internal default input:}}'''output''' |
|||
<pre> |
<pre> |
||
________________ _____________ ____ ____ ____ ____ |
________________ _____________ ____ ____ ____ ____ |