82L4 ...[??? FCAJO SECT CENT FGN 18 DOC 
 82TW    #   
 83*G    #   
 83T6    #MAC  FCAJO                        [FIND  CPA FROM JOB BLOCK
 84#Q    [   
 84SB    #STR  %B
 85#2          MOD LDX %A AJBRING+BPTR,%B
 85RL    #STR  %B
 86?=    #SKI
 86QW          LDX   %A AJBRING+BPTR(%A) 
 87=G          SBN   %A JOBRING  
 87Q6    [   
 889Q    #STR  N,%C  
 88PB    (   
 8992    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 89NL    (                                  [ IS OF THE RIGHT TYPE   
 8=8=          LDCH  0  ATYPE(%A)
 8=MW          SBN   0  CPAT/64  
 8?7G          BZE   0  MFCAJO1  
 8?M6          GEOERR   1,CPA?   
 8#6Q    MFCAJO1 
 8#LB    )   
 8*62    )   
 8*KL    [   
 8B5=    #NOR