home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ96.LSP < prev    next >
Encoding:
Text File  |  1990-07-21  |  2.4 KB  |  88 lines
  1. ;
  2. ;   Define a text in a kind
  3. ;
  4. (VMON)
  5. (defun hj01()
  6.  (setvar "cmdecho" 0)
  7.  (menucmd "s=hyhz")
  8.  (setq fn (getstring "\n╩Σ╚δ┤╩╫Θ╢¿╥σ╡─└α╨═: "))
  9.  (while (/= fn "")
  10.   (setq fn (strcat "txt\\hhj" fn ".tat"))
  11.   (setq p (open fn "r"))
  12.   (if (= p nil)
  13.   (progn (princ "\n╕├└α╨═┤╩╫Θ╬─╝■╓╨╧╓╬▐┤╩╫Θ┤µ╘┌")
  14.     (setq k 0 b "w"))
  15.   (progn (read-line p)
  16.   (princ "\n╕├└α╨═┤╩╫Θ╥╤┤µ╘┌")
  17.   (command "textscr")
  18.   (setq l (read-line p) k 0)
  19.   (while l
  20.     (terpri)
  21.     (princ (strcat " ╡┌<" (itoa (1+ k)) ">╫Θ   "))
  22.     (princ l)
  23.     (setq l (read-line p))
  24.     (setq k (1+ k))
  25.     (cond ((= k 24) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  26.           ((= k 48) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  27.           ((= k 72) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  28.           ((= k 96) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  29.           ((= k 120) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  30.           ((= k 144) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  31.           ((= k 168) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  32.      )
  33.   )
  34.   (close p)
  35.   (setq s (getstring "\n╩╟╖±▒ú┴⌠╒Γ╨⌐┤╩╫Θ<Y/N>?"))
  36.   (if (or (= s "Y") (= s "y")) (setq b "a")
  37.     (progn (setq b "w" k 0))
  38.   )
  39.   ))
  40.   (command "graphscr")
  41.   (setq m nil s 1)
  42.   (while (/= s "")
  43.   (setq l (getstring t "\n╩Σ╚δ╨┬╡─╥╗╨╨┤╩╫Θ─┌╚▌: "))
  44.   (while (/= l "")
  45.    (setq m (cons l m))
  46.    (setq l (getstring t "\n╩Σ╚δ╧┬╥╗╕÷╨┬┤╩╫Θ─┌╚▌╗≥<Enter>╜ß╩°:"))
  47.   )
  48.   (menucmd "s=HYHZ")
  49.   (setq m (reverse m))
  50.   (command "textscr")
  51.   (setq n (length m) i 0)
  52.   (princ "\n----- ╨┬╢¿╥σ╡─┤╩╫Θ -----")
  53.   (terpri)
  54.   (while (< i n)
  55.     (setq l (nth i m))
  56.     (terpri)
  57.     (princ (strcat "╡┌<" (itoa (1+ k)) ">╫Θ:   "))
  58.     (princ l)
  59.     (setq k (1+ k) i (1+ i))
  60.     (cond ((= k 24) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  61.           ((= k 48) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  62.           ((= k 72) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  63.           ((= k 96) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  64.           ((= k 120) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  65.           ((= k 144) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  66.           ((= k 168) (getstring "\n╝ⁿ<Enter>╝╠╨°:"))
  67.      )
  68.   )
  69.  (princ "\n-----------------------")
  70.   (setq s (getstring "\n╙├<Enter>╚╖╚╧╩Σ╚δ,╗≥╞Σ╦ⁿ╝ⁿ╓╪╩Σ:"))
  71.   )
  72.   (setq p (open fn b))
  73.   (setq n (length m) k 0)
  74.   (while (< k n)
  75.    (princ (chr 10) p)
  76.    (princ (nth k m) p)
  77.    (setq k (1+ k))
  78.   )
  79.   (close p)
  80.   (command "graphscr")
  81.   (setq fn (getstring "\n╩Σ╚δ┤╩╫Θ└α╨═,╗≥<Enter>╜ß╩°: "))
  82.  )
  83.  (menucmd "s=hz") (setq fn hil)
  84. (print "END!")
  85. )
  86. (princ "│╠╨≥╫░╚δ┴╦..")
  87. (princ)
  88.