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