home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p039 / a91 / 3.ddi / BL.ARJ / SYSTEM / BL.LSP < prev    next >
Encoding:
Text File  |  1993-11-03  |  12.7 KB  |  498 lines
  1.  
  2. (SETQ Sj *ERROR*
  3.       S@ (STRCAT BLDRIVE "\\BL\\System\\") SQ "Minsert" Sl"Insert"
  4.         S& "Redefine" S1 "WBLOCK" S# "ATTDEF" S0 "OSMODE" S$ "AFLAGS"
  5.         SO "Bl.CFG"
  6.         S| NIL S% NIL)
  7. (IF (= "AutoLISP Release 9.0" (VER))
  8.   (DEFUN TRANS (S?j Sjj S@j) S?j)
  9. )
  10. (DEFUN SQj (Slj / S&j)
  11.   (IF (SETQ S&j (OPEN Slj"r"))
  12.     (NOT (SETQ S&j (CLOSE S&j)))
  13.   )
  14. )
  15. (DEFUN S1j (S#j)
  16.   (IF (SQj (STRCAT S#j".sld"))
  17.     (PROGN (COMMAND "vslide" (STRCAT"*"S#j) "vslide" NIL) T)
  18.     (PROMPT (STRCAT "\n\n▓╗─▄┤≥┐¬╗├╡╞╬─╝■<"S#j">."))
  19.   )
  20. )
  21. (TERPRI)
  22. (princ "\n *╫░╘╪═╝╨╬┐Γ.")
  23. (DEFUN S0j (S$j)
  24.   (IF S$j
  25.     (PROGN (SETQ SOj 1 S|j S$j)
  26.     (IF (S1j (STRCAT S%j"\\BLQUAD" (CADR (ASSOC S$j(quote ((0"A")(5"B")(50"C")(55"D")))))))
  27.       T (S?@)
  28.     )
  29.   ))
  30. )
  31. (DEFUN Sj@ (S@@ S$j / SQ@)
  32.    (SETQ SQ@ S@@)
  33.    (WHILE (AND SQ@ (NOT (AND (> S$j (CAAR SQ@))
  34.                              (< S$j(CADAR SQ@))
  35.           )))
  36.         (SETQ SQ@ (CDR SQ@))
  37.    )
  38.    (IF SQ@ (CADDAR SQ@) NIL)
  39. )
  40. (DEFUN Sl@ (S&@ S1@)
  41.   (IF (AND (> S&@ 3) (< S&@ 52))
  42.     (S0j (Sj@ (quote ((211 245 0)(172 206 50))) S1@)))
  43.   (IF (AND (> S&@ 57) (< S&@ 108))
  44.     (S0j (Sj@ (quote ((211 245 5)(172 206 55))) S1@)))
  45.   (SETQ S#@ NIL)
  46. )
  47. (DEFUN S0@ (S&@ S1@ / S$@ SO@)
  48.   (SETQ S$@ (Sj@ (quote ((446 521 5)(371 446 4)(297 371 3)(222 297 2)
  49.                          (148 222 1))) S&@)
  50.         SO@ (Sj@ (quote ((0 51 40)(51 103 30)(103 156 20)(156 208 10)
  51.                            (208 260 0))) S1@)
  52.         S#@ NIL)
  53.   (IF (AND SO@ S$@)
  54.     (SETQ S#@ (- (+ S$@ SO@ S|j) 1)))
  55. )
  56. (princ ".")
  57. (DEFUN S|@ (S&@ S1@ S|j / S$@ SO@)
  58.   (SETQ S$@ (Sj@ (quote ((149 186 5)(112 149 4)(75 112 3)(37 75 2)(0 37 1)))
  59.                           S&@)
  60.         SO@ (Sj@ (quote ((0 26 40)(26 52 30)(52 78 20)(78 104 10)(104 130 0)))
  61.                             S1@)
  62.         S#@ NIL)
  63.   (IF (AND SO@ S$@)
  64.     (SETQ S#@ (- (+ S$@ SO@ S|j) 1))
  65.   )
  66. )
  67. (DEFUN S%@ (S&@ S1@)
  68.    (IF (< S&@ 316)
  69.      (IF (< S1@ 130)
  70.        (SETQ S|j 50 S&@ (- S&@ 130))
  71.          (IF (> S1@ 143)
  72.           (SETQ S|j 0 S&@ (- S&@ 130) S1@ (- S1@ 143))
  73.          )
  74.      )
  75.    )
  76.    (IF (> S&@ 335)
  77.      (IF (< S1@ 130)
  78.       (SETQ S|j 55 S&@ (- S&@ 335))
  79.         (IF (> S1@ 143)
  80.           (SETQ S|j 5 S&@ (- S&@ 335) S1@(- S1@ 143))
  81.         )
  82.      )
  83.    )
  84.    (S|@ S&@ S1@ S|j)
  85. )
  86. (DEFUN S?Q (/ S&@ S1@)
  87.    (SETQ S&@ (TRANS (GETVAR"vsmax") 1 2)
  88.          S1@ (TRANS (GETVAR"vsmin") 1 2)
  89.            SjQ (GETVAR"viewsize")
  90.            S@Q (* SjQ (/ (-(CAR S&@)(CAR S1@)) (-(CADR S&@)(CADR S1@))))
  91.            S&@ (TRANS (GETVAR"viewctr") 1 2)
  92.            S1@ (GETVAR "screensize")
  93.            SQQ (LIST (- (CAR S&@) (/ S@Q 2.0)) (- (CADR S&@) (/ SjQ 2.0)))
  94.            SlQ (CAR S1@) S&Q (CADR S1@))
  95. )
  96. (princ ".")
  97. (DEFUN S1Q ()
  98.   (IF (= SOj 1) (S0j S|j) (S?@))
  99. )
  100. (DEFUN S?@()
  101.   (SETQ SOj 0)
  102.   (IF (S1j (STRCAT S%j"\\MASTER"))
  103.     T (SETQ S%j NIL))
  104. )
  105. (DEFUN S#Q()
  106.   (IF (S1j (STRCAT S@"MASTPOIN"))
  107.   (PROGN (INITGET 9)
  108.          (SETQ S0Q (GETVAR S0))
  109.            (SETVAR S0 0)
  110.            (SETQ S$Q (TRANS (GETPOINT "\n╟δ╙├╩«╫╓╣Γ▒Ω╡π╚í╗├╡╞╡─╙╥╔╧╜╟╢¿╬╗╡π:") 1 2)
  111.                  S$Q (LIST (/ (/ (- (CAR S$Q) (CAR SQQ)) (/ S@Q SlQ)) 522)
  112.                              (/ (/ (- (CADR S$Q) (CADR SQQ)) (/ SjQ S&Q)) 274))
  113.            )
  114.            (SETVAR S0 S0Q)
  115.            (SOQ)
  116.   ))
  117. )
  118. (DEFUN S|Q (S%Q / S?l S&@ S1@ Sjl)
  119.   (SETQ Sjl (GETVAR S0))
  120.   (SETVAR S0 0)
  121.   (INITGET 9)
  122.   (SETQ S?l (TRANS (GETPOINT (STRCAT"\n\n╟δ╤í╘±"S%Q)) 1 2))
  123.   (SETVAR S0 Sjl)
  124.   (SETQ S&@ (FIX (/ (/ (- (CAR S?l) (CAR SQQ)) (/ S@Q SlQ)) (CAR S$Q)))
  125.         S1@ (FIX (/ (/ (-(CADR S?l) (CADR SQQ)) (/ SjQ S&Q))(CADR S$Q)))
  126.           S#@ NIL)
  127.   (LIST S&@ S1@)
  128. )
  129. (DEFUN S@l (S$j / S&@ S1@)
  130.   (SETQ S&@ (CAR S$j) S1@(CADR S$j))
  131.   (IF (AND (= SOj 0) (> S&@ 130) (< S&@ 522) (< S1@ 274))
  132.     (S%@ S&@ S1@)
  133.     (IF (AND (= SOj 1) (> S&@ 148) (< S&@ 521) (< S1@ 260))
  134.       (S0@ S&@ S1@)
  135.         (SETQ S#@ NIL)
  136.     )
  137.   )
  138. )
  139. (DEFUN SQl
  140.   (S$j / S&@ S1@)
  141.   (SETQ S&@ (CAR S$j) S1@ (CADR S$j))
  142.   (IF (AND (> S&@ 0) (< S&@ 111))
  143.     (PROGN (IF (AND (> S1@ 0) (< S1@ 39))
  144.              (SETQ S&@ 0 Sll T S&l T))
  145.            (IF S1l (IF (AND (> S1@ 234) (< S1@ 274)) (S#l""))
  146.                      (IF (AND (> S1@ 248) (< S1@ 274)) (S?@))
  147.              )
  148.              (IF (AND (> S&@ 3) (< S&@ 108)
  149.                (NOT S1l))
  150.            (IF S0l (EVAL (Sj@ (quote ((172 245(Sl@ S&@ S1@))(133 159 (S$l))))
  151.                                  S1@))
  152.                    (EVAL (Sj@ (quote ((172 245(Sl@ S&@ S1@))(133 159(S$l))
  153.                                      (103 129 (SOl "S" T)) (73 99 (SOl"E" T))
  154.                                (43 69 (PROGN (REDRAW) (S|l)
  155.                                                        (IF(NOT Sll)(S1Q))))
  156.                                 )) S1@))
  157.             )
  158.             )
  159.    ))
  160. )
  161. (princ ".")
  162. (DEFUN S%l (S$j / S&j)
  163.   (IF (= S$j 0)
  164.     (S?&)
  165.     (PROGN (SETQ Sj& S$j S@& (/ S$j 10)
  166.                  S%j (STRCAT SQ& "\\" (ITOA Sj&)))
  167.       (IF (S?@)
  168.         (PROGN (SOQ) (SETQ S#@ NIL S$j T))
  169.         )
  170.   ))
  171. )
  172. (DEFUN S$l(/ S$j)
  173.   (SETQ S%j NIL SOj 0)
  174.   (WHILE (AND (NOT S%j) (NOT Sll))
  175.     (S1j (STRCAT SQ&"\\BOOK"))
  176.     (SETQ S1l T S#@ NIL Sll NIL)
  177.     (WHILE (AND (= S#@ NIL) (NOT Sll))
  178.       (SETQ S$j (S|Q "╥│║┼ : "))
  179.         (SQl S$j)
  180.         (S@l S$j)
  181.     )
  182.     (IF (NOT Sll)
  183.       (IF (AND (NOT (S%l S#@)) (/= S#@ 0))
  184.         (IF (Sl& S#@) (SETQ S1l NIL))
  185.         (SETQ S1l NIL)
  186.         )
  187.     )
  188.   )
  189. )
  190. (DEFUN Sl& (S$j)
  191.    (TERPRI)
  192.    (PRINC (STRCAT " ╡┌ "(ITOA S$j) " ╥│╗╣╬┤▒╗╒╝╙├. "))
  193.    (IF (S&& "│⌡╩╝╗»╕├╥│:")
  194.      (PROGN (S1& (STRCAT S@ "newpage " SQ& "\\" (ITOA S$j)))
  195.             (S1& (STRCAT S@ (S#&) " -p" (ITOA S$j)))
  196.             (S%l S$j)
  197.    ))
  198. )
  199. (DEFUN S0&(S#j)
  200.   (IF (/= S$& S#j) (S#l S#j))
  201.    (SQj (STRCAT SQ& "\\BOOK.SLD"))
  202. )
  203. (DEFUN SO& (S#j)
  204.   (SQj (STRCAT S#j".DWG"))
  205. )
  206. (DEFUN S|&()
  207.   (IF S% T
  208.     (PROMPT "\n╕├═╝┐Γ▓╗╩╟╡▒╟░═╝┐Γ,▓╗─▄╨▐╕─ .")
  209.   )
  210. )
  211. (princ ".")
  212. (DEFUN S%& (S#@ S?1 Sj1)
  213.    (IF (NOT Sj1)
  214.      (IF S?1 (ITOA S#@)
  215.        (STRCAT SQ& "\\" (ITOA(/ S#@ 100)) "\\" (ITOA S#@))
  216.      )
  217.      (PROGN (IF (< S#@ 10)
  218.               (SETQ S#j (STRCAT "0" (ITOA S#@)))
  219.                   (SETQ S#j (ITOA S#@))
  220.                 )
  221.                 (IF (AND (> S@& 0) (= Sj& 0))
  222.                   (SETQ S#j (STRCAT "0" S#j))
  223.                   (SETQ S#j (ITOA (+ S#@ (* Sj& 100))))
  224.                 )
  225.                 (IF S?1 S#j (STRCAT S%j"\\"S#j)
  226.                 )
  227.         ))
  228. )
  229. (DEFUN S@1 (S#@ Sj1 / S$j)
  230.   (TERPRI)
  231.   (SETQ SQ1 (S%& S#@ NIL Sj1)
  232.         Sl1 (STRCAT S$& "_" (S%& S#@ T Sj1)))
  233.   (IF (NOT (TBLSEARCH "BLOCK" Sl1))
  234.     (IF (SO& SQ1)
  235.       (S&1 (STRCAT Sl1 "=" SQ1) (S11 NIL))
  236.         (PROGN (PROMPT (STRCAT"\n├╗╙╨╒╥╡╜═╝╬─╝■ <"SQ1">"))
  237.                (SETQ S#@ 0)
  238.         )
  239.     )
  240.     (PROGN (SETQ S$j (S11 T))
  241.       (IF (= S$j S&)
  242.           (S&1 (STRCAT Sl1 "=" SQ1) S$j)
  243.           (S&1 Sl1 S$j)
  244.         )
  245.     ))
  246. )
  247. (DEFUN S11 (Sj1 / S$j)
  248.   (SETQ S$j (STRCAT Sl" "SQ (IF Sj1 (STRCAT" "S&)"")))
  249.   (INITGET S$j)
  250.   (IF S| (GETKWORD (STRCAT S$j" <"Sl"> : ")) Sl)
  251. )
  252. (DEFUN S&1 (S#j S$j)
  253.   (SETQ S#1 T)
  254.   (REDRAW)
  255.   (COMMAND (IF (= S$j SQ) SQ Sl) S#j)
  256. )
  257. (DEFUN S?&()
  258.   (TERPRI)
  259.   (IF (S1j (STRCAT S@"HELP"))
  260.     (PROGN (GETSTRING"\n╝ⁿ╚δ╗╪│╡╗≥ <ENTER>,╖╡╗╪═╝╨╬┐Γ╗¡├µ\n")
  261.     (IF S%j (S1Q))
  262.   ))
  263. )
  264. (DEFUN SOQ ()
  265.   (IF (SETQ S&j (OPEN (STRCAT S@ SO) "w"))
  266.     (PROGN (PRIN1 (LIST S$& SQ& Sj& S$Q (IF S% 1 0))S&j)
  267.       (SETQ S&j (CLOSE S&j)))
  268.   )
  269. )
  270. (DEFUN S01 (/ S$j)
  271.   (IF (SETQ S$j (S$1 SO T))
  272.     (SETQ S$Q (SO1 S$j)))
  273. )
  274. (DEFUN BL (S#j S|1)
  275.   (IF (S0& (STRCASE S#j))
  276.     (PROGN (SETQ Sj& S|1)
  277.            (C:BL))
  278.     (PROGN (PRINC "\n╖╟╖¿═╝┐Γ├√.\n") (PRINC))
  279.   )
  280. )
  281. (DEFUN SO1 (S$j)
  282.   (SETQ S$& (CAR S$j) SQ& (CADR S$j) Sj& (CADDR S$j)
  283.          S% (= (CADR (CDDDR S$j)) 1) S%j NIL)
  284.   (CADDDR S$j)
  285. )
  286. (DEFUN S$1 (Slj S%1 / S$j S&j)
  287.   (IF (AND (SETQ S&j (OPEN (STRCAT S@ Slj) "r"))
  288.            (SETQ S$j (READ-LINE S&j)))
  289.     (SETQ S&j (CLOSE S&j)
  290.           S$j (IF S%1 (READ S$j) S$j))
  291.   )
  292. )
  293. (DEFUN S?# (/ S?j)
  294.   (SETQ S?j (RTOS (FIX (GETVAR"cdate"))))
  295.   (STRCAT (SUBSTR S?j 5 2) "-" (SUBSTR S?j 7 2) "-" (SUBSTR S?j 3 2)"  ")
  296. )
  297. (princ ".")
  298. (DEFUN Sj# (/ S&j S$j)
  299.   (S?Q)
  300.   (IF (= S$Q NIL) (S01))
  301.   (WHILE (= S$Q NIL)
  302.     (S#Q))
  303.   (IF S%j (S1Q))
  304.   (SETQ S&l NIL)
  305.   (WHILE (NOT S&l)
  306.      (SETQ S#@ NIL)
  307.      (IF S%j (WHILE (AND (= S#@ NIL) (NOT S&l))
  308.                (SETQ S$j (S|Q "╘┌═╝┐Γ╓╨╡─╡Ñ╘¬,╖┼╚δ╨┬╡─═╝┐Θ(╬─╝■): "))
  309.                    (SQl S$j)
  310.                    (S@l S$j)
  311.              )
  312.                  (S$l))
  313.     (IF (AND (< S#@ 100) (>= S#@ 0))
  314.       (IF (SETQ S#j (S@# S#@))
  315.           (SETQ S&l T)
  316.           (SETQ S&l NIL SQ# NIL)
  317.         )
  318.         (SETQ S#j NIL)
  319.     )
  320.   )
  321.    S#j
  322. )
  323. (DEFUN S#& ()
  324.   (STRCAT "UPDATE -d" BLDRIVE " -l" SQ&)
  325. )
  326. (DEFUN Sl# (S#@ S&# / S&j S#j)
  327.   (SETQ S#j (S%& S#@ T T))
  328.   (S1& (STRCAT S@ (S#&) " -c" S#j))
  329.   (IF (SETQ S&j (OPEN (STRCAT SQ& "\\ATTRTRAN.LST") "a"))
  330.     (PROGN (PRINC (STRCAT "(" S&# "(BLOCK " S#j ")(DATE \""(S?#)"\"))")
  331.                  S&j)
  332.       (SETQ S&j (CLOSE S&j))
  333.   ))
  334. )
  335. (DEFUN S&& (S$j)
  336.   (TERPRI)
  337.   (INITGET 1 "Yes No")
  338.   (= (GETKWORD (STRCAT S$j "? (Yes / No) : ")) "Yes")
  339. )
  340. (DEFUN S@#(S1#)
  341.   (SETQ S#j (S%& S1# NIL T))
  342.   (IF (S|&)
  343.     (IF (SO& S#j)
  344.       (PROGN (SETQ SQ# T)
  345.            (TERPRI)
  346.            (PRINC "\n▒╗╤í╓╨╡─╡Ñ╘¬╥╤╙╨═╝┐Θ┤µ╘┌. ")
  347.          (IF (S&& "╠µ╗╗╥╤╙╨═╝┐Θ┬≡?") S#j NIL)
  348.         )
  349.         S#j
  350.     )
  351.   )
  352. )
  353. (DEFUN S## (S0# S$j S$#)
  354.    (IF (NOT S0#)
  355.      (PROGN (S1& (STRCAT "DEL " S$j ".DWG")) "D")
  356.      (PROGN (REDRAW)
  357.        (IF SQ#
  358.            (PROGN (COMMAND S1 S$j "y" "" S$# S0# "" "oops" NIL) "U")
  359.            (PROGN (COMMAND S1 S$j "" S$# S0# "" "oops" NIL) "A")
  360.          )
  361.      )
  362.    )
  363. )
  364. (DEFUN S|l (/ SO# S&# S$# S0# S$j)
  365.   (SETQ *ERROR* S|# SQ# NIL S0l T)
  366.   (INITGET 9)
  367.   (SETQ S$# (GETPOINT "\n\n╤í╚í▓σ╚δ╗∙╡π : "))
  368.   (PRINC "\n\n╤í╚í═╝╨╬┐Θ╡─╩╡╠σ ")
  369.   (SETQ S0# (SSGET))
  370.   (IF (Sj#)
  371.    (Sl# S#@ (S## S0# (S%& S#@ NIL T) S$#))
  372.    (REDRAW)
  373.   )
  374.   (SETQ S0l NIL S&l T)
  375. )
  376. (DEFUN C:BLSAVE()
  377.   (SETVAR"CMDECHO"0)
  378.   (SETQ Sj *ERROR* Sll NIL S1l NIL)
  379.   (S|l)
  380.   (SETQ *ERROR* Sj)
  381.   (PRINC)
  382. )
  383. (DEFUN C:IMPORT ()
  384.   (SETVAR"CMDECHO"0)
  385.   (SETQ Sj *ERROR* Sll NIL S0l T S1l NIL)
  386.   (WHILE (NOT Sll)
  387.     (TERPRI)
  388.     (SETQ S%# (GETSTRING "╩Σ╚δ╬─╝■├√ <enter to exit>: "))
  389.     (IF (ZEROP (STRLEN S%#))
  390.       (SETQ Sll T)
  391.         (IF (SO& S%#)
  392.           (IF (Sj#)
  393.             (PROGN (S1& (STRCAT "COPY " S%# ".dwg " (S%& S#@ NIL T) ".dwg"))
  394.                    (Sl# S#@ (IF SQ# "U" "A"))
  395.           ))
  396.           (PRINC"\n╕├╬─╝■▓╗┤µ╘┌.")
  397.         )
  398.     )
  399.   )
  400.   (SETQ S0l NIL S&l T *ERROR* Sj)
  401.   (PRINC)
  402. )
  403. (princ ".")
  404. (DEFUN SOl (Sj1 S?0 / S#@)
  405.   (IF (NOT S1l)
  406.     (PROGN (IF (= Sj1 "E")
  407.              (IF (S|&) (Sj0 Sj1))+
  408.                    (PROGN (Sj0 Sj1)
  409.                      (IF (SETQ S#@ (S$1 "AttrPick" T))
  410.                      (IF (AND S#@ (= (TYPE S#@) (quote INT)))
  411.                         (S@1 S#@ NIL)
  412.                  )
  413.                  ))
  414.            )
  415.              (IF (AND (NOT S#1) S?0)
  416.                (IF (NOT (S1Q)) (S$l))
  417.            )
  418.   ))
  419. )
  420. (DEFUN Sj0 (Sj1)
  421.   (S1& (STRCAT S@ "ACADLib " Sj1 " " BLDRIVE " " SQ& " "
  422.                (ITOA (* Sj& 100))))
  423. )
  424. (DEFUN C:BLA ()
  425.   (SOl "S" NIL)
  426.   (GRAPHSCR)
  427. )
  428. (DEFUN S#l (S#j / S$j)
  429.   (S1& (STRCAT S@"NEWlib " S#j))
  430.   (IF (SETQ S$j (S$1 "library.nam" T))
  431.     (PROGN (SETQ S%j NIL Sj& NIL S$& (CAR S$j) SQ& (CADR S$j)
  432.                  S% (= (CADDR S$j) 1))
  433.            (SOQ)
  434.              (IF S1l (S1j (STRCAT SQ& "\\BOOK")))
  435.     )
  436.     (PRINC "╬▐╖¿╡├╡╜╨┬╡─═╝┐Γ╨┼╧ó.")
  437.   )
  438.   (GRTEXT -1 SQ&)
  439. )
  440. (DEFUN S1& (S$j)
  441.   (COMMAND "SHELL" S$j NIL)
  442. )
  443. (DEFUN C:BLRESET ()
  444.   (SETQ S$Q NIL S%j NIL *ERROR* Sj)
  445.   (SOQ)
  446.   (C:BL)
  447. )
  448. (DEFUN C:BLON ()
  449.   (SETQ S| T)
  450.   (C:BL)
  451. )
  452. (DEFUN C:BLOFF ()
  453.   (SETQ S| NIL)
  454.   (C:BL)
  455. )
  456. (DEFUN C:BLRESET ()
  457.   (SETQ S$Q NIL S%j NIL *ERROR* Sj)
  458.   (SOQ)
  459. )
  460. (DEFUN S|# (S$j)
  461.   (SETQ *ERROR* Sj)
  462.   (PRINC (STRCAT"\nError occured: " S$j))
  463.   (REDRAW)
  464.   (PRINC)
  465. )
  466. (DEFUN C:BL (/ S&j S$j)
  467.    (SETVAR"CMDECHO"0)
  468.    (SETQ Sj *ERROR* *ERROR* S|#)
  469.    (S?Q)
  470.    (IF (= S$Q NIL) (S01))
  471.    (WHILE (= S$Q NIL) (S#Q))
  472.      (IF (NOT SQ&) (S#l ""))
  473.      (IF S%j (S1Q)
  474.        (IF Sj& (S%l Sj&))
  475.      )
  476.      (SETQ Sll NIL S1l NIL S#1 NIL S0l NIL)
  477.      (WHILE (AND (NOT Sll) (NOT S#1))
  478.        (SETQ S#@ NIL)
  479.          (IF S%j (WHILE (AND (NOT S#@) (NOT Sll) (NOT S#1))
  480.                  (SETQ S$j (S|Q "═╝┐Θ╗≥▓╦╡Ñ╤í╧ε : "))
  481.                  (SQl S$j)
  482.                  (S@l S$j)
  483.                )
  484.          (S$l)
  485.        )
  486.          (IF (AND (NOT S#1) (< S#@ 100) (> S#@ 0))
  487.            (S@1 S#@ T)
  488.            (IF (= S#@ 0) (S?&))
  489.          )
  490.      )
  491.      (IF (NOT S#1) (REDRAW))
  492.      (SETQ *ERROR* Sj)
  493.      (PRINC)
  494. )
  495. (GC)
  496. (princ "\n╫░╚δ┴╦")
  497. (princ)
  498.