include "draw.m";
draw:= load Draw Draw->PATH;
Context: adt
{
  screen:  ref Screen;
  display: ref Display;
  cir:     chan of int;
  ckbd:    chan of int;
  cptr:    chan of ref Pointer;
  ctoappl: chan of int;
  ctomux:  chan of int;
};

include "draw.m"; 
Command: module 
{
     init:  fn(nil: ref Draw->Context; nil: list of string);
};