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