16 22FL ...      SEG      SECUREX,,EXOFILE LIBRARIAN,EXOFILE   
  11 22_= ...      SEGENTRY K1SECUREX,SECUREX
  19 23DW ...[     THIS SEGMENT IS INTENDED TO CREATE AN ^EXOFILE ENTRANT^   
   4 23YG ...[   
   6 24D6 ...SCRAPFABSNB 
  10 24XQ ...      MFREE    FILE,FABSNB  
   6 25CB ...TRYNEXTPARA 
   9 25X2 ...      MFREE    CPB,CUNI 
  17 26BL ...SECUREX                           [COMMAND ENTRY POINT  
   7 26W= ...      SPARAPASS 
  10 27*W ...      MHUNT    3,CPB,CUNI   
   9 27TG ...      LDX   0  ANUM(3)  
  17 28*6 ...      BZE   0  TRYNEXTPARA         [J IF NULL PARAMETER 
  18 28SQ ...      BNG   0  NOMORE              [J IF NO MORE PARAMETERS 
  15 29#B ...      NAMETOP  3,FILE,FNAME        [FOR FNORM   
  21 29S2 ...      FNORM    1                   [ANALYSE QUALIFIERS - WE WANT TRAPS  
  10 2=?L ...      MHUNT    3,FILE,FNAME 
  17 2=R= ...      NAMETOP  3,CPB,CUNI          [FOR USEROPEN/REPERR 
  21 2?=W ...      TESTREP2 NAMEFORM,TRYNEXTPARA[FNORM WILL HAVE REPORTED ANY ERRORS 
  10 2?QG ...      MHUNT    3,FILE,FABSNB
  21 2#=6 ...      JMBS     WRONGFABSNB,3,BFABSTREAM,BFABTSN,BFABREEL,BFABWORK,     -
  11 2#PQ ...               BFABLANG,BFABLIB 
   8 2*9B ...      LDX   0  A1(3)
   7 2*P2 ...      SBN   0  4
  19 2B8L ...      BZE   0  USERONLY            [J IF ONLY A USERNAME GIVEN  
   9 2BN= ...      BS       3,BFABEXO
  18 2C7W ...      USEROPEN XBREAKIN,CREATE     [CREATE DIRECTORY ENTRY  
  16 2CMG ...      REPERR2  SCRAPFABSNB         [J IF REPLY OK   
  18 2D76 ...      BRN      SCRAPFABSNB         [ERROR REPORTED BY REPERR
   4 2DLQ ...[   
   5 2F6B ...NOMORE  
   6 2FL2 ...      ENDCOM
   4 2G5L ...[   
   6 2GK= ...WRONGFABSNB 
   9 2H4W ...      ERROR    ERENTTYPE
  10 2HJG ...      BRN      SCRAPFABSNB  
   4 2J46 ...[   
   5 2JHQ ...USERONLY
  17 2K3B ...      ERROR    AMISS,JLOCNA        [LOCAL NAME MISSING  
  10 2KH2 ...      BRN      SCRAPFABSNB  
   4 2L2L ...[   
   5 2LG= ...XBREAKIN
  10 2L_W ...      GEOERR   1,BREAKIN?   
   4 2MFG ...#END
   6 ____ ...737023240002