#da,ein1'aus1,seq-ap #ko,ein1,aus1,+,+,* el - sdf- liv 2 rr I3=I2-I1; rr I1=I2; rr if(I3.eq.0) I2=9999; eiv 2 eib - sdf- xxx -9999- - *eof #e,aus1 Das müsste klappen. MfG hu