fname_Q=$$m_Q
fname_Z=$$m_Z
fname_C=$$m_Q[$$m_i]
fname_G=$$m_Z[$$m_i]

!if $type=system
 name_line=equation
 name_lines=equations
 a_line=an equation
!else
 name_line=row
 name_lines=rows
 a_line=a row
!endif

!if $thisstep=$empty
 !goto next
!endif

modif=!item 1 of $thisstep
origin=!item 2 of $thisstep
dest=!item 3 of $thisstep
coef=!item 4 to -1 of $thisstep

!if $modif=add
 desc=adding $coef times $name_line ($origin) to $name_line ($dest)
 !goto next
!endif

!if $modif=multiply
 desc=multiplying $name_line ($dest) by $coef
 !goto next
!endif

!if $modif=exchange
 desc=exchanging $name_lines ($origin) and ($dest)
 !goto next
!endif

:next
sst=!line $step+1 of $steplist
!if $sst=$empty
 !exit
!endif

modif=!item 1 of $sst
origin=!item 2 of $sst
dest=!item 3 of $sst
coef=!item 4 to -1 of $sst

!if $modif=add
 adesc=added $coef times $name_line ($origin) to $name_line ($dest)
 !exit
!endif

!if $modif=multiply
 adesc=multiplied by $coef the $name_line ($dest)
 !exit
!endif

!if $modif=exchange
 adesc=exchanged $name_lines ($origin) and ($dest)
 !exit
!endif

