(Disjoint Utilities (Pilot) of 16-Jul-81 15:31:41)/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
(draw)(djlevel eds).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 watchmouse).cvx .def

.end

disjoint