13 22FL          SEG      LIBTSN,,N.R.BOULT,LIBRARY
   4 22_=    #   
  12 23DW          SEGENTRY K1LIBTSN,QK1LIBTSN   
   4 23JR ...[   
  17 23NN ...[  (C)   COPYRIGHT  INTERNATIONAL COMPUTERS LTD  1982   
   4 23SK ...[   
   4 23YG    #   
  21 24D6    #     THIS SEGMENT IS ENTERED FROM USEROPEN AT K1 IF THE TAPE HAS NOT   
  21 24XQ    #     BEEN FOUND IN THE DIRECTORY SPECIFIED IN THE FILE/FABSNB, AND A   
  16 25CB    #     TSN ONLY HAD BEEN GIVEN IN THE ONLINE COMMAND.
   4 25X2    #   
  20 26BL    #     SYSTEM.SERIAL IS SEARCHED AND IF FOUND AND NOT WRONGED, QUERY,
  20 26W=    #     TO BE RETURNED OR DEADED, ANOTHER USEROPEN IS GIVEN SPECIFYING
  13 27*W    #     THE USERNAME FROM SYSTEM.SERIAL.  
  19 27TG    #     IF TSN NOT FOUND IN SYSTEM.SERIAL LIBTSN GOES ACROSS TO   
   7 28*6    #     K2LIBINSEC
   9 28SQ    SUWR           #2000000 
   9 29#B    SOWR           #1000000 
   9 29S2    SQUE           #400000  
   9 2=?L    STBD           #10000000
   4 2=R=    #   
   4 2?=W    #   
   6 2?QG    QK1LIBTSN   
  10 2#=6          LDX   7  ACOMMUNE1(2) 
   9 2#PQ          STO   7  AWORK1(2)
  10 2*9B          LDX   7  ACOMMUNE2(2) 
   9 2*P2          STO   7  AWORK2(2)
  10 2B8L          HUNT     3,FILE,FABSNB
   9 2BN=          SMO      HDREC(3) 
   9 2C7W          LDX   6  A1+1(3)  
  20 2CMG          SSEARCH  NOTIN,6             [FIND ANY ENTRY IN :SYSTEM.SERIAL
  15 2D76          LDX   0  2(3)                [ENTRY FOUND 
  14 2DLQ          BZE   0  NOTOW               [J IF NOT
   8 2F6B          LDX   0  5(3) 
  17 2FL2          BNG   0  NOTOW               [J IF TO BE RETURNED 
   7 2G5L          SLL   0  1
   8 2GK=          BNG   0  WORK 
   8 2H4W          LDX   0  5(3) 
   9 2HJG          ANDX  0  STBD(1)  
  17 2J46          BNZ   0  TBD                 [J IF TO BE DEADED   
   8 2JHQ          LDX   0  5(3) 
   9 2K3B          ANDX  0  SUWR(1)  
  17 2KH2          BNZ   0  UWR                 [J IF USER WRONGED   
   8 2L2L          LDX   0  5(3) 
   9 2LG=          ANDX  0  SOWR(1)  
  18 2L_W          BNZ   0  OWR                 [J IF OPERATOR WRONGED   
   8 2MFG          LDX   0  5(3) 
   9 2M_6          ANDX  0  SQUE(1)  
  17 2NDQ          BNZ   0  QUE                 [J IF QUERY STATUS   
   7 2NYB          LDX   2  3
  10 2PD2          HUNT     3,FILE,FABSNB
   7 2PXL          ADN   2  2
   8 2QC=          ADN   3  A1+1 
  17 2QWW          MOVE  2  3                   [MOVE IN USER NAME   
   8 2RBG          STOZ     3(3) 
   7 2RW6          ADN   3  3
   8 2S*Q          LDN   4  1(3) 
  17 2STB          MOVE  3  5                   [ZEROIZE LOCAL NAME  
   7 2T*2          NGN   0  1
   8 2TSL          STO   0  6(3) 
   8 2W#=          STO   6  7(3) 
   8 2WRW          SBN   3  A1+4 
   8 2X?G          LDN   0  10   
   9 2XR6          STO   0  HDREC(3) 
  16 2Y=Q          ALTLEND  3,12,FILE,FABSNB    [CORRECT LENGTH  
  16 2YQB          CLOSETOP                     [SYSTEM.SERIAL   
  14 2_=2          USEROPEX XBRKIN,AWORK1(2),AWORK2(2)   
   7 2_PL          UPPLUS   1
   5 329=    NOTIN   
   7 32NW          CLOSETOP  
  10 338G          ACROSS   LIBINSEC,2   
   4 33N6    UWR 
   9 347Q          KEEPREP  7,USWRONG
   8 34MB          BRN      UPCL 
   4 3572    OWR 
   9 35LL          KEEPREP  7,OPWRONG
   8 366=          BRN      UPCL 
   4 36KW    QUE 
   9 375G          KEEPREP  7,QUERY  
   8 37K6          BRN      UPCL 
   4 384Q    TBD 
   9 38JB          KEEPREP  7,DEADED 
   8 3942          BRN      UPCL 
   5 39HL    XBRKIN  
   5 3=3=          UP
   5 3=GW    NOTOW   
   8 3?2G          LDX   3  5(3) 
   7 3?G6          SLL   3  1
  16 3?_Q          BNG   3  WORK                [J IF WORK TAPE  
  10 3#FB          KEEPREP  7,POOLTAPE   
   8 3#_2          BRN      UPCL 
   4 3*DL    WORK
  10 3*Y=          KEEPREP  7,WORKTAPE   
   7 3BCW    UPCL  CLOSETOP  
   7 3BXG          PUTREP2  7
   7 3CC6          UPPLUS   1
  10 3CWQ          MENDAREA 50,K99LIBTSN 
   4 3DBB    #END
   8 ____ ...42526004000100000000