 !if $totdim<=3
  !for i=1 to $totdim
   !set x$i=!char $i of xyz
  !next i
 !else
  !for i=1 to $totdim
   !set x$i=x<sub>$i</sub>
  !next i
 !endif
 !set syssize=!linecnt $system
 <p><center><table border=0>
 !for i=1 to $syssize
  !set row=!line $i of $system
  !set started=0
  <tr>
  !if $i=1
   <td rowspan=$syssize>$(m_leftbrace$syssize)</td>
  !endif
  !if $syschoose=yes
   <td><input type=checkbox name=choice value=$i>&nbsp;&nbsp;
  !endif
  !for j=1 to $totdim
   !set c=!item $j of $row
   !if $[$c]=0
    <td align=right>
   !else
    !set pre=
    !set c1=!char 1 of $c
    !set c2=!char 2 to -1 of $c
    !if $c1=- and + notin $c2 and - notin $c2
     !set c=$c2
     !set pre=-
    !endif
    !if $started=0 or $pre=-
     !set started=1
    !else
     !set pre=+
    !endif
    !if $c=1
     !set c=
    !endif
    <td align=right nowrap>$pre $c$(x$j)</td>
   !endif
  !next j
  !if $started=0
   0
  !endif
  <td>=&nbsp;0</td>
 !next i
 </table></center> <p>
