{Use this set of macros to manually scoring two
 types of cells. Counts are kept in two global
variables and displayed in the Values window.
}

var
  UCount, LCount:integer; {Global variables, initially zero}


procedure ShowCellCounts;
begin
  ShowMessage('U. Count: ', UCount:1,'\',
    'L. Count: ',LCount:1,'\'
    'Total    : ',UCount+LCount:1);
end;

macro 'Reset Cell Counts';
begin
  UCount:=0;
  LCount:=0;
  ShowCellCounts;
end;

procedure MarkCell(c:string);
{Draws a character in the current foreground color.}
var
  x,y:integer;
begin
  SetFont('Monaco');
  SetFontSize(9);
  SetText('Right Justified');
  GetMouse(x,y);
  MoveTo(x+4,y);
  Write(c);
end;

macro 'Score Unlabeled Cell [1]';
begin
  UCount:=UCount+1;
   MarkCell('*');
  ShowCellCounts;
end;

macro 'Score Labeled Cell [2]';
begin
  LCount:=LCount+1;
  MarkCell('+');
  ShowCellCounts;
end;