5^XQ    #MAC  GPERI 
 62CB          LDCT  0  #400 
 62X2    #STR  NC,%C 
 63BL          STO   0  CHAINADD(%B) 
 63W=          ADN   0  CHAINADD(%B) 
 64*W     MODD STO   0  JCCA5,%A,CPPTR(%B)   
 64TG          LDN   0  CPRW1(%B)
 65*6     MODD STO   0  JCCA1,%A,CPPTR(%B)   
 65SQ    #STR  %A
 66#B          PERI  0  %A   
 66S2    #STR  %A
 67?L    #SKI
 67R=          PERI  0  CPPTR(%B)
 68=W    #NOR