begin
string(2) fn symbolprefix
    result = "_"
end

routine r
string(255) name
    name = symbolprefix."HELP"
      if name="_HELP" then printstring("Test OK")
end
r
endofprogram