(defun c:linhas ()


(setq nlinhas (getint "qual é o número de linhas?"))

(repeat nlinhas
(command "line"(list (alea 0 5) (alea 0 5))
               (list (alea 0 5) (alea 0 5))
			   ""
			   )

)








(defun alea ( min max / )
(+ min (valor (- max min)))
)
(defun valor (num)
(* num (rnd))
)
(defun rnd (/ modulus multiplier increment random)
  (if (not seed)
    (setq seed (getvar "DATE"))
  )
  (setq modulus    65536
        multiplier 25173
        increment  13849
        seed  (rem (+ (* multiplier seed) increment) modulus)
        random     (/ seed modulus)
  )
)