//------------------修改部分--------------------------- 

      LAR1  P#1.0       //把P#1.0给AR1 

      LAR2  P#2.0     //把P#2.0给AR2

//--------------------------------------------------------

      OPN   DB1

      L     20

M2:   T     MW    30      //循环20次

      L     DBD [AR1,P#4.0]   

      L     DBD [AR1,P#0.0]

      -R    

      L     DBD [AR1,P#0.0]    

      /R    

      T     MD   100     //将相差的值比例给MD100          

      L     MD   100

      ABS   

      T     MD   100   // 绝对值

      A(    

      L     DBD [AR1,P#2.0]   // 如果这个值不等于0

      L     0.000000e+000

      <>R   

      )     

      A(    

      L     MD   100         //且 MD100小于MD200

      L     MD   200

      <R    

      )     

      =     M [AR2,P#0.0]    // 则 让M 这个位 置1 

//------------------修改部分---------------------------

      +AR1 P#30.0

      +AR2 P#0.1 

//--------------------------------------------------------

      L     MW    30

      LOOP  M2               //  MW30 不为0则继续循环

楼主：我稍微修改了一下，试试看。