JHQ2    #MAC  SETCODE   
 JJ9L    #STR  %A
 JJP=          SMO      %A   
 JK8W    #STR  %A
 JKNG    #SKI
 JL86          SMO      CPPTR(2) 
 JLMQ          LDX   1  JADDP
 JM7B    #STR  READER,%B 
 JMM2    (   
 JN6L    #STR  %C
 JNL=    #SKI
 JP5W    (   
 JPKG          LDCT  0  #200 
 JQ56          ERS   0  APCODET(1)   
 JQJQ    )   
 JR4B    #STR  %C,1900   
 JRJ2    (   
 JS3L          LDCT  0  #200 
 JSH=          STO   0  APCODET(1)   
 JT2W    )   
 JTGG    #STR  %C,SPECIAL
 JW26          STOZ     APCODET(1)   
 JWFQ    )   
 JW^B    #STR  READER,%B 
 JXF2    #SKI
 JXYL    (   
 JYD=    #STR  %C
 JYXW    #SKI
 J^CG    (   
 J^X6          LDCT  0  #400 
 K2BQ          ERS   0  APCODE(1)
 K2WB    )   
 K3B2    #STR  %C,1900   
 K3TL    (   
 K4*=          LDCT  0  #400 
 K4SW          STO   0  APCODE(1)
 K5#G    )   
 K5S6    #STR  %C,SPECIAL
 K6?Q          STOZ     APCODE(1)
 K6RB    )   
 K7?2          LDX   1  FX1  
 K7QL    #NOR