16 22FL    #SEG  XATTACH                      [PHILIP TURNER.  
   8 22_=    #OPT  K0XATTACH=0   
  15 23DW    #LIS  K0XATTACH>K0ALLGEO>K0GREATGEO>K0COMMAND   
   7 23YG          8HXATTACH 
   4 24D6    #   
   4 24XQ    #   
   4 25CB    #   
  17 25X2          SEGENTRY K1XATTACH,X1XATTACH     [ATTACH MACRO.   
   4 26BL    #   
  17 26W=          SEGENTRY K20XATTACH,X20XATTACH   [DETACH MACRO.   
   4 27*W    #   
  18 27TG          SEGENTRY K21XATTACH,X21XATTACH   [CONOWNNAME MACRO.   
   4 28*6    #   
   4 28SQ    #   
   4 29#B    #   
   8 29S2    SIX            +6   
  10 2=?L    RIDICON        +CONDCBLEN   
   4 2=R=    [   
   4 2?=W    [   
   4 2?QG    [   
   8 2#=6    ZOPEN SBX   7  FX1  
   7 2#*= ...#UNS  IDFMARK8  
   9 2#DB ...      IDFOPEN  ZZBRKIN  
   7 2#HG ...#UNS  IDFMARK8  
   4 2#LL ...#SKI
   9 2#PQ          IDFOPEN  BREAKIN  
   8 2*9B          ADX   7  FX1  
   7 2*P2          EXIT  7  0
   4 2B8L    [   
   9 2BN=    [SEARCH FOR UNIT/LINE   
   5 2C7W    SEARCH  
   8 2CMG          SBX   7  FX1  
  17 2D76          MSEARCH  2,3,4               [SEARCH FOR UNIT/LINE
   8 2DLQ          SMO      FX2  
   9 2F6B          LDX   0  ACOMMUNE1
   8 2FL2          BNZ   0  S2   
  17 2G5L          GEOERR   1,NOUNIT            [ILLEGAL UNIT/LINE   
   4 2GK=    S2  
   8 2H4W          ADX   7  FX1  
   7 2HJG          EXIT  7  0
   4 2J46    [   
  18 2JHQ    YREC  LDX   3  7(2)                [POINTER TO THE NEXT CELL
  16 2K3B          BZE   3  R300                [NO MORE LINES   
  18 2KH2          SMO      FX2                 [REL.POINTER TO OLD CELL 
   9 2L2L          LDX   0  AWORK3   
   8 2LG=          ANDN  0  #7777
  21 2L_W          SBX   2  0                   [POINTER TO THE BEGINNING OF THE RECO
  15 2MFG    YREC1 BPZ   3  Y20                 [SAME RECORD 
   7 2M_6          LDX   0  3
   7 2NDQ          SRL   0  9
   8 2NYB          ANDN  0  #777 
   8 2PD2          LDX   2  FX2  
  15 2PXL          STO   0  ACOMMUNE3(2)         [RECORD NO  
   8 2QC=          SBX   7  FX1  
   7 2QWW          MXB      2
   8 2RBG          ADX   7  FX1  
   4 2RW6    Y20 
   8 2S*Q          ANDN  3  #777 
  19 2STB          ADX   2  3                   [ABS.POINTER TO THE NEXT CELL
   8 2T*2          SMO      FX2  
  21 2TSL          DSA   3  AWORK3              [STORE REL POINTER TO THE NEXT CELL  
   7 2W#=          EXIT  7  0
   4 2WRW    [   
   5 2X?G    XCLOSE  
   8 2XR6          SBX   7  FX1  
   9 2Y=Q          MFREEALL FILE,FRRB
   6 2YQB          CLOSE 
   8 2_=2          ADX   7  FX1  
   7 2_PL          EXIT  7  0
   4 2_RJ ...[   
   4 2_TG ...[   
   8 2_XD ...ZONLR LDX   2  FX2  
   7 2__B ...      LDCT  0  2
   9 323# ...      ORS   0  EXT+11(2)
   9 325= ...      ERS   0  EXT+11(2)
   7 3278 ...      EXIT  7  0
   4 329=    [   
   4 32NW    [   
   6 338G    X1XATTACH   
  10 33N6          SETNCORE 7,2,GOUT,COMP
   8 347Q          CALL  7  ZOPEN
   8 34MB          SMO      FX2  
  21 3572          STOZ     ACOMMUNE1           [SEARCH FOR AND EVALUATE FIRST CPB   
  20 35LL                                       [CUNI BLOCK OR IDF COINF BLOCK   
   7 35X6 ...      LDN   3  0
  21 367L ...      MNAME    2,3                 [FIND CONCEP - NO ERROR IF WRONG TYPE
   8 36D6 ...      SMO      FX2  
   9 36NL ...      LDX   0  ACOMMUNE1
  18 36_6 ...      BZE   0  NOTEX               [J IF CONCEP NOT FOUND   
  21 379L ...[                                   NOW CHECK TYPE - WE DONT LET MNAME..
  21 37G6 ...[                                   ...DO IT AS IT WOULD NOT COME BACK  
  17 37QL ...[                                   ...IF TYPE WAS WRONG
   8 3836 ...      LDCT  0  #200 
   8 38?L ...      SMO      FX2  
   9 38J6 ...      ANDX  0  AWORK3   
  14 38SL ...      BNZ  0  PIPB                [J IF IPB 
   8 3956 ...      LDCT  0  #400 
   7 39*L ...PIPB  LDX   6  0
   7 39L6 ...      SMO      2
   8 39WL ...      ANDX  0  6(3) 
  17 3=76 ...      BZE   0  RTYPE              [J IF SUITABLE TYPE   
  10 3=CL ...      MHUNTW   2,IDF,COINF  
   9 3=N6 ...      NAME  2,CPB,CUNI  
   9 3=YL ...      ERROR    JPARPER  
   5 3?96 ...NOTEX   
   9 3?G6          CALL  7  XCLOSE   
   4 3?_Q    #   
   4 3#FB    #   
  19 3#_2          UPPLUS   1                   [CONCEPT NAME DOES NOT EXIST 
   4 3*DL    [   
   8 3*LW ...RTYPE ERX   6  CACT 
   7 3*T6 ...      SMO      2
  16 3B3B ...      ORS   6  6(3)               [SET CONCEP TYPE  
   7 3B9L ...      SMO      2
   8 3BCW          LDXC  6  4(3) 
   8 3BF7 ...      BCS      XZOL 
  10 3BGD ...      SEGENTRY K61XATTACH   
   8 3BHP ...      BRN      X10  
   4 3BK2 ...[   
   4 3BL? ...[   
   4 3BMJ ...[   
   4 3BNT ...[   
   4 3BQ6 ...[   
   8 3BRC ...      SMO      FX2  
   9 3BSN ...      LDX   0  AWORK3   
   7 3BT_ ...      SLL   0  1
   8 3BX= ...      BPZ   0  X10  
   8 3BXW ...      LDN   0  #10  
   8 3BYH ...      SMO      FX2  
   9 3B_S ...      ANDX  0  CONTEXT  
   8 3C35 ...      BZE   0  X10  
   9 3C4B ...      CALL  7  XCLOSE   
   7 3C5M ...      UPPLUS   7
   4 3C6Y ...[   
   4 3C89 ...[   
   4 3C9G ...[   
   4 3C=R ...[   
   4 3C#4 ...[   
   4 3C** ...XZOL
  20 3CC6          LDCT  0  2                   [SET B 7 IN X+11 IN CPAT WHICH   
  18 3CWQ          SMO      FX2                 [MEANS CONCEPTUAL ONLINE 
   9 3DBB          ORS   0  EXT+11   
   9 3DW2    X10   LDX   0  BRECNO(2)
   8 3F*L          SMO      FX2  
  16 3FT=          STO   0  AWORK1              [CONCEPTUAL RECNO
   8 3G#W          SMO      FX2  
  17 3GSG          STO   3  AWORK2              [CONCEPTUAL POINTER  
  20 3H#6    [CHECK INITIALLY THAT SPECIFIED LINES ARE AVAILABLE IN CONCEPTUAL   
   4 3HRQ    [   
   7 3J?B          SMO      2
  15 3JR2          SBX   6  5(3)                [LINES USED  
  16 3K=L          BZE   6  R300                [NONE AVAILABLE  
   7 3KQ=          SMO      2
  18 3L9W          ADX   6  5(3)                [SIZE OF THE CONCEPTUAL  
   7 3LPG          SMO      2
  19 3M96          LDX   5  6(3)                [LOWEST LINE IDENTIFIER NO   
   8 3MNQ          ANDN  5  #7777
  17 3N8B          ADX   2  3                   [CREATE ABS POINTER  
   8 3NN2          SMO      FX2  
  19 3P7L          DSA   3  AWORK3              [STORE REL.POINTER TO A CELL 
   8 3PM=          ORX   5  GSIGN
   8 3Q6W          BRN      R50  
  15 3QLG    RY50  ERX   5  GSIGN               [UNSET MARKER
  17 3R66    R50   CALL  7  YREC                [POINTER TO NEXT CELL
   8 3RKQ          BNG   5  RY50 
   4 3S5B    #   
  21 3SK2    #     AWORK3 CONTAINS REL.POINTER TO THE 1ST SUBSIDIARY CONCEPTUAL CELL 
  20 3T4L    #     X2 CONTAINS ABS.POINTER TO CONC.CELL WHITHIN REC(OLD OR NEW)  
  12 3TJ=    #     X3 CONTAINS THE SAME AS AWORK3
  18 3W3W    #     AWORK1 - REC.NO OF REC WHERE IS THE 1ST CONCEP CELL   
  19 3WHG    #     AWORK2 - REL POINTER TO 1ST CONC.CELL WHITHIN THAT RECORD 
  11 3X36    #     X6 SIZE OF THE CONCEPTUAL 
  12 3XGQ    #     X5-LOWEST LINE/IDENTIFIER NO  
   4 3Y2B    #   
  15 3YG2          MHUNTW   1,IDF,CONCEP        [DATA BLOCK  
  21 3Y_L          LDX   0  A1+2(1)             [THIS APPLIES FOR SEE BELOW(IF NEG)  
  21 3_F=          BPZ   0  VW1                 [ONE HAS TO ADD 1 TO THE LOWEST IDE  
  16 3_YW          LDN   0  1                   [NO FOR EACH PASS
   9 42DG          ADS   0  A1+1(1)  
   9 42Y6    VW1   LDX   4  A1+1(1)  
  20 43CQ          BNZ   4  SPLSP               [J IF PARTICULAR LINE SPECIFIED  
  21 43XB          LDN   0  1                   [THIS CODE ONLY APPLIES TO FIRST PASS
  21 44C2          NGS   0  A1+2(1)             [ WHEN NO SPECIAL LINES SPECIFIED.   
  20 44WL          LDX   4  5                   [STORE THE LOWEST IDE NO IN A1+1 
  21 45B=          STO   4  A1+1(1)             [OF THE CONCEPT BLOCK AND NEGATE A1+2
   8 45TW    SPLSP SMO      FX2  
  16 46*G          STOZ     AWORK4              [INITIALISE AWRK4
   7 46T6          LDX   0  6
   8 47#Q          SLL   0  12   
  21 47SB          ORX   5  0                   [X5:B0-B11 CON.SIZE,B12-B23 LOW.L/I N
  16 48#2          LDX   6  4                   [ANALYSED IDE.NO 
  16 48RL    RPLYS LDX   0  5                   [LOWEST L/I NO.  
   8 49?=          ANDN  0  #7777
  21 49QW          SBX   4  0                   [IS THE ANALYSED L/I NO.<LOWEST L/I N
   8 4==G          BNG   4  QUOFS
  21 4=Q6          LDX   0  5                   [IS THE ANALYSED L/I NO.WITHIN THE   
  18 4?9Q          SRL   0  12                  [RANGE OF THE CONCEPTUAL 
   7 4?PB          TXL   4  0
   8 4#92          BCC      QUOFS
   7 4#NL    XX2   LDX   0  4
   7 4*8=          SBN   0  7
   8 4*MW          BNG   0  XX1  
   7 4B7G          SBN   4  7
   8 4BM6          CALL  7  YREC 
   8 4C6Q          BRN      XX2  
  20 4CLB    XX1   SMO      4                   [J. IF THIS LINE ALREADY IN USE. 
   8 4D62          LDX   0  0(2) 
   8 4DKL          BNZ   0  WF2  
   8 4F5=          SMO      FX2  
  19 4FJW          LDX   0  AWORK3              [J IF NOT IPB TO DO ATTACH   
   7 4G4G          SLL   0  1
   8 4GJ6          BPZ   0  R500 
   8 4H3Q          SMO      FX2  
   9 4HHB          LDX   0  EXT+11   
   7 4J32          SLL   0  7
  18 4JGL          BPZ   0  R500                [J IF IPB AND NOT ONLINE 
  21 4K2=          MHUNTW   1,GOUT,COMP         [BLOCK WHERE ARE STORED ALL REGISTERS
  19 4KFW          LDN   0  1                   [CHECK WHETHER THE CONCEPTUAL
  20 4K_G          LDN   1  A1(1)               [IDENTIFIER IS NOT STILL USED BY 
  17 4LF6          MOVE  0  7                   [AN OBJECT PROGRAM   
   9 4LYQ          LDX   1  IPBADDR  
   3 4M49 ...
   7 4M7N ...XX8   LDCT  0  1
   7 4M?7 ...      SRL   0  1
   9 4MBL ...      ANDX  0  IPBSW(1) 
   8 4MG5 ...      BZE   0  XX7  
   9 4MN2 ...      LDX   1  IPBL(1)  
   8 4MTX ...      BRN      XX8  
  10 4N3S ...XX7   HUNTW    3,IDF,COINF  
  21 4N9P ...      LDX   0  ANUM(3)             [CHECK WHETHER THE CONCEPTUAL NAME   
  20 4NCL          ADN   0  3                   [IN CROUTE CORRESPONDS TO THE ONE
  14 4NX=          SRL   0  2                   [IN COINF
   7 4PBW          SBN   0  2
   8 4PWG          LDX   6  ACES 
   8 4QB6          LDX   7  ACES 
  20 4QTQ          LDX   5  APARA(3)            [PICK UP NAME WE'RE LOOKING FOR  
  20 4R*B          BNG   0  SATE1               [(SPACEFILLED TO 12 CHARACTERS). 
  10 4RT2          LDX   6  APARA+1(3)   
   8 4S#L          BZE   0  SATE1
  10 4SS=          LDX   7  APARA+2(3)   
   7 4T?W    SATE1 LDX   2  1
  12 4TRG          HUNT2J   1,AMXOR,CROUTE,,XX6  
  20 4W?6          LDEX  4  ARINGNO(1)          [NO. OF ENTRIES IN CROUTE BLOCK. 
  20 4WQQ    SATE2 TXU   5  A1+CONNM(1)         [TEST NAME AGAINST THIS ENTRY.   
  10 4X=B          TXU   6  A1+CONNM+1(1)
  10 4XQ2          TXU   7  A1+CONNM+2(1)
  15 4Y9L          BCC      SOK                 [J. IF FOUND.
  19 4YP=          ADN   1  CROUTELEN           [OTHERWISE STEP ON TO NEXT.  
   8 4_8W          BCT   4  SATE2
  17 4_NG ...XX6   CALL  7  ZONLR               [UNSET ONLINE MARKER 
   9 5286 ...      CALL  7  XCLOSE   
   7 52MQ ...      UPPLUS   8
  21 537B ...[                                   BEING ONLINED OR RELEASED - ERROR PA
   7 53_C    SOK   LDX   7  2
  20 54?S          LDX   1  A1+FPTR(1)          [POINTER TO CSTATE BLOCK ENTRY   
  19 54L=          ADX   1  BSTART(1)           [POINTER TO THE TOP OF CSTATE
  18 555W          LDX   1  A1+FPTR(1)          [POINTER TO A1 OF CONDCB 
  10 55KG          MHUNTW   3,GOUT,COMP  
  10 5656          MHUNTW   2,IDF,CONCEP 
   8 56JQ          SMO      FX2  
   9 574B          LDX   0  AWORK4   
   7 57J2          SMO      0
   9 583L          LDX   0  A1+1(2)  
   8 58H=          ANDN  0  #7777
  21 592W          SBX   0  IDNUM(1)            [MINUS LOWEST IDE NO ON THE CONCEPTUA
   8 59GG          SMO      FX1  
  20 5=26          MPA   0  RIDICON             [POINTER TO THE CONCEPTUAL ENTRY 
   9 5=FQ          IPBATTACH 1,RSOS,7
   8 5=_B    NONLI LDN   0  A1(3)
   7 5?F2          LDN   1  1
   7 5?YL          MOVE  0  7
   8 5#D=          BRN      R500 
   4 5#XW    [   
   8 5*CG    RSOS  LDN   0  A1(3)
   7 5*X6          LDN   1  1
   7 5BBQ          MOVE  0  7
  10 5BWB    WF2   MHUNTW   1,IDF,CONCEP 
   8 5CB2          SMO      FX2  
   9 5CTL          LDX   0  AWORK4   
  21 5D*=          ADN   0  1                   [POINTER TO THE CONCEP BLOCK ENTRY   
   7 5DSW          ADX   1  0
   8 5F#G          SMO      FX2  
   9 5FS6          STO   0  AWORK4   
  15 5G?Q          LDX   0  A1+1(1)             [NEXT L/I NO 
   8 5GRB          BPZ   0  WF1  
   7 5H?2          ADN   4  1
   7 5H*9          LDX   0  5
   8 5HCD          SRL   0  12   
   7 5HFM          ADX   0  5
   8 5HHW          ANDN  0  #7777
   7 5HK* ...      SBN   0  2
   8 5HLS ...      SBX   0  A1(1)
   8 5HN#          BNG   0  R300 
   7 5HQL          LDN   0  1
   8 5J==          ADS   0  A1(1)
   8 5JPW          SMO      FX2  
   9 5K9G          STOZ     AWORK4   
   8 5KP6          BRN      XX2  
   4 5L8Q    [   
   8 5LNB    WF1   BZE   0  R300 
   7 5LQ5 ...      LDX   6  5
   8 5LRS ...      ANDN  6  #7777
  18 5LTH ...      BXL   0  6,QUOFS             [J. LESS THAN LOWEST L-I.
   7 5LX= ...      LDX   7  5
  17 5LY_ ...      SRL   7  12                  [X7 = NO. OF SLOTS   
  17 5M2N ...      ADX   7  6                   [ADD. ON LOWEST L-I  
  16 5M4C ...                                   [X7- GREATEST L-I
  16 5M66 ...      BXGE  0  7,QUOFS             [J. OUT OF RANGE 
  17 5M82          SBX   0  A1(1)               [MINUS LAST L/I NO   
   7 5MML          ADX   4  0
   8 5N7=          BRN      XX2  
   4 5NLW    [   
   9 5P6G    QUOFS CALL  7  XCLOSE   
  10 5PL6          MHUNTW   1,IDF,CONCEP 
   9 5Q5Q          LDX   4  A1+1(1)  
   8 5QKB          SMO      FX2  
   9 5R52          STO   4  ACOMMUNE1
   8 5R#S ...      CALL  7  ZONLR
   7 5RJL          UPPLUS   5
   4 5S4=    [   
  17 5SHW    R300  CALL  7  XCLOSE              [NO LINES AVAILABLE  
  17 5SRN ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
   7 5T3G          UPPLUS   3
   4 5TH6    [   
  20 5W2Q    R500  STO   4  5                   [POINTER WITHIN THE CONCEP CELL  
  10 5WGB          MHUNTW   1,IDF,CONCEP 
   8 5X22          SMO      FX2  
   9 5XFL          ADX   1  AWORK4   
  15 5X_=          LDX   4  A1+1(1)             [LINE/IDE NO 
   8 5YDW    R501  SMO      FX2  
   9 5YYG          STO   4  ACOMMUNE6
   9 5_D6          TRACE    4,LINENO 
  13 5_XQ    [STORE  LINE MARKER IN CONCEPTUAL LIST  
  16 62CB                                       [LOCAL POINTER   
   8 62X2          SMO      FX2  
   9 63BL          LDX   3  AWORK3   
   8 63W=          ANDN  3  #7777
  21 64*W          SBX   2  3                   [POINTER TO THE BEG.OF REC.WHERE THE 
  17 64TG                                       [CONC.L/I REQ FOUND  
   8 65*6          SMO      FX2  
  21 65SQ          STO   3  AWORK4              [REL.POINTER TO THE CELL WITHIN THE  
  20 66#B                                       [RECORD,WHERE THE CONC L/I FOUND 
   9 66S2          LDX   0  BRECNO(2)
   8 67?L          SMO      FX2  
  21 67R=          DSA   0  AWORK3              [RECORD NO-OF THE RECORD WHERE THE   
  16 68=W                                       [REQ L/I NO FOUND
  10 68QG          MHUNTW   1,IDF,CONCEP 
  19 69=6          LDX   6  A1(1)               [LINE/IDENT NO AND GEOGR NO  
   7 69PQ          LDX   4  6
   8 6=9B          ANDN  4  #7777
   8 6=P2          LDX   2  FX2  
   7 6?8L          STOZ     1
  10 6?N=    X20   HUNT2    2,FILE,FRRB  
   8 6#7W          ADN   2  A1   
  17 6#MG          BXE   1  BRECNO(2),X30       [LOCATE ZERO RECORD  
   8 6*76          SBN   2  A1   
   8 6*LQ          BRN      X20  
   8 6B6B    X30   SMO      FX2  
   9 6BL2          LDX   0  AWORK3   
   7 6C5L          SLL   0  1
  17 6CK=          BPZ   0  SPGL                [J IF IPB ELSE MPX   
   8 6D4W          LDN   3  BIPB 
   8 6DJG          BRN      ZHRZ 
   8 6F46    SPGL  LDN   3  BUNIT
   9 6FHQ    ZHRZ  CALL  7  SEARCH   
   7 6G3B    X40   LDX   4  6
  14 6GH2          SRL   4  12                  [LINE NO 
  17 6H2L    X42   LDN   3  BLINE(3)            [LOCATE IDE CELL OR  
  16 6HG=          CALL  7  SEARCH              [LOCATE LINE CELL
   7 6H_W          SMO      2
  10 6JFG          LDX   0  CONTCEP(3)   
  12 6J_6          BZE   0  X45                 [
   9 6KDQ          CALL  7  XCLOSE   
  17 6KNJ ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
   7 6KYB          UPPLUS   4
   4 6LD2    [   
   8 6LXL    X45   SMO      FX2  
   9 6MC=          STO   2  ACOMMUNE2
  17 6MWW    [INSERT LINE POINTER IN CONCEPTUAL CELL AND VICE VERSA  
   4 6NBG    [   
  14 6NW6    [AWORK1,AWOR2,ARE CONCEPTUAL CELL MARKERS   
  17 6P*Q    [AWORK3,AWORK4,ARE LINE POSITION IN CONCEPTUAL MARKERS  
  17 6PTB    [X2,X3  LINE CELL MARKERS,X5 POSION IN LINE CONCEPTUAL  
   8 6Q*2          SMO      FX2  
  16 6QSL          LDX   0  AWORK1              [     CONCEPTUAL 
  18 6R#=                                       [J IF NOT IN SAME RECORD 
   7 6RRW          LDX   1  0
   7 6S?G          SLL   1  9
   8 6SR6          SMO      FX2  
   9 6T=Q          ADX   1  AWORK2   
   9 6TQB          TXU   0  BRECNO(2)
  17 6W=2          BCS      X900                [J IF IN OTHER RECORD
   7 6WPL          SMO      2
  20 6X9=          STO   1  CONTCEP(3)          [CONCEPTUAL POINTER IN LINE CELL 
   4 6XNW    [   
  10 6Y8G    [INCREASE NO OF LINES USED  
   8 6YN6          SMO      FX2  
   9 6_7Q          LDX   1  AWORK2   
   7 6_MB          LDN   7  1
   7 7272          SMO      2
   8 72LL          ADS   7  5(1) 
  17 736=    [SET LINE POINTER IN CORRECT LOCATION IN CONCEPTUAL LIST
   8 73KW    X85   SMO      FX2  
   9 745G          LDX   0  AWORK3   
   8 74K6          ANDN  0  #7777
   9 754Q          TXU   0  BRECNO(2)
  17 75JB          BCS      X5000               [NOT IN SAME RECORD  
  18 7642          ADX   5  2                   [CORRECT POSITION IN CELL
   4 76HL    [   
   7 773=    X88   SLL   0  9
   7 77GW    X89   ADX   0  3
   8 782G          SMO      FX2  
   9 78G6          LDX   1  AWORK4   
   7 78_Q          SMO      5
   8 79FB          STO   0  0(1) 
   4 79_2    [END
   7 7=DL    X90   IDFWRITE  
   9 7=Y=          CALL  7  XCLOSE   
  10 7?CW          MHUNTW   3,IDF,COINF  
  15 7?XG          LDX   0  ACOMMUNE6(2)        [LINE NO USED
  16 7#C6          STO   0  ACOMMUNE1(2)        [LINE/IDENT NO   
   8 7#WQ          SLL   0  12   
  10 7*BB          ORS   0  JPARNUM(3)   
   9 7*W2          LDX   0  EXT+11(2)
   7 7B*L          SLL   0  7
  19 7BT=          BNG   0  XROB                [BRANCH IF CONCEPTUAL ONLINE 
   7 7C#W          UPPLUS   6
   4 7CSG    [   
   4 7D#6    [   
   7 7DRQ    XROB  LDCT  0  2
  16 7F?B          ERS   0  EXT+11(2)           [CLEAR ONLINE BIT
   4 7FR2    [   
  20 7G=L          UPPLUS   2                   [ATTACH FROM OPERATOR'S CONSOLE  
   9 7GQ=    NLTL  CALL  7  XCLOSE   
   8 7H9W          SMO      FX2  
  17 7HPG          STO   4  ACOMMUNE1           [CONCEPTUAL L/I NO   
  17 7H_# ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
   7 7J96          UPPLUS   5
   4 7JNQ    [   
   4 7K8B    [   
   8 7KN2    X900  LDX   0  GSIGN
   7 7L7L          ORX   0  1
   7 7LM=          SMO      2
  10 7M6W          STO   0  CONTCEP(3)   
   8 7MLG    [LOCATE CONCEPTUAL  
   8 7N66          LDX   1  FX2  
   9 7NKQ          LDX   6  AWORK1(1)
   9 7P5B          LDX   7  AWORK2(1)
  10 7PK2    X925  HUNT2    1,FILE,FRRB  
   8 7Q4L          ADN   1  A1   
   9 7QJ=          TXU   6  BRECNO(1)
   8 7R3W          BCC      X950 
   8 7RHG          SBN   1  A1   
   8 7S36          BRN      X925 
   4 7SGQ    [   
   7 7T2B    X950  LDN   0  1
   7 7TG2          SMO      7
   8 7T_L          ADS   0  5(1) 
  11 7WF=    [SET  LINE/CONCEPTUAL POINTER   
   8 7WYW          BRN      X85  
   4 7XDG    [   
   8 7XY6    X5000 LDX   1  FX2  
   9 7YCQ          LDX   6  AWORK3(1)
   8 7YXB          ANDN  6  #7777
  10 7_C2    X5100 HUNT2    1,FILE,FRRB  
   8 7_WL          ADN   1  A1   
   9 82B=          TXU   6  BRECNO(1)
   8 82TW          BCC      X5200
   8 83*G          SBN   1  A1   
   8 83T6          BRN      X5100
   5 84#Q    X5200   
   7 84SB          ADX   5  1
   9 85#2          LDX   0  BRECNO(2)
   7 85RL          SLL   0  9
   8 86?=          ORX   0  GSIGN
   8 86QW          BRN      X89  
   4 87=G    [   
  19 87Q6    [THIS SECTION DEALS WITH THE PROCESSING OF THE DETACH COMMAND   
   4 889Q    [   
   4 88PB    [   
   6 8992    X20XATTACH  
  15 89NL          LDX   4  ACOMMUNE1(2)        [GEO.UNIT NO.
  10 8=8=          LDX   5  ACOMMUNE5(2) 
   7 8=MW          LDX   6  4
   8 8?7G          ANDN  4  #777 
  14 8?M6          CALL  7  ZOPEN               [OPEN IDF
   8 8#6Q          SMO      FX2  
   9 8#LB          LDX   0  AWORK3   
   8 8*62          BNG   0  XRIT 
   8 8*KL          LDN   3  BUNIT
   9 8B5=          BRN      XRIT+1   
   8 8BJW    XRIT  LDN   3  BIPB 
  15 8C4G          CALL  7  SEARCH              [LOCATE UNIT 
  14 8CJ6          LDX   4  6                   [LINE NO 
  14 8D3Q          SRL   4  12                  [LINE NO 
  16 8DHB          LDN   3  BLINE(3)            [LOCATE IDE OR   
  15 8F32          CALL  7  SEARCH              [LOCATE LINE 
   7 8FGL          SMO      2
  17 8G2=          LDX   0  5(3)                [CONCEPTUAL POINTER  
   8 8GFW          BNZ   0  PQR  
   9 8G_G          CALL  7  XCLOSE   
   7 8HF6          UPPLUS   1
   4 8HYQ    [   
   4 8JDB    [   
   9 8JY2    PQR   LDX   6  BRECNO(2)
   7 8KCL          SLL   6  9
  18 8KX=          ADX   6  3                   [LINE POINTER FOR RETURN 
   7 8LBW          STO   0  3
  18 8LWG          CALL  7  YREC1               [LOCATE CONCEPTUAL CELL  
  21 8MB6          LDX   0  4(2)                [ONLINE B0 AND SIZE OF THE CONCEPTUAL
   8 8MTQ          BPZ   0  P40  
   8 8N*B          BNG   5  P40  
   7 8NP5 ...      LDCT  0  2
   8 8P4S ...      SMO      FX2  
  19 8PDH ...      ORS   0  EXT+11              [SET MARKER TO SHOW ONLINE   
   4 8PS=    [   
   4 8Q?W    [   
  16 8QRG    P40   LDX   0  5(2)                [NO OF LINES USED
  21 8R?6          SBN   0  1                   [SUBTRACT ONE AND J IF NOT THE LAST  
   8 8RQQ          BNZ   0  ZX2  
   8 8S=B          LDX   4  6(2) 
  19 8SQ2          ANDN  4  #7777               [WHEN NO LINES LEFT IN USE   
  19 8T9L          BCT   4  ZX2                 [SET THE CONCEPTUAL NEUTRAL  
  20 8TP=          LDN   4  1                   [IF THE LOWEST LINE/IDE NO =1.   
   8 8W8W          STO   4  6(2) 
   8 8WNG    ZX2   STO   0  5(2) 
  13 8X86    [SEARCH FOR  LINE ENTRY IN CONCEPTUAL   
  19 8XMQ          LDXC  5  GSIGN               [STEP PAST USER NAME CELL.   
   7 8Y7B    P70   LDN   5  1
   8 8YM2          CALL  7  YREC 
   7 8_6L          LDN   3  0
   8 8_L=          BCT   5  P70  
   4 925W    [   
   4 92KG    [   
   7 9356    P50   SMO      2
   8 93JQ          LDX   0  0(3) 
   7 944B          SBXC  0  6
   8 94J2          BZE   0  P90  
   8 953L          SMO      FX1  
  17 95H=          TXU   3  SIX                 [J. IF END OF CELL   
   8 962W          BCC      P70  
   8 96GG          BUX   3  P50  
   4 9726    [   
   7 97FQ    P90   SMO      2
   8 97_B          LDX   6  0(3) 
   7 98F2          SMO      2
   8 98YL          STOZ     0(3) 
   7 99D=          LDX   3  6
   8 99XW          SMO      FX2  
   9 9=CG          LDX   0  AWORK3   
   8 9=X6          ANDN  0  #7777
   7 9?BQ          SBX   2  0
   8 9?WB          CALL  7  YREC1
  10 9#B2          STOZ     CONTCEP(2)   
  15 9#TL          IDFWRITE                     [ALL OK,END  
   9 9**=          CALL  7  XCLOSE   
   7 9*SW          UPPLUS   3
   4 9B#G    [   
   4 9BS6    [   
   4 9C?Q    [   
   6 9CRB    X21XATTACH  
  14 9D?2          CALL  7  ZOPEN               [OPEN IDF
   8 9DQL          SMO      FX2  
   9 9F==          STOZ     ACOMMUNE1
   7 9FPW          STOZ     3
   8 9G9G          MNAME    2,3  
   8 9GP6          SMO      FX2  
  20 9H8Q          LDX   0  ACOMMUNE1           [DOES THE CONCEPT EXIST IN IDF   
   8 9HNB          BNZ   0  RF3  
   9 9J82          CALL  7  XCLOSE   
  15 9JML          UPPLUS   1                   [IF NOT ERROR
   4 9K7=    #   
  21 9KLW    RF3   LDX   4  BRECNO(2)           [MOVE FROM THE 1ST CONCEPTUAL CELL   
  20 9L6G          SETNCORE 10,1,FILE,FABSNB    [THE CONCEPT NAME WHICH IS THE   
  19 9LL6          STO   4  ACOMMUNE3(2)        [LOCAL NAME OF A FILE TO FILE
  15 9M5Q          NEW      2                   [FABSNB BLOCK
   7 9MKB          LDX   5  2
   9 9N52          STOZ     A1+7(1)  
   9 9NJL          STOZ     A1+8(1)  
   9 9P4=          STOZ     A1+9(1)  
  20 9PHW          ADX   2  3                   [THE CONCEPT.NAME = LOCAL NAME OF
  19 9Q3G          LDN   6  1(2)                [A FILE TO FILE FABSNB BLOCK 
   9 9QH6          LDN   7  A1+4(1)  
   7 9R2Q          MOVE  6  3
   8 9RGB          LDX   3  7(2) 
   8 9S22          BNZ   3  RF2  
  10 9SFL          GEOERR   1,USNCELLM   
   7 9S_=    RF2   LDX   2  5
  21 9TDW          CALL  7  YREC1               [MOVE FROM THE 2ND CONCEPTUAL CELL   
  19 9TYG          MHUNTW   1,FILE,FABSNB       [NAME INTO FILE FABSNB BLOCK 
   8 9WD6          LDN   6  0(2) 
   9 9WXQ          LDN   7  A1+1(1)  
   7 9XCB          MOVE  6  3
   8 9XX2          LDN   0  10   
   8 9YBL          STO   0  A1(1)
   9 9YW=          CALL  7  XCLOSE   
   7 9_*W          UPPLUS   2
  16 9_TG    UNOF  GEOERR   1,UNOF              [DCA NOT FOUND   
   4 9_YL ...[   
   4 =23Q ...[   
   5 =26W ...ZZBRKIN 
  15 =2=2 ...      UP                           [BREAKIN EXIT
   4 =2*6    [   
   4 =2SQ    [   
   4 =3#B    [   
  11 =3S2          MENDAREA 50,K100XATTACH   
   4 =4?L    [   
   4 =4R=    [   
   4 =5=W    [   
   4 =5QG    #END
   8 ____ ...14603524000800000000