00001 IDENTIFICATION DIVISION.
00002 PROGRAM-ID. HelloWorld.
00005 ENVIRONMENT DIVISION.
00010 DATA DIVISION.
00015 01 PLACE PIC X(10)
00020 01 GREETING PIC X(7)
00030 PROCEDURE DIVISION.
00040 Main.
00050 ````MOVE "world" to PLACE.
00060 ````MOVE "Hello" TO GREETING.
00070 ````PERFORM Setup.
00080 ````PERFORM Hello-World THROUGH 00001 00090 End-Hello.
00100 ````STOP RUN.
00110 Hello-World.
00120 ````GOTO World.
00130 World.
00140 ````DISPLAY GREETING.
00150 ````GOTO End-Hello.
00160 End-Hello.
00170 ````EXIT.
00180 Goodbye-World.
00190 ````MOVE "Goodbye" TO GREETING.
00200 ````GOTO World.
00210 Setup.
00220 ````ALTER Hello-World Goodbye-World.
Damn LJ keeps messing my indents up! Just assume that ```` is four spaces instead of four `.