Show ASCII table: Difference between revisions

Content added Content deleted
(→‎{{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: Line 4,677:


=={{header|PL/M}}==
=={{header|PL/M}}==
<syntaxhighlight lang="pli">100H: /* SHOW AN ASCII TABLE FROM 32 TO 127 */
<syntaxhighlight lang="pli">
100H: /* SHOW AN ASCII TABLE FROM 32 TO 127 */
/* CP/M BDOS SYSTEM CALL */
/* CP/M BDOS SYSTEM CALL */
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END;
Line 4,693: Line 4,694:
END PR$BYTE;
END PR$BYTE;
/* ASCII TABLE */
/* ASCII TABLE */
DECLARE C BYTE;
DECLARE ( A, C ) BYTE;
DO C = 32 TO 127;
DO C = 32 TO 32 + 15;
CALL PR$BYTE( C );
DO A = C TO C + ( 16 * 5 ) BY 16;
CALL PR$STRING( .': $' );
CALL PR$BYTE( A );
IF C = 32 THEN CALL PR$STRING( .'SPC$' );
CALL PR$STRING( .': $' );
ELSE IF C = 127 THEN CALL PR$STRING( .'DEL$' );
IF A = 32 THEN CALL PR$STRING( .'SPC$' );
ELSE DO;
ELSE IF A = 127 THEN CALL PR$STRING( .'DEL$' );
CALL PR$CHAR( ' ' );
ELSE DO;
CALL PR$CHAR( C );
CALL PR$CHAR( ' ' );
CALL PR$CHAR( ' ' );
CALL PR$CHAR( A );
CALL PR$CHAR( ' ' );
END;
END;
END;
IF ( ( C - 31 ) MOD 6 ) = 0 THEN CALL PR$STRING( .( 0DH, 0AH, '$' ) );
CALL PR$STRING( .( 0DH, 0AH, '$' ) );
END;
END;
EOF
EOF</syntaxhighlight>
</syntaxhighlight>
{{out}}
{{out}}
<pre>
<pre>
032: SPC 033: ! 034: " 035: # 036: $ 037: %
032: SPC 048: 0 064: @ 080: P 096: ` 112: p
038: & 039: ' 040: ( 041: ) 042: * 043: +
033: ! 049: 1 065: A 081: Q 097: a 113: q
044: , 045: - 046: . 047: / 048: 0 049: 1
034: " 050: 2 066: B 082: R 098: b 114: r
050: 2 051: 3 052: 4 053: 5 054: 6 055: 7
035: # 051: 3 067: C 083: S 099: c 115: s
056: 8 057: 9 058: : 059: ; 060: < 061: =
036: $ 052: 4 068: D 084: T 100: d 116: t
062: > 063: ? 064: @ 065: A 066: B 067: C
037: % 053: 5 069: E 085: U 101: e 117: u
068: D 069: E 070: F 071: G 072: H 073: I
038: & 054: 6 070: F 086: V 102: f 118: v
074: J 075: K 076: L 077: M 078: N 079: O
039: ' 055: 7 071: G 087: W 103: g 119: w
080: P 081: Q 082: R 083: S 084: T 085: U
040: ( 056: 8 072: H 088: X 104: h 120: x
086: V 087: W 088: X 089: Y 090: Z 091: [
041: ) 057: 9 073: I 089: Y 105: i 121: y
092: \ 093: ] 094: ^ 095: _ 096: ` 097: a
042: * 058: : 074: J 090: Z 106: j 122: z
098: b 099: c 100: d 101: e 102: f 103: g
043: + 059: ; 075: K 091: [ 107: k 123: {
104: h 105: i 106: j 107: k 108: l 109: m
044: , 060: < 076: L 092: \ 108: l 124: |
110: n 111: o 112: p 113: q 114: r 115: s
045: - 061: = 077: M 093: ] 109: m 125: }
116: t 117: u 118: v 119: w 120: x 121: y
046: . 062: > 078: N 094: ^ 110: n 126: ~
122: z 123: { 124: | 125: } 126: ~ 127: DEL
047: / 063: ? 079: O 095: _ 111: o 127: DEL
</pre>
</pre>