66^8 ...[??? FPCACA SECT CENT FGN 18 DOC
 67?L    #   
 67R=    #   
 68=W    #   
 68QG    #   
 69=6    #MAC  FPCACA                       [FIND PCA FROM CPA   
 69PQ    [   
 6=9B    #STR  %B
 6=P2          MOD LDX %A JOBRING+BPTR,%B
 6?8L    #STR  %B
 6?N=    #SKI
 6#7W          LDX   %A JOBRING+BPTR(%A) 
 6#MG          SBN   %A JOBRING  
 6*76    [   
 6*LQ    #STR  N,%C  
 6B6B    (   
 6BL2    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 6C5L    (                                  [IS OF THE RIGHT TYPE
 6CK=          LDCH  0  ATYPE(%A)
 6D4W          SBN   0  APET/64  
 6DJG          BZE   0  MFPCACA1 
 6F46          GEOERR   1,PCA?   
 6FHQ    MFPCACA1
 6G3B    )   
 6GH2    )   
 6H2L    [   
 6HG=    #NOR