subset pascal scanner