^282    #MAC  SHAREON   
 ^2ML    #   
 ^37=    #STR  %A
 ^3LW          LDX   0  %A           [IF %A PRESENT  
 ^46G    #STR  %A
 ^4L6    #SKI
 ^55Q          LDX   0  CPPTR(2)     [IF %A ABSENT   
 ^5KB          '171  0  3
 ^652          BNG   0  %B           [^ IF REJECTED  
 ^6JL    #NOR