% sample14.t
% counting names until we reach a dummy entry
%
var count : int
var name : string
count := 0			% so far we have 0 valid names
loop
  put "please enter the next name"
  put "type dummy to finish" 
  get name
  exit when name = "dummy"
  count := count + 1			% add one more to the count
end loop
put "you entered ",count," valid names."