LDA     2,i         
         LDX     2,i         
         CALL    mystere     
         STOP                
temp:    .WORD   0           
mystere: STA     temp,d      
         DECO    temp,d      
         CHARO   32,i        
         STX     temp,d      
         DECO    temp,d      
         CHARO   10,i        
         CPA     0,i         
         BRNE    a2          
         ADDX    1,i         
         RET0                
a2:      CPX     0,i         
         BRNE    a3          
         SUBA    1,i         
         LDX     1,i         
         CALL    mystere     
         RET0                
a3:      SUBX    1,i         
         SUBSP   2,i         ; #sa
         STA     sa,s        
         CALL    mystere     
         LDA     sa,s        
         ADDSP   2,i         ; #sa
         SUBA    1,i         
         CALL    mystere     
         RET0                
sa:      .EQUATE 0           ; #2d
         .END