000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID.   HELLO-WORLD-PROG.
000030 AUTHOR.       TIMOTHY R P BROWN.
000040*The standard Hello world program
000050 
000060 ENVIRONMENT DIVISION.
000063 CONFIGURATION SECTION.
000065 OBJECT-COMPUTER. IBM-370.
000070 SOURCE-COMPUTER. IBM-370.
000080 DATA DIVISION.
001400 WORKING-STORAGE SECTION.
001500 01 THE-NUMBERS.
001600      10 FILLER USAGE IS COMP-1 VALUE 0.4E0.
001700      10 FILLER USAGE IS COMP-1 VALUE 0.
001800      10 FILLER USAGE IS COMP-1 VALUE 0.
001900      10 FILLER USAGE IS COMP-1 VALUE 0.
002000      10 FILLER USAGE IS COMP-1 VALUE 0.
002100      10 FILLER USAGE IS COMP-1 VALUE 0.
002200      10 FILLER USAGE IS COMP-1 VALUE 0.
002300      10 FILLER USAGE IS COMP-1 VALUE 0.
002400      10 FILLER USAGE IS COMP-1 VALUE 0.
002500      10 FILLER USAGE IS COMP-1 VALUE 0.
002600      10 FILLER USAGE IS COMP-1 VALUE 0.
002700      10 FILLER USAGE IS COMP-1 VALUE 0.
002800      10 FILLER USAGE IS COMP-1 VALUE 0.
002900  01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
003000 
003050 PROCEDURE DIVISION.
003100      DISPLAY THE-ANSWER
003200      GOBACK.
010130 MAIN-PARAGRAPH.
010140        DISPLAY "ae veio, olha eu aqui"
010150        STOP RUN.