JTSAVSPC$MAIN0116-Sep-1996 10:43Digital Fortran V6.4-165 JTSAVSPC$MAINP) JTSAVSPC$MAIN߀,fcn> GCY$STOREP h LIB$GET_FOREIGN@@` 4  `  ,  LIB$SET_SYMBOL@P [<LIB$GET_FOREIGN,k \\ 1q1Q1ADFOR$EXITTP FOR$READ_IF߫ FOR$IO_X_DA FOR$IO_ENDVDV, ` LIB$INDEXPW^()nW\\^(\n\YY\^(0n\X,Xn ˀPQ^WY,YG (lIVLENPxˀ|ˀFOR$OPENP1~~ FOR$READ_KF  FOR$IO_T_DS FOR$IO_ENDPWWY\YYC\ Rb$ScV FOR$DELETEV\ FOR$EXIT_WV1IVLENPX,X ,(X\ FOR$WRITE_SFX  FOR$IO_T_DS FOR$IO_END\FOR$REWRITE_SFX  FOR$IO_T_DS FOR$IO_END FOR$CLOSE(IVLENP( $LIB$SET_SYMBOLFOR$EXITP0PGCY$CM:QDBS.GDS JTSAVSPC$MAINLIB$GET_FOREIGNFOR$EXIT LIB$INDEXIVLENFOR$OPEN FOR$EXIT_W FOR$CLOSELIB$SET_SYMBOL`$CODE7$PDATA$LOCAL FOR$DELETE FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KF FOR$WRITE_SFFOR$REWRITE_SF FOR$READ_IF(P+3P >PGPOPYPP"P1&P/aP jPP P P PP-P-: `IVLEN0116-Sep-1996 10:43Digital Fortran V6.4-165 IVLEN IVLENPP[}PQPмPQPPRQRSSTDTT PQSPP IVLENC$CODE$PDATA$LOCALP 5P;P C