1 000010 IDENTIFICATION DIVISION.
2 000020 PROGRAM-ID. LINE-NO-PROG.
3 000030 AUTHOR. TIM R P BROWN.
4 000110 ENVIRONMENT DIVISION.
5 000120 INPUT-OUTPUT SECTION.
7 000140 SELECT IN-FILE ASSIGN TO 'INPUT.TXT'
8 000150 ORGANIZATION IS LINE SEQUENTIAL.
9 000160 SELECT OUT-FILE ASSIGN TO 'OUTPUT.COB'
10 000170 ORGANIZATION IS LINE SEQUENTIAL.