22 lines
426 B
COBOL
22 lines
426 B
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.
|