$DEBUG PAGELENGTH(55) /**********************/ /* */ /* E X $ V E R S */ /* */ /**********************/ M$EX$VERS: DO; $NOLIST $INCLUDE(COMMON.DCL) $INCLUDE(ISIS.DCL) $INCLUDE(:F1:ISISIO.DCL) $INCLUDE(STRING.DCL) $LIST GET$FNAME: PROCEDURE(NAME$P,TYPE,WILDCARD,NULLNAME,EXTPNT) EXTERNAL; DECLARE NAME$P ADDRESS, TYPE BYTE, WILDCARD BOOLEAN, NULLNAME BOOLEAN, EXTPNT BOOLEAN; END GET$FNAME; EX$ONE: PROCEDURE (COM$LINE$P,COM$TYPE$P,COMP1$P,MSG1$P) EXTERNAL; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS, COMP1$P ADDRESS, MSG1$P ADDRESS; END EX$ONE; EX$VERS: PROCEDURE (COM$LINE$P,COM$TYPE$P) PUBLIC; DECLARE COM$LINE$P ADDRESS, COM$TYPE$P ADDRESS; DECLARE COMP1 STRUCTURE( ML ADDRESS, L ADDRESS, D(6) BYTE ) DATA (5,5,'VERS ',0); DECLARE MSG1(*) BYTE DATA( LF, ' --- DISPLAY PROGRAM VERSION NUMBER ---',CR,LF, ' PROGRAM NAME',CR,LF, ' ..............', 0); CALL EX$ONE(COM$LINE$P,COM$TYPE$P,.COMP1,.MSG1); END EX$VERS; END M$EX$VERS;