Fix off-by-one error in display of \every...

https://sourceforge.net/p/xetex/bugs/73/

Fix suggested by Bruno Le Floch.
Changes for ancient Pascals

Suggested by Bruno Le Floch in https://sourceforge.net/p/xetex/bugs/73/.