KEYDO0116-Sep-1996 10:42Digital Fortran V6.4-165 KEYDOP KEYDOACOD>PP p    x LIB$GET_FOREIGN@P<[}AUTHVALUkhLIB$GET_FOREIGN, Pԫԫ FOR$READ_IF߫ FOR$IO_X_DA߫( FOR$IO_X_DA߫8 FOR$IO_X_DA FOR$IO_END|JTSCRX FOR$WRITE_IF߫H FOR$IO_X_DA FOR$IO_ENDːLIB$SET_SYMBOLFOR$EXITP <KEYDOLIB$SET_SYMBOLLIB$GET_FOREIGNJTSCRFOR$EXIT$CODE $PDATA($LOCAL FOR$IO_END FOR$IO_X_DA FOR$READ_IF FOR$WRITE_IF3P=