9 lines
200 B
COBOL
9 lines
200 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. REPEAT-PROGRAM.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
77 HAHA PIC A(10).
|
|
PROCEDURE DIVISION.
|
|
MOVE ALL 'ha' TO HAHA.
|
|
DISPLAY HAHA.
|
|
STOP RUN.
|