.proc,plato,ml=871,list=0/output.
*---
*         master
*
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
compass(a,i,l=list,s=0,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
cstc(a,i,l=list,c=pcommon,s=nostext,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit4
cstc(a,i,l=list,c=pcommon,s=0,#ml=ml)
*---
*         tutor
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit5
cstc(a,i,l=list,c=pcommon,s=0,#ml=ml)
*---
*         overlays
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit6
cstc(a,i,l=list,c=pcommon,s=0,#ml=ml)
*---
*         genfig
*
purge(genfig/na)
define(genfig/ct=pu,m=r)
modify(z,lo=e)/*oplfile nos,ipl/*edit genfigx
compass,a,i,l=list,b=genfig.
unload,genfig.
*
rewind(lgo)
purge(plato/na)
define(plato/ct=pu,m=r)
copybf(lgo,plato)
unload(plato)
rewind(pcommon)
rename(com=pcommon)
purge(pcommon/na)
define(pcommon/ct=pu,m=r)
copy(com,pcommon)
unload(pcommon)
*---
attach(genfig)
attach(plato)
unload(lgo,compile)
genfig,plato.
compass,a,i,s=0,l=0.
unload,genfig.
*---
begin(loader,,rel=$plato,lgo$,abs=pbin,rfl=0,map=pmap)
rfl,60000.
note(dir)+*i abs/plato,ovl/*
unload,lgo.
gtr(pbin,lgo)ovl/plat00$
libedit(p=pbin,c,i=dir,lo=e)
begin(ulib,,pbin,ulibp,plato)
catalog(pbin,r,n,u)
unload(pbin,plato,pmap)
*---
*         plato system modifier modules
*
begin(psm,,#list=list)
revert. plato
*---
.data,edit1.
*edit     lowcor
.data,edit2.
*edit     instalp
.data,edit3.
*edit     datime
*edit     msubs
*edit     psys
.data,edit4.
*edit     main
*edit     multix
*edit     polls
*edit     eformat
*edit     keysin
*edit     simplt
*edit     loadov
.data,edit5.
*edit     tutorx
*edit     getles
*edit     lesson
*edit     getcom
*edit     getunit
*edit     ecsmgr
*edit     allot
*edit     datax
*edit     account
*edit     tutsub
*edit     logicx
*edit     exec1
*edit     exec2
*edit     exec3
*edit     lcomnd
*edit     autload
*edit     ioput
*edit     filex
*edit     diskfio
*edit     packchk
*edit     subfile
*edit     binaryx
*edit     conten
*edit     answer
*edit     writex
*edit     showx
*edit     tutout
*edit     linwrt
*edit     linchr
*edit     compile
*edit     lex
*edit     getvar
*edit     tfunct
*edit     deflex
.data,edit6.
*edit     sysless
*edit     comput
*edit     exec4
*edit     exec5
*edit     exec6
*edit     exec7
*edit     tovlay
*edit     lex1
*edit     grafs
*edit     grafs2
*edit     tutor1
*edit     ans1
*edit     ppus
*edit     answ1
*edit     toucho
*edit     draws
*edit     sorts
*edit     exec8
*edit     mtutx
*edit     pptx
*edit     namex
*edit     exec9
*edit     logsitx
*edit     recordx
*edit     subfilv
*edit     record2
*edit     reservx
*edit     mainov
*edit     lodist
*edit     exec10
~