home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p053 / install3.img / HZTXT.ZIP / WFILE.LSP < prev   
Encoding:
Text File  |  1992-09-14  |  797 b   |  29 lines
  1. (DEFUN C:WF( / R S H P0 FI F SK W)
  2.   (setvar "highlight" 0)
  3.   (setvar "cmdecho" 0)
  4.   (SETQ FI (GETSTRING "\n╬─╝■├√:"))
  5.   (SETQ F (OPEN FI "r"))
  6.   (IF F (PROGN
  7.          (SETQ H (GETREAL "\n╬─╫╓╕▀╢╚:"))
  8.        (if (null K) (SETQ SK (GETREAL "\n╗µ═╝▒╚└²:")) (setq SK K))
  9.          (SETQ R (GETINT "\n╨╨╩²:"))
  10.       (SETQ W (GETREAL "\n╨╨╝Σ╛α:"))
  11.          (SETQ P0 (GETPOINT "\n╬─▒╛▓σ╚δ╡π:"))
  12.            (REPEAT R
  13.            (SETQ S (READ-LINE F))
  14.            (COMMAND "TEXT" P0 (* H SK) 0 S )
  15.            (SETQ P0 (LIST (CAR P0) (-(CADR P0) (* sk w))))
  16.            )
  17.          (CLOSE F)
  18.         )
  19.         (PROGN
  20.           (PRINC "\007\n╬─╝■ ")
  21.           (PRINC FI)
  22.           (PRINC " ├╗╙╨╒╥╡╜!!!")
  23.         )
  24.    )
  25.    (setvar "highlight" 1)
  26.    (setvar "cmdecho" 1)
  27.    (princ)
  28. )
  29.