16 22FL    #LIS           K0NEW>K0ALLGEO>K0GREATGEO>K0LIBRARY  
  13 22_=          SEG      NEWA,65,N.R.BOULT,LIBRARY
  11 23DW          SEGENTRY K1NEWA,QK1NEWA   
   4 23JR ...[   
  17 23NN ...[  (C)   COPYRIGHT  INTERNATIONAL COMPUTERS LTD  1982   
   4 23SK ...[   
  11 23YG          SEGENTRY K2NEWA,QK2NEWA   
  13 243L ...      FSHENTRY K3NEWA,,ZBRKINB,ZBRKINB  
  12 246Q ...      FSHENTRY K4NEWA,,ODRAWN,ODRAWN
  13 249W ...      FSHENTRY K5NEWA,QK5NEWA,,QK5NEWA  
  13 24*2 ...      FSHENTRY K7NEWA,,QK7NEWA,QK7NEWA  
   9 24D6    ZODRAWN        +BUDGODR 
   9 24XQ    ZINC           +BUDGINC 
   9 25CB    ZSPA           +BUDGSPA 
   5 25X2    QK1NEWA 
  13 26BL    #     SPACEMT BUDGET OVERDRAWN OR ZERO  
   9 26C* ...      LDX   0  AWORK4(2)
   8 26D4 ...      BZE   0  ODR6 
   9 26DR ...      SSEARCH  ODR6,7   
   7 26FG ...      STEPWRITE 
   9 26G9 ...      SSCOR    0(3),DEC 
   9 26GY ...      STOZ     AWORK4(2)
   9 26HM ...ODR6  CALL  5  SYSCLOSE 
   5 26W=    ODRAWN  
   8 27*W          SMO      FX2  
   8 27TG          LDX   2  CPPTR
   8 28*6          BZE   2  ODR5 
   4 28F3 ...XINA
   4 28NT ...UNLD
  10 28SQ          UNLOAD   ,,,UNL,AUT   
   4 29#B    ODR5
   8 29S2          BNG   3  ODR3 
  10 2=?L          LDX   4  ZODRAWN(1)   
   8 2=R=          BRN      ODR4 
   4 2?=W    ODR3
   9 2?QG          LDX   4  ZINC(1)  
   4 2#=6    ODR4
   7 2#PQ          LDN   3  0
  10 2*9B          MHUNT    1,AONBS,GLIST
  10 2*P2          LDX   7  ALOGLEN(1)   
   7 2B8L          SBN   7  1
   4 2BN=    ODR1
   7 2C7W          ADN   3  1
   7 2CMG          SMO      3
   8 2D76          LDX   0  A1(1)
   8 2DLQ          BZE   0  ODR2 
   7 2F6B          SPARANOX 3
   9 2FL2          LDX   5  ZSPA(1)  
   8 2G5L          ERRORX   4,5  
   9 2GK=          MFREE    CPB,CUNI 
  10 2H4W          MHUNT    1,AONBS,GLIST
   4 2HJG    ODR2
   9 2J46          BXL   3  7,ODR1   
   7 2JHQ          FREECORE 1
   8 2K3B    #     END OF COMMAND
   4 2KH2    TEND
  10 2LG=          MHUNT    1,FLIB,FMES  
   8 2L_W          LDX   0  A1(1)
   8 2MFG          SMO      FX2  
   8 2M_6          STO   0  CPPTR
   7 2NDQ          FREECORE 1
   6 2NYB          ENDCOM
   7 2PD2    #     BREAKIN   
   5 2PXL    QK2NEWA 
   5 2QC=    ZBRKIN  
  17 2QWW          CALL  5  SYSCLOSE            [CLOSE ANY OPEN FILES
   9 2RBG          LDX   0  AWORK4(2)
  21 2RW6          BPZ   0  ZBRKINB             [J UNLESS COUNT OF REQUESTERS UPDATED
  12 2S*Q          OPENSYS  ZBRKIN,SERIAL,GENERAL
  20 2STB          SSEARCH  ZBRKINA,7           [LOOK FOR ENTRY IN :SYSTEM.SERIAL
   7 2T*2          STEPWRITE 
  19 2TSL          SSCOR    0(3),DEC            [DECREASE COUNT OF REQUESTERS
   5 2W#=    ZBRKINA 
   7 2WRW          CLOSETOP  
   5 2X?G    ZBRKINB 
   9 2XR6          LDX   0  CPPTR(2) 
  18 2Y=Q          BZE   0  YBRKIN              [J UNLESS TAPE ALLOCATED 
   5 2YCY ...X2INA   
  15 2YQB          UNLOAD   ,,,UNL,AUT          [UNLOAD TAPE 
   5 2_=2    YBRKIN  
  10 2_PL          MHUNT    1,FLIB,FMES  
   8 329=          LDX   0  A1(1)
   8 32NW          SMO      FX2  
   8 338G          STO   0  CPPTR
   7 33N6          FREECORE 1
   7 347Q          COMBRKIN  
   4 34MB    #   
   8 3572    #     SUBROUTINES   
   4 35LL    #   
  13 366=    #     SUBROUTINE TO CLOSE ANY OPEN FILES
  15 36KW    #     X5 HOLDS THE LINK. ON EXIT X1=FX1 , X2=FX2
   5 375G    SYSCLOSE
   8 37K6          SBX   5  FX1  
   4 384Q    SCL1
   8 38JB          SMO      FX2  
   9 3942          LDX   0  AWORK3   
   8 39HL          BZE   0  SCL2 
   7 3=3=          CLOSETOP  
   7 3=GW          LDN   0  1
   9 3?2G          SBS   0  AWORK3(2)
   8 3?G6          BRN      SCL1 
   4 3?_Q    SCL2
   8 3#FB          ADX   5  FX1  
   7 3#_2          EXIT  5  0
  10 3*DL          MENDAREA 50,K99NEWA   
   4 3*Y=    #END
   8 ____ ...74554307000100000000