6XF4 ...[??? FJOCA SECT CENT FGN 18 DOC 
 6XNW    #   
 6Y8G    #   
 6YN6    #MAC  FJOCA                        [FIND JOB BLOCK FROM CPA 
 6^7Q    [   
 6^MB    #STR  %B
 7272          MOD LDX %A JOBRING+FPTR,%B
 72LL    #STR  %B
 736=    #SKI
 73KW          LDX   %A JOBRING+FPTR(%A) 
 745G          SBN   %A AJBRING  
 74K6    [   
 754Q    #STR  N,%C  
 75JB    (   
 7642    #SKI  K6ALLGEO  
 76HL    (                                  [CHECK THAT THE BLOCK FOUND  
 773=          LDCH  0  ATYPE(%A)           [ IS OF THE RIGHT TYPE   
 77GW          SBN   0  JOBQE/64 
 782G          BZE   0  MFJOCA1  
 78G6          GEOERR   1,JBBLOCK?   
 78^Q    MFJOCA1 
 79FB    )   
 79^2    )   
 7=DL    [   
 7=Y=    #NOR