!if $step<1
 error=$error no_undo
 !exit
!endif

thisstep=!line $step of $steplist
lmodif=!item 1 of $thisstep
origin=!item 2 of $thisstep
dest=!item 3 of $thisstep
coef=!item 4 to -1 of $thisstep

!if $lmodif=add
 coef=-($coef)
!endif
!if $lmodif=multiply
 coef=1/($coef)
!endif

!read proc.$lmodif
step=$[$step-1]
thisstep=$lmodif,$origin,$dest,$coef_out

