/com Verschiebungen solcontrol,on autots,on *do,k,1,10 time,k nsel,s,loc,z,10 d,all,uz,-k*1 lswrite,k *enddo lssolve,1,10