RSTS=0 ;DEFINE THIS SYMBOL IF RUNNING ON RSTS/E