FORM
.PROC,FORM*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FORM - FORM 1 
*CALL     PSRLEV
* 
  
.*
.*  START FORM VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FORM,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FORM.
EXIT. 
REVERT(ABORT)  FORM.
  
  
.DATA,ZZZPROC 
.PROC,FORM. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FORM,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FO4) 
RFL(64000)
SYMPL(ET=T,I,S=0,#D,N,F,B=CAP,L=LIST)  CAPSULE RELS 
COMPASS(A,I,S=0,B=CAP,L=LIST) 
GROUP(BIT8)  CAPSULE FORMATION
CAPSULE($FM$$UTIL$,$FM$$CRAK$,$FM$$RUN$,$FM$$PRT$,$FM$$PARS$) 
CAPSULE($FM$$STAT$,$FM$$TEST$,$FM$$CONV$) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(CAP) 
NOGO(LIB)  CAPSULE FOR BIT8LIB
SYMPL(ET=T,I,S=0,#D,N,F,B=REL,L=LIST)  MAIN OVERLAYS
COMPASS(A,I,S=LDRTEXT,S=IOTEXT,B=REL,L=LIST)
RETURN(COMPILE) 
BEGIN(GETULIB,INSTALL,BAMLIB,SYMLIB,FORTRAN,SYSLIB) 
LDSET(LIB=BAMLIB/SYMLIB/FORTRAN)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(REL) 
NOGO(LGO) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=BIT8LIB)
BEGIN(PRDOUT,INSTALL,PRDNAME=FORM,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=24)
BEGIN(SAVELGO,INSTALL,PRDNAME=FORM) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FORM.
EXIT. 
REVERT(ABORT)  FORM.
*WEOR 
