Write language name in 3D ASCII: Difference between revisions
Added 360 Assembly
m (→{{header|FORTH}}: Changed FORTH to Forth in header to fix the link.) |
(Added 360 Assembly) |
||
Line 6:
so long as the result is interesting or amusing,
not a cheap hack to satisfy the task.)
=={{header|360 Assembly}}==
3D EBCDIC. This program does nothing clever in any way: it just prints out strings.
<lang 360asm>THREED CSECT
STM 14,12,12(13)
BALR 12,0
USING *,12
XPRNT =CL23'0 ####. #. ###.',23
XPRNT =CL24'1 #. #. #. #.',24
XPRNT =CL24'1 ##. # ##. #. #.',24
XPRNT =CL24'1 #. #. #. #. #.',24
XPRNT =CL23'1 ####. ###. ###.',23
LM 14,12,12(13)
BR 14
LTORG
END</lang>
{{out}}
<pre>
####. #. ###.
#. #. #. #.
##. # ##. #. #.
#. #. #. #. #.
####. ###. ###.
</pre>
=={{header|Ada}}==
| |||