home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p039 / h91 / 1.ddi / LISP.PAK / HHH99.LSP < prev    next >
Encoding:
Text File  |  1991-02-16  |  2.6 KB  |  79 lines
  1. ;
  2. ; │╠╨≥╣ª─▄:╔Φ╓├▓╔┼»│⌡╩╝▒Σ┴┐.
  3. ;
  4. (defun heat0 ()
  5.  (setvar "cmdecho" 0)
  6.  (command "del" "heat*.tst"
  7.           "layer" "s" "HVAC" "")
  8.  (textscr)
  9.  (setq f (open "heat.tat" "r"))
  10.  (if (/= f nil) (progn
  11.      (read-line f)
  12.      (setq heat (read-line f))
  13.      (if (= heat nil) (setq heat (list 1.0 500 30 450 160 "ON" "0"))
  14.      (setq heat (read heat)))
  15.      (close f))
  16.      (setq heat (list 1.0 500 30 450 160 "ON" "0")))
  17.      (setq sc (car heat) hhd (cadr heat) w (nth 2 heat)
  18.      d (nth 3 heat) r (nth 4 heat) hd (nth 5 heat) xd (nth 6 heat))
  19.    (setq sc1 (list "▒╚└²" sc))
  20.    (setq hhd1 (list "▒Ω╫ó╕▀╢╚" hhd))
  21.    (setq w1 (list "╧▀┐φ" w))
  22.   (setq sys 1 sys1 (list "▓╔┼»╧╡═│╨╬╩╜<1:╡Ñ╣▄>,<2:╦½╣▄>" sys))
  23.    (setq dhw 700 dhw1 (list "╔ó╚╚╞≈╓╨╨─╧▀╡╜╟╜├µ╛α└Θ" dhw))
  24.    (setq d1 (list "╞╜├µ═╝╦½╣▄╧╡═│╣⌐╗╪╦«┴ó╣▄╝Σ╛α" d))
  25.    (setq r1 (list "╞╜├µ═╝┴ó╣▄╣▄╛╢" r))
  26.    (setq hd1 (list "╩╟╖±▒Ω╫ó" hd))
  27.    (setq xd1 (list "╫∙▒Ω<0:╛°╢╘> <@:╧α╢╘>" xd))
  28.     (princ (chr 10))
  29.     (princ sc1)
  30.     (princ (chr 10))
  31.     (princ hhd1)
  32.     (princ (chr 10))
  33.     (princ w1)
  34.     (princ (chr 10))
  35.     (princ sys1)
  36.     (princ (chr 10))
  37.     (princ dhw1)
  38.     (princ (chr 10))
  39.     (princ d1)
  40.     (princ (chr 10))
  41.     (princ r1)
  42.     (princ (chr 10))
  43.     (princ hd1)
  44.     (princ (chr 10))
  45.     (princ xd1)
  46.  (setq h (getstring "\n─π╥¬╨▐╕─┬≡<Y/N>: "))
  47.  (cond ((= sc nil) (setq sc 1.0)))
  48.  (cond ((= hhd nil) (setq hhd 500)))
  49.  (cond ((= w nil) (setq w 30)))
  50.  (cond ((= d nil) (setq d 450)))
  51.  (cond ((= r nil) (setq r 160)))
  52.  (cond ((= hd nil) (setq hd "ON")))
  53.  (cond ((= xd nil) (setq xd "0")))
  54.  (setq heat (list sc hhd w d r hd xd))
  55.  (if (or (= h "y") (= h "Y")) (progn
  56.   (setq sc (getreal (strcat "\n╟δ╩Σ╚δ▒╚└²╓╡< " (rtos sc 2 2) " >:")))
  57.   (setq hhd (getint (strcat "\n▒Ω╫ó╕▀╢╚<" (itoa hhd) ">:")))
  58.   (setq w (getint (strcat "\n╟δ╩Σ╚δ╧▀┐φ<" (itoa w) ">:")))
  59.   (setq d (getint (strcat "\n╟δ╩Σ╚δ╞╜├µ═╝╦½╣▄╧╡═│╣⌐╗╪╦«┴ó╣▄╝Σ╛α<"
  60.                            (itoa d) ">:")))
  61.   (setq r (getint (strcat "\n╟δ╩Σ╚δ╞╜├µ═╝┴ó╣▄╣▄╛╢<" (itoa r) ">:")))
  62. (setq hd (getstring (strcat "\n╟δ╩Σ╚δ╩╟╖±▒Ω╫ó<" hd ">:")))
  63. (setq xd (getstring (strcat "\n╟δ╩Σ╚δ╫∙▒Ω<0:╛°╢╘,@:╧α╢╘<" xd ">:")))
  64.  (cond ((= sc nil) (setq sc (car heat))))
  65.  (cond ((= hhd nil) (setq hhd (cadr heat))))
  66.  (cond ((= w nil) (setq w (nth 2 heat))))
  67.  (cond ((= d nil) (setq d (nth 3 heat))))
  68.  (cond ((= r nil) (setq r (nth 4 heat))))
  69.  (cond ((= hd "") (setq hd (nth 5 heat))))
  70.  (cond ((= xd "") (setq xd (nth 6 heat))))
  71. ))
  72.  (setq heat (list (* sc 1.0) hhd w d r hd xd))
  73.  (setq f (open "heat.tat" "w"))
  74.  (print heat f)
  75.  (close f)
  76. (graphscr)
  77. )
  78.     
  79.