IDENTIFICATION DIVISION.
PROGRAM-ID. hello.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT SYSIN ASSIGN TO KEYBOARD ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD SYSIN.
01 ln PIC X(255).
\x09 88 EOF VALUE HIGH-VALUES.
WORKING-STORAGE SECTION.
01 WS-WORK1 PIC X(255) VALUE ALL "*".
01 WS-WORK3 PIC X(255) VALUE ALL " ".
01 WS-WORK2 PIC S9(10) USAGE COMP.
01 WS-WORK4 PIC S9(10) USAGE COMP.
01 I PIC 9(10).
PROCEDURE DIVISION.
OPEN INPUT SYSIN
READ SYSIN
AT END SET EOF TO TRUE
END-READ
CLOSE SYSIN.
COMPUTE WS-WORK2 = FUNCTION NUMVAL (ln) - 1.
PERFORM VARYING I FROM 0 BY 1 UNTIL I = WS-WORK2 - 1
DISPLAY WS-WORK3(1: WS-WORK2 - 1 - I) WS-WORK1(1: 2 * I + 1)
END-PERFORM.
DISPLAY WS-WORK1(1:2*I + 1)
IF WS-WORK2 < 5 THEN
DISPLAY "COBOL"
ELSE
DISPLAY WS-WORK3(1: WS-WORK2 - 3)"COBOL"
END-IF.
STOP RUN.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).