3YG2    #   
 3Y^L    #MAC EXTRACODE  
 3^F=    #MEND DOIHEMS   
 3^YW    #TRA K90DOIHEMS 
 42DG                   +G400HOOKNO+1
 42Y6    #TRA 5*G400HOOKNO+1+K90DOIHEMS  
 43CQ                   4H%B 
 43XB                   12H%A
 44C2                   %C   
 44WL    #END
 45B=    #ALT  G400HOOKNO=G400HOOKNO+1   
 45TW    #NOR