*IFLS
e99 EQU 1  define these
GLFCB EQU 48H
*
 COPY FORTRUN/1
 COPY NPTDEFS