COBOL source code for BLISS