<table align=middle border=0>
!for i=1 to $x
 <tr>
 !if $i=1
  <td rowspan=$x>
  !instex $$$$ \Bigg\{ $$$$
 !endif
 !for j=1 to $y
  !set n=!charcnt $(m$i$j)
  !if c isin $(m$i$j) and $n=2
   !set n=!char 2 of $(m$i$j)
   !if $j>1
    <td align=right>+
   !else
    <td align=right>
   !endif
   <input size=3 name=c$n value="$(c$n)"> x<sub>$j</sub>
  !else
   !if $n>4
    <td align=right>+($(m$i$j)) x<sub>$j</sub>
    !goto case
   !endif
   !if $[$(m$i$j)]!=0
    !if abs($(m$i$j))>1
     !if $(m$i$j)>=0
      <td align=right>+$(m$i$j)
     !else
      <td align=right>$(m$i$j)
     !endif
    !else
     !if $(m$i$j)>=0
      <td align=right>+
     !else
      <td align=right>-
     !endif
    !endif
    x<sub>$j</sub>
   !else
    <td>
   !endif
   :case
  !endif
 !next j
 <td>= 0
!next i
</table>

!if $rel=1
 !if $status=waiting
  <p>Precise una solución no trivial del sistema: <p><center>
  !for j=1 to $y
   x<sub>$j</sub> = <input size=3 name=rel$j value="$(rel$j)">
   !if $j<$y
    , &nbsp;
   !else
    .
   !endif
  !next j
 !else
  <p>Con una solución: <p><center>
  !for j=1 to $y
   x<sub>$j</sub> = $(rel$j)
   !if $j<$y
    , &nbsp;
   !else
    .
   !endif
  !next j
 !endif
 </center>
!endif

