RECORDPASSWORDS0116-Sep-1996 10:39Digital Fortran V6.4-165RECORDPASSWORDSP,EZ$RECORDPASSWORDSPFID,passwd>(), <PP|P` <l LIB$GET_FOREIGN@ $$<&<(D(DD*<<*<$<D 48hpP|[ k(,040 SYS$GETJPIWXLIB$GET_FOREIGNt LIB$INDEXPRPˈ LIB$INDEXPVPRVPV\R\,\B` P˜ LIB$INDEXP\\P\RR˨ˬ˨ FOR$READ_IF߫  FOR$IO_L_R FOR$IO_END\PS,SL P˸ LIB$INDEXP\\P\RR FOR$READ_IF߫ FOR$IO_L_R FOR$IO_END\PS,SL PIVLENP FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDǏ \ˏ Rʏ\x\\\R8:\<> FOR$WRITE_IF8 FOR$IO_L_R?< FOR$IO_W_R FOR$IO_END LIB$INDEXVPS,SF` P`IVLENP\ LIB$INDEXPP\,Oa P`IVLENP\\(`,\0GETPVkVVRVSLHD FOR$WRITE_IFR FOR$IO_L_VS FOR$IO_L_V FOR$IO_END\\T\UELRTRREL\ឫPLX\LIB$SET_LOGICALFOR$EXITP |RECORDPASSWORDS SYS$GETJPIWLIB$SYS_TRNLOGLIB$SET_LOGICALLIB$GET_FOREIGN LIB$INDEXIVLENGETPVFOR$EXIT$CODE,$PDATA$LOCAL FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_L_V FOR$READ_IF FOR$WRITE_IF^PqP|PPP$P#)P[ IVLEN0116-Sep-1996 10:39Digital Fortran V6.4-165 IVLEN IVLENPP[}PQPмPQPPRQRSSTDTT PQSPP IVLENC$CODE$PDATA$LOCALP 5P;P CGETPV0116-Sep-1996 10:39Digital Fortran V6.4-165 GETPV GETPVPPP|[}PQмP޼ Qa޼RbSPSTDTaUTUUabVTVVbUUaVVbPS |GETPVZ$CODE$PDATA $LOCAL'P1HPPPZ