externalroutine printword(string (64) word)
   !%string(3)word = "???"  *duplicate*
   if word = "+" or word = "-" or word = "*" or word = "/" C
     or word = "<" or word = "<=" or word = ">" or word = ">=" C
       or word = "=" then start
      return
   finish
end

endoffile