.proc,framat,ml=871,list=0/output.
*
*         formatter
*
unload(lgo)
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
cstc(a,i,l=list,s=0,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
cstc(a,i,l=list,c=fcommon,s=nostext,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
cstc(a,i,l=list,c=fcommon,s=nostext,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit4
cstc(a,i,l=list,c=fcommon,s=0,#ml=ml)
*---
*         overlays
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit5
cstc(a,i,l=list,c=fcommon,s=0,#ml=ml)
purge(genfig/na)
define(genfig/ct=pu,m=r)
modify(z,lo=e)/*oplfile nos,ipl/*edit genfigx
compass,a,i,l=0,b=genfig.
unload,genfig.
*---
rewind(lgo)
purge(framat/na)
define(framat/ct=pu,m=r)
copybf(lgo,framat)
unload(framat)
rewind(fcommon)
rename(com=fcommon)
purge(fcommon/na)
define(fcommon/ct=pu,m=r)
copy(com,fcommon)
unload(fcommon)
*---
attach(genfig)
attach(framat)
unload(lgo,compile)
genfig,framat.
compass,a,i,s=0,l=0.
unload,genfig.
*---
begin(loader,,rel=$framat,lgo$,abs=fbin,rfl=0,map=fmap,mo=sbex)
rfl,60000.
note(dir)+*i abs/framat,ovl/*
unload,lgo.
gtr(fbin,lgo)ovl/fram00$
libedit(p=fbin,c,i=dir,lo=e)
begin(ulib,,fbin,ulibf,framat)
catalog(fbin,r,n,u)
revert. framat
*---
.data,edit1.
*edit     framat
.data,edit2.
*edit     setup
*edit     instalf
.data,edit3.
*edit     fsys
.data,edit4.
*edit     format
*edit     outform
*edit     loadov
.data,edit5.
*edit     fovlay1
*edit     fovlay2
*edit     fovlay3
*edit     fovlay4
*edit     fovlay5
~
.proc,plf,list=0/output,ml=871.
*
*         plato link facility.
*
unload(lgo)
*
*         plfcom.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
cstc(a,i,s=nostext,l=list,#ml=ml)
*
*         main  ident.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
cstc(a,d,i,c=plfcom,s=nostext,l=list,#ml=ml)
*
*         other main overlay idents.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
cstc(a,d,i,c=plfcom,s=nostext,l=list,#ml=ml)
*
*         overlays.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit4
cstc(a,d,i,c=plfcom,s=nostext,l=list,#ml=ml)
*
rewind(plfcom)
rename(plfc=plfcom)
purge(plfcom/na)
define(plfcom/ct=pu,m=r)
copyei(plfc,plfcom)
*
purge(plf/na)
define(plf/ct=pu,m=r)
rewind(lgo)
copyei(lgo,plf)
catalog(plf,r,u,n)
*
begin(loader,,rel=plf,abs=plfbin,rfl=30000,mo=sbex,map=plfmap)
rewind(plfmap)
copyei(plfmap)
*
rfl(60000)
begin(ulib,,plfbin,ulibplf,plf)
catalog(plfbin,r,u,n)
*
revert. plf
*
.data,edit1.
*edit plfcom
.data,edit2.
*edit     plfmain
*edit     plfsubs
.data,edit3.
*edit     plfbdd
*edit     plfbds
*edit     plfncr
*edit     plfoeb
.data,edit4.
*edit plfbst
*edit plfddl
*edit plfdei
*edit plfdel
*edit plfden
*edit plfdes
*edit plfdgn
*edit plfdll
*edit plfdpr
*edit plfebd
*edit plfetl
*edit plfenp
*edit plfesr
*edit plfhlo
*edit plfint
*edit plfin1
*edit plfisd
*edit plfiso
*edit plflds
*edit plflsi
*edit plfnam
*edit plfncw
*edit plfoei
*edit plfoen
*edit plfoes
*edit plfprn
*edit plfsdp
*edit plfsel
*edit plfsli
*edit plfsts
*edit plfwfp
~