anchor.diff:  constructor TShellMorph.Create;
     begin
       inherited Create;
  -    vm := TMachine.Create; world.add(vm);
       clock := TClockMorph.Create;
       clock.bounds.x := 0; clock.bounds.y := 0;
       world.add(clock);
  
positive.code: constructor TClockMorph.Create;
    begin
      inherited Create;
      color := $13; { cyan on blue }
    end;
  
  function TClockMorph.ToString: string;
    begin
      result := FormatDateTime('MM.DD.YY hh:mm:ssam/pm', Now);
    end;
  
  procedure TClockMorph.Draw;
    begin
      cw.cxy( color, bounds.x, bounds.y, self.ToString )
    end;
  
  
negative.code: {-- ClockMorph -------------}
  type
    TClockMorph = class ( TMorph )
      dirty : boolean;
      color, last, text : string;
      constructor Create;
      procedure Draw; override;
      function ToString:string; override;
  