% startg.jam
% last changed by Doug Wyatt, 11-Mar-82 16:45:00

(startg.jam of 11-Mar-82
).print
(user) .dup .where {.pop .pop}{256 .dict .def}.ifelse .cvx .exec
user .begin
(/run){(Running ).print .dup .print .run (.)=}.cvx .def
(/loadbcd){(Loading ).print .dup .print .loadbcd (.)=}.cvx .def
(util.jam)/run
(errordefs.jam)/run
(graphics.jam)/run
.end .end
(.start){
 user .begin graphics .begin
 .version =
 (JaMGraphicsTool.bcd)/loadbcd
 (JaMGraphicsImpl.bcd)/loadbcd
 (Ready.) =
} .cvx .def
.start