PMD 
.PROC,PMD*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* PMD 
*CALL     PSRLEV
* 
  
.*
.*  START PMD VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,PMD,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        PMD. 
EXIT. 
REVERT(ABORT)  PMD. 
  
  
.DATA,ZZZPROC 
.PROC,PMD.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=PMD5,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=PMD,NUMAUX=1)
FTN(A,I,OPT=1,S=PSSTEXT,S=CPUTEXT,S=FCLTEXT,B=PMD,L=LIST) 
  
BEGIN(GETULIB,INSTALL,SYSLIB,BAMLIB,FORTRAN)
  
  
LDSET(LIB=FORTRAN/SYSLIB/BAMLIB,ERR=ALL,PRESET=NGINF) 
LOAD(PMD) 
NOGO. 
REWIND(PMDMP) 
COPY(PMDMP,LGO) 
BEGIN(GENDIR,INSTALL,LIB=45)
BEGIN(SAVELGO,INSTALL,PRDNAME=PMD5) 
BEGIN(PRDOUT,INSTALL,PRDNAME=PMD5,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  PMD. 
EXIT. 
REVERT(ABORT)  PMD. 
*WEOR 
