home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / LT.LSP < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  45 lines
  1.     (defun gkb ( )
  2.     (grtext -1 (strcat "╨≥║┼ " (itoa ni)))
  3.     (setq cp (polar dp (* pi 1.5) dh))
  4.     (menucmd "s=gksb")
  5.     (setq sb (getstring "\n ╖√║┼"))
  6.     (menucmd "s=gknd")
  7.     (setq nd (getint "\n ╣½│╞│▀┤τ"))
  8.     (menucmd "s=gkcd")
  9.     (setq cds (getstring t "\n┴¼╜╙│▀┤τ▒Ω╫╝"))
  10.     (menucmd "s=sflbn")
  11.     (setq j (getint "\n ┴¼╜╙├µ╨═╩╜:"))
  12.     (setq kcs (append '("╞╜├µ" "═╣├µ" "░╝├µ" "▓█├µ" "Θ╛├µ" )))
  13.     (setq kc (nth j kcs))
  14.     (menucmd "s=gkn2")
  15.     (setq i (getint "\n╙├═╛╗≥├√│╞:"))
  16.     (setq us1 (append '("╜°┴╧┐┌" "│÷┴╧┐┌" "╒⌠╞°╚δ┐┌" "╒⌠╞√│÷┐┌" "┼┼ ╬█┐┌" "▒╕╙├┐┌" "╤╣┴ª▒φ┐┌" "╬┬╢╚▒φ┐┌" "╚╦┐╫" "╩╓┐╫" "░▓╚½╖º┐┌" "╖┼┐╒┐┌" "╦«╜°┐┌" "╦«│÷┐┌" "╥║├µ╝╞┐┌" "┼┼╬█┐┌" "╗╪┴≈┐┌" "─²╥║┐┌" "╥τ╥║┐┌" "╚í╤∙┐┌" "╩╙╛╡")))
  17.     (setq uan (nth (- i 1) us1))
  18.     (setq gkl (list cp sb nd cds kc  uan))
  19.     (setq f (open "gkb.tst" "a"))
  20.     (print gkl f )
  21.     (close f)
  22.     (setq ni (+ ni 1) dh (+ dh 8))
  23.     )
  24.     (setq f (open "gkb.tst" "w"))
  25.     (close f)
  26.     (setq ni 1 dh 12)
  27.     (setq ip (getpoint "\n ▓σ╚δ╗∙╡π ip"))
  28.     (setq dp (list (+ (car ip) 0.26)  (cadr ip) ))
  29.     (setq cx (getint "\n ╣▄┐┌╩²─┐ "))
  30.     (while (<= ni cx)
  31.      (gkb)
  32.      )
  33.     (command "insert" "gkbt" ip 1 1 0)
  34.     (setq j 1)
  35.     (setq f (open "gkb.tst" "r"))
  36.     (read-line f)
  37.     (while (<= j cx)
  38.     (setq gkbl (read(read-line f)))
  39.     (setq cp (car gkbl))
  40.     (setq sb (nth 1 gkbl) nd (nth 2 gkbl) cds (nth 3 gkbl) kc (nth 4 gkbl) uan (nth 5 gkbl))
  41.     (command "insert" "gkbx" cp 1 1 0 sb nd cds kc uan "" "" "" "" "")
  42.     (setq j (+ j 1))
  43.     )
  44.     (close f)
  45.