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=ecuacin
 name_lines=ecuaciones
 a_line=una ecuacin
!else
 name_line=fila
 name_lines=filas
 a_line=una fila
!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=aadir $coef vez(veces) $name_line ($origin) a la $name_line ($dest)
 !goto next
!endif

!if $modif=multiply
 desc=multiplicar la $name_line ($dest) por $coef
 !goto next
!endif

!if $modif=exchange
 desc=intercambiar las $name_lines ($origin) y ($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=aadir $coef veces $name_line ($origin) a la $name_line ($dest)
 !exit
!endif

!if $modif=multiply
 adesc=multiplicar por $coef la $name_line ($dest)
 !exit
!endif

!if $modif=exchange
 adesc=intercambiar $name_lines ($origin) y ($dest)
 !exit
!endif

