!if $click!=yes
 error=$error no_auto
 !exit
!endif

col=!line $dest of $transpose
n=0
first=
fline=
!for j=1 to $size
 c=!item $j of $col
 !if $[$c]!=0
  n=$[$n+1]
  !if $j!=$origin and ($first=$empty or $j<$origin)
   first=$c
   fline=$j
  !endif
 !endif
!next j

this=!item $origin of $col

!if $n>1
 modif=add
 dest=$origin
 origin=$fline
 coef=-($this)/($first)
 !changeto proc.add
!else
 modif=multiply
 dest=$origin
 coef=1/($this)
 !changeto proc.multiply
!endif

