A COBOL file containing a sample subroutine. The contents follow ANSI formatting style.