*COMDECK /UNLGET/ 
          F.RM      FOJG,X6 
          ZR        X6,ENDG 
          SX6       X6+=YRM$G1
          MX5       0 
          F.RM      CNF 
          PL        X1,NOTCNF           NOT A CONNECTED FILE
          SA5       =YPFET$RM      SAVE PFET ITS FILE NAME-ADD IN X5
          MX7       42
          BX5       X5*X7 
          SX7       A5
          BX5       X5+X7          BEFORE GPTMDSQ GET UNLOADED
NOTCNF    BSS       0 
          RJ        UNL            UNLOAD GET$SQ/WA 
          NZ        B4,UNLGR
          SA1       =XLOF$RM       IF FIRST ENTRY OF LOF IS ZOU FILE
          SA1       X1+B1 
          IX7       X1-X5 
          NZ        X7,UNLGR
          RJ        ZAPZOU         REMOVE ZOU FROM LIST-OF-FILES
UNLGR     BSS       0 
          F.RM      RTJG,X6 
          ZR        X6,ENDG 
          RJ        UNL            UNLOAD GET$(RT)
          F.RM      RT,B4 
          NONEOF    B4,(#WT#,#DT#,#TT#),ENDRT 
          SX6       =YGET$F 
          RJ        UNL            UNLOAD EXTRA RT ROUTINE
 ENDRT    CI.SQ     ENDG
          SX6       =YGET$K 
          RJ        UNL            UNLOAD GET$EK
 ENDG     SET.RM    GETJ,0
* END /UNLGET/
