Show ASCII table: Difference between revisions
→{{header|PL/M}}: Show the table vertically., as most of the other samples do
(→{{header|ALGOL W}}: Simplify and show the table vertically, as most of the other samples do) |
(→{{header|PL/M}}: Show the table vertically., as most of the other samples do) |
||
Line 4,677:
=={{header|PL/M}}==
<syntaxhighlight lang="pli">
100H: /* SHOW AN ASCII TABLE FROM 32 TO 127 */
/* CP/M BDOS SYSTEM CALL */
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;
Line 4,693 ⟶ 4,694:
END PR$BYTE;
/* ASCII TABLE */
DECLARE ( A, C ) BYTE;
DO C = 32 TO
CALL PR$
ELSE
CALL PR$CHAR( '
CALL PR$CHAR(
CALL PR$CHAR( ' ' );
END;
END;
END;
EOF
{{out}}
<pre>
032: SPC
</pre>
| |||