L     20
      T     MW    14
      LAR1  P#0.0
      LAR2  P#0.0
      L     #IN0
M002: T     MW    40
      L     #IN1
M001: T     MW    42
      OPN   DB [MW 14]
      A     M [AR1,P#10.0]
      A     M [AR2,P#12.0]
      =     DBX [AR2,P#0.0]
      A     DBX [AR2,P#0.0]
      JC    M003
      L     P#0.1
      +AR2  
      L     MW    42
      LOOP  M001
      LAR2  P#0.0
      L     MW    14
      L     1
      +I    
      T     MW    14
      L     20
      -I    
      L     #IN0
      >I    
      JC    M003
      L     P#0.1
      +AR1  
      L     MW    40
      LOOP  M002
M003: BE