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=
 name_lines=
 a_line=һ
!else
 name_line=
 name_lines=
 a_line=һ
!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= $coef $name_line ($origin) ӵ $name_line ($dest)
 !goto next
!endif

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

!if $modif=exchange
 desc= $name_lines ($origin)  ($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= $coef  $name_line ($origin) ӵ $name_line ($dest)
 !exit
!endif

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

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

