S
PL_
PL_
PL_ISVAR{%}FROM{%}
*
      LOCATE({%2},VAR$NAMES;T$$$) THEN
         {%1} = 1
      END ELSE
         {%1} = 0
      END
