S
PL_
PL_
PL_GETVAR{%}FROM{%}{WTHEN\ELSE}
*
      LOCATE({%2},VAR$NAMES;T$$$) THEN
         IF VAR$CNT <= 500 THEN
            {%1} = VAR$VALS(T$$$)
         END ELSE
            {%1} = VAR$VALS(MOD(T$$$-1,500)+1)<INT( ( T$$$ - 1 ) / 500 ) + 1>
         END
      END ELSE
         T$$$ = 0
      END
*
      IF T$$$ {%3}
