(Disjoint Utilities (Pilot) of 17-Aug-81 15:52:03)/print

(disjoint)(disjointdict /begin).cvx .def

(disjointdict).where
(.pop).cvx
((disjointdict)256 .dict .def).cvx
.ifelse

disjointdict .begin

(begin)
(jamrun disjointrun .eq .not
((Disjoint.bcd).loadbcd
(disjointrun)jamrun .def
).cvx
.if
(Disjoint)/print
).cvx .def
(disjointrun)0 .def

(readcif)(parsecif cifin 0 level always fit).cvx .def
(writecif)(djonce .exch cifout).cvx .def
(readic)(parseic cifin 0 level always fit).cvx .def
(readdis)(.run 0 level always fit).cvx .def
(draw)(djlevel eds update).cvx .def

(level)((djlevel).exch .def).cvx .def
(djlevel)0 .def

(once)((djonce).true .def).cvx .def
(always)((djonce).false .def).cvx .def
(djonce).false .def

(eds)(erase djonce .exch drawsymbol).cvx .def
(ld)(level draw).cvx .def

(ms)(makesymbol).cvx .def
(mg)(makegeometry).cvx .def
(mi)(makeinstance).cvx .def

(.prompt)((@).print).cvx .def

.end

disjoint