Balance Line program in COBOL