
dim=!item $qcmlevel of 3,4,3,4,5,6,7
n1 =!item $qcmlevel of 1,1,2,2,2,2,2
n2 =!item $qcmlevel of 1,1,2,3,3,4,5
eqn=!randint $n1,$n2
!for i=1 to $eqn
 :redo
 eq$i=
 s=0
 !for j=1 to $dim
  t=!randint -10,10
  !if $t!=0
   s=1
  !endif
  eq$i=!append item $t to $(eq$i)
 !next j
 !if $s=0
  !goto redo
 !endif
!next i
