Hello World Graphic

000100 IDENTIFICATION DIVISION.

000200 PROGRAM-ID. PROGRAM-NAME.

000300 DATA DIVISION.
000400 SCREEN SECTION.
000500 MESSAGE-SCREEN GROUP.
000600     BUTTON AT 3040 FOR 0320.
000700 PROCEDURE DIVISION.
000800 MAIN-ROUTINE SECTION.
000900 MAIN-ENTRY.
001000     DISPLAY FORMAT "|M1COBOL12|N         Hello World|X"
001100     ACCEPT SCREEN
001200     STOP RUN.