EXTRN CODE(DELAY,READ_DATA)
            . 
            .
            CALL DELAY
            .
            .
            CALL READ_DATA
            .
            .
            END