Some codes in COBOL.