home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD07.LSP < prev    next >
Encoding:
Text File  |  1988-11-12  |  692 b   |  25 lines
  1.  (defun hd86 ( )
  2.   (setq dm1 (reverse da2))
  3.    (setq p (open (strcat "\\house1\\tst\\" hdn) "a"))
  4.   (setq ii1 (length dm1))
  5.   (setq ii 0)
  6.   (while (< ii ii1)
  7.          (setq ii2 0)
  8.          (setq dm2 (nth ii dm1))
  9.          (setq dm01 (nth 1 dm2))
  10.          (setq dm02 (nth 2 dm2))
  11.          (setq dm03 (nth 3 dm2))
  12.          (setq ii3 (length (car dm2)))
  13.          (while (< ii2 ii3)
  14.                 (setq dm00 (nth ii2 (car dm2)))
  15.                 (setq dm3 (list dm00 dm01 dm02 dm03))
  16.                 (print dm3 p)
  17.                 (setq ii2 (+ ii2 1))
  18.          )
  19.          (setq ii (+ ii 1))
  20.   )
  21.   (cond ((or (= wy "y") (= wy "Y")) (print "end" p)))
  22.   (close p)
  23.  )
  24. (hd86)
  25.