Show ASCII table: Difference between revisions
Content added Content deleted
(Added PL/M) |
No edit summary |
||
Line 1,278: | Line 1,278: | ||
48: 0 61: = 74: J 87: W 100: d 113: q |
48: 0 61: = 74: J 87: W 100: d 113: q |
||
</pre> |
</pre> |
||
=={{header|COBOL}}== |
|||
{{works with|OpenCOBOL|3.1.2}} |
|||
Uses free form syntax. |
|||
<lang COBOL> |
|||
IDENTIFICATION DIVISION. |
|||
PROGRAM-ID. CHARSET. |
|||
DATA DIVISION. |
|||
WORKING-STORAGE SECTION. |
|||
01 CHARCODE PIC 9(3) VALUE 32. |
|||
PROCEDURE DIVISION. |
|||
MAIN-PROCEDURE. |
|||
PERFORM UNTIL CHARCODE=128 |
|||
DISPLAY FUNCTION CONCATENATE( |
|||
FUNCTION CONCATENATE( |
|||
CHARCODE, |
|||
" : " |
|||
), |
|||
FUNCTION CONCATENATE( |
|||
FUNCTION CHAR(CHARCODE), |
|||
" " |
|||
) |
|||
) |
|||
WITH NO ADVANCING |
|||
ADD 1 TO CHARCODE |
|||
END-PERFORM. |
|||
END PROGRAM CHARSET. |
|||
</lang> |
|||
=={{header|Commodore BASIC}}== |
=={{header|Commodore BASIC}}== |