THE PAST MASTER CLUB

DICTIONARY / TRANSLATOR FILES















;;;;;;;;;;;;;;;;;;;;;;; START.BAT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       --c:\n\nic4\dictiona.bat--

@echo off
txt 3
set lispstack=8000
set lispheap=16000

lisp lisp\dict\dict.lsp

set lispstack=
set lispheap=

;;;;;;;;;;;;;;;;;;; INIT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        --lsp\dict\INIT.LSP--

(defun dictfl()
(defmacro while (test &rest forms)
 `(do () ((not ,test))
   ,@forms
) )
(unless (fboundp 'strcat)
 (defun strcat (&rest str)
  (apply #'concatenate 'string str)
))
(defun sp()(princ " "))
(defun nl()
 (terpri)
)
(defun pr(x)
 (format t "\n~a " x)
)
(defun pa()
 (do((i 0(1+ i)))((> i 24))
  (nl)
 )
)(pa)
(defun e()
 (exit)
)
(defun tp(x)
 (setq f(open x))
 (do()((eq dtfl 'nil))
  (setq dtfl(read-line f))
  (pr dtfl)
))
(defun tst(x)
 (pr (type x))
 (cond
  ((numberp x)(pr "NUMBER"))
  ((stringp x)(pr "STRING"))
  ((listp x)  (pr "LIST  "))
  (t (pr "??? Use another test"))
 )
)
(setq z 't elng 3 rl "*" rlng 14 I 0)
(defun prsl(y)                         ;el rl i=0 test ok =FALSE
 (setq q 0 i 0 n (-(length y)(length el)))
 (if(< n 0)(setq w 'nil i 100))
;;(format t "\n n= ~a el= ~a\n y= ~a " n el y)
 (while (<= i n)
  (setq w 't z nil)
  (while (and (not z) w)
;;(format t "\n el= ~a chri= ~a z= ~a w= ~a " el (char y i) z w)
   (if (eq (char el 0)(char y i))
    (setq w nil)
    (progn
     (setq i(+ i 1))
     (if(> i n)(setq z 't))
  )))
  (unless  w
   (setq l(subseq y i (+ i elng))) ;;subseq "nick van vliet" 2 7= "ck va"
   (if (string= l el) (setq z nil w nil i 100)(setq i(+ i 1) z 't))
;;(format t "\n ok? el= ~a l= ~a z= ~a w= ~a " el l z w) (read-line)
 ))
 (setq z z)
)              ;;(prsl "nick van vliet")(read-line) ;el="van"
(defun prst(x y)      ;;x=rl y=q parse language to
 (ttl x)
 (setq i 1 n 1)
 (while (< n (length x))
  (setq h (char-code(char x n)))
  (while (and (< n (length x)) (/= h 32))
;;(princ ".0.")
   (setq l(subseq x i (+ n 1)))
;;(format t "\n ~a = ~a   ~a\n" q l (char-code(char x n)))
   (setq n(+ n 1))
;;(princ ".1.")
   (if(< n (length x))(setq h (char-code(char x n))))
  )
  (when(= h 32)
   (setq q (+ q 1))
   (while (and (<= n (length x)) (= h 32))
;;(princ ".2.")
    (setq h (char-code(char x n)))
    (setq n(+ n 1))
  ))
(format t "\n q= ~a lt= ~a el= ~a l= ~a" q lt el l)
  (when(= q lt)(format t "\n ~a = ~a\n" el l ))
  (setq i (- n 1) z 't)
 )
)
(defun ttl(x &optional v (y -1 s));;x=rl v=t/f y=# s=t/f el=el
 (unless s (nl))
 (setq q 0 i 1 n 1)
 (while (< n (length x))
  (setq h (char-code(char x n)))
  (while (and (< n (length x)) (/= h 32))
;;(princ ".0.")
   (setq l(subseq x i (+ n 1)))
;;(format t "\n ~a = ~a   ~a\n" q l (char-code(char x n)))
   (setq n(+ n 1))
;;(princ ".1.")
   (if(< n (length x))(setq h (char-code(char x n))))
  )
  (while (and (<= n (length x)) (= h 32))
;;(princ ".2.")
   (setq h (char-code(char x n)))
   (setq n(+ n 1))
  )
  (if s
   (when (= q y);;DUTCH=2
    (cond
     (v (setq n 100 x (list l x)))
     ((= y 4)
      (setq ln nil)
      (stp 0 0 "")      ;;init
      (load (strcat "lisp\\dict\\" l))
      (goto-xy 0 0) ;col row 40x24 TEXT
      (princ"                                                   \n  ")
      (princ el)
      (move 0 199)
      (draw 0 170 120 170)
      (if ln(frml 20 100));pixel 10,180
      (rstr 1 22) ;;restore
      (close f)
     )
     (t (setq n 100)(format t " ~a = ~a\n " el l));;two=twe/DUTCH
   ))
   (format t " ~a = ~a " l q);;FRENCH=1
  )
  (setq q (+ q 1) i (- n 1));z='t???
 )
 (if s(setq x x)(nl))
)
(setq *print-case* :downcase)           ; print in lower case
(defun sv()         ;;g=dict.dt  f=dict.dtk=bak
 (pr " MAKING A BACKUP FILE!\n")
 (setq g (open "lisp\\dict\\dict.dt" :direction :input));;:if-exists :overwrite;;:supersede
 (setq ttlg (file-position g))
 (setq f(open "lisp\\dict\\dict.dtk" :direction :output
                         :if-exists :supersede
                         :if-does-not-exit create));;:supersede
 (setq ttlf(file-position f))
 (setq rl (read-line g) rlo rl)
 (while rl
  (princ (strcat rl "\n") f)
  (setq rl (read-line g))
 )
 (close g)
 (close f)
)
(defun rstr(x y);;restore
 (color 7)
 (goto-xy x y) ;col x row y 40x24
 (print "HIT ENTER TO EXIT!")
 (read-line)
 (mode 3)
 (dictfl)
)
(defun stp(x y z);;setup
 (mode 4)        ;mode 4/5 14-16EGA600x200 18-16VGA 19-256VGA ?ah=4 int10
 (color 15)
 (goto-xy x y) ;col row 40x24 TEXT
 (princ z)
)
(defun dr(x);;degree/radians
 (setq z(*(/ x 180) pi))
)
(setq ry '(;;direction ray to add
 (0   0   0);nil
 (1   1   0);E
 (2   1  -1);SE
 (3   0  -1);SOUTH
 (4  -1  -1);SW
 (5  -1   0);WEST
 (6  -1   1);NW
 (7   0   1);NORTH
 (8   1   1);NE
 (10  2   3);OFFSET 1
 (11 -3  -4);OFFSET 2
 (12 10  19);OFFSET 3
 (13 -6 -21);OFFSET 4
 (14 -9 -10);OFFSET 5
 (15  0   3)
 (16  0  -3)

))
(defun frml(x y);;formula application
 (move x y);;col x  row y
 (do((i 0(1+ i)))((> i(-(length ln)1)))
  (setq n(car(subseq ln i(1+ i))))
  (setq xy(cdr(assoc n ry)))
  (setq x(car xy) y(cadr xy))
  (if(< n 9)(drawrel x y)(moverel x y))
 )
)

(pr "
 DICTIONARY FILE,

 NICK K. VAN VLIET,
 PO BOX 92544,
 CARLTON RPO,
 TORONTO, ONT
 M5A 4N9
 ")
(pr(int-char 7))
;;(pr " PRESS ENTER FOR MENU! ")(read-line)

(pr " *----------------------------*")
(pr " | << MAIN DICTIONARY MENU >> |")
(pr " *----------------------------*")
(pr " | BROWSE...................1 |")  ;49d=31h
(pr " |                            |")
(pr " | SEARCH...................2 |")  ;50d
(pr " |                            |")
(pr " | TRANSLATE................3 |")
(pr " |                            |")
(pr " | SORT ALL FILES...........4 |")
(pr " |                            |")
(pr " |                            |")
(pr " | EXIT.....................9 |")  ;57d
(pr " | or '(exit)'                |")
(pr " |                            |")
(pr " *----------------------------*")
(princ "\n\n INPUT > ")
(setq l(char-code(read-char)))
(unless(= l 10)(read-char));;no. always 2 char codes
(cond
 ((= l 57)(e))
 ((= l 49)     ;1 BROWSE
  (progn
   (setq f(open "lisp\\dict\\dict.dt" :direction :input))
   (setq rlo (read-line f) rl rlo len (length rlo))
   (while rl
    (pr " DICTIONARY TRANSLATOR")
    (pr rlo)
    (do((i 0(1+ i)))((>= i 22))
     (setq rl (read-line f))
     (if(>(length rl) (/ len 2))(pr rl)(setq rl nil i 99))
    )
    (when rl
     (pr " TO CONTINUE HIT ENTER / Menu / Exit. ")
     (setq q(char-code(read-char)))

     (cond
      ((or(= q 77)(= q 109))(read-line)(dictfl));;M=77;m=109
      ((or(= q 69)(= q 101))(e))                ;;E=69;e=101
      (t nil)
   )))
   (pr " END-OF-FILE: done!\n HIT ENTER!")
   (read-line)
   (close f)(dictfl)
 )) ;49="1";53="5";0=NL;121=Y;110=n;78=N
 ((= l 50)   ;2 SEARCH
  (progn
   (setq f(open "lisp\\dict\\dict.dt"))
   (pr "\n\n <<<<<<<<< SEARCHING >>>>>>>>\n")
  ;;(read-line)         ;neaded to restore computer
   (pr "\n USING CORRECT CASE ENTER STRING TO SEARCH FOR?\n ")
   (setq el(read-line))
   (setq elng(length el))

   (format t "\n <<<<<<<<<  ~a  >>>>>>>>>\n" el)
   (format t "\n IS THIS THE STRING TO SEARCH FOR or EXIT /N/E ? ")
   (setq q(char-code(read-char)))
   (when(or(= q 78)(= q  110))(close f)(read-line)(dictfl))   ;N n
   (when(or(= q 69)(= q  101))(close f)(e))                            ;E e

   (setq rl(read-line f) rlo rl)
   (pa)
   (pr " <<< SEARCHING >>>\n\n")
   (pr rlo)
   (while (and rl el)
    (setq rl(read-line f))
    (unless (prsl rl)       ;;not(test=ok=nil) ='t
     (progn
      (pr rl)
   )))                                ;121=Y;110=n;78=N
   (format t "\n END-OF-FILE!\n HIT ENTER!")
   (close f)(read-line)(dictfl)
 ))
 ((= l 51)   ;3 TRANSLATE
  (progn
   (setq g (open "lisp\\dict\\dict.dt"))
   (setq rl(read-line g) rlo rl)
   (format t "\n\n <<<<<< TRANSLATING >>>>>\n\n")

   (pr " USING CORRECT CASE ENTER WORD OR STRING TO TRANSLATE FOR?")
   (pr "\n INPUT > ")
   (setq el(read-line))
   (setq elng(length el))
   (format t "\n <<<<<<<<<  ~a  >>>>>>>>>\n" el)
   (format t "\n IS THIS THE WORD OR STRING TO TRANSLATER or EXIT /N/E ?")
   (setq q(char-code(read-char)))
   (when(or(= q 78)(= q  110))(read-line)(dictfl))   ;N n
   (when(or(= q 69)(= q  101))(e))                            ;E e

   (ttl rlo)
   (setq z 't)
   (while z
    (format t "\n USING A NUMBER: TRANSLATED INTO WHICH LANGUAGE? ")
    (setq lt (char-code(read-char)))
    (if(= lt 10)(dictfl))
    (setq lt (- lt 48))
    (read-char)
    (if (and(>= lt 0)(<= lt q))
     (setq z nil)
     (progn
      (princ "\n WRONG! - RETRY!")
   )))
  
   (format t "\n <<< SEARCHING FOR: ~a >>>\n\n" el)
   (while (and rl el)
    (setq rl(read-line g))
    (unless (prsl rl)
     (ttl rl nil lt)   ;;two=twee
   ))
   (close g)
   (format t "\n END-OF-FILE: HIT ENTER!")
   (read-line)(dictfl)
 ))
 ((= l 52)   ;4 SORT FILE
  (progn
   (setq g (open "lisp\\dict\\dict.dt" :direction :io :if-exists :overwrite))
   (setq ttlg (file-position g))
   (setq rl(read-line g) rlo rl len (length rlo))
;(sp)(pr len)
   (ttl rlo)
   (setq z 't el nil)
   (while z
    (format t "\n USING NUMBERS: WHICH LANGUAGE IS TO BE SORTED? enu: ")
    (setq lf (char-code(read-char)))
    (when(= lf 10)(close g)(dictfl))
    (when(or(= lf 77)(= lf 109))(close g)(read-line)(dictfl))
    (setq lf (- lf 48))
    (if(and(>= lf 0)(<= lf q))(setq z nil)(pr " WRONG! - RETRY!"))
   )
   (read-char)
   (setq el1 (car(ttl rlo 't lf)));;ENGLISH/DUTCH
   (format t "\n <<<< LOADING FILES! >>>\n")
   (if(= lf 0)(setq el (list rl))(setq el(ttl rl 't lf)))
   (setq lst(list(cons '0 el)) kv 0);;cons=list???
  
   (while rl
    (setq rl(read-line g))
;;(pr rl)
;;(pr (length rl))(pr "  ")(princ (/ len 2))
    (if (> (length rl) (/ len 2))
     (progn
      (setq kv(+ kv 1))
      (if(= lf 0)(setq el (list rl))(setq el(ttl rl 't lf)))
      (setq lst(cons (cons kv el) lst))
     )
     (setq rl nil)
   ))
;;(pr lst);;(read-line)

;;  (setq nn(caar lst));;same

   (setq nn(-(length lst) 1))

;;(pr nn);;(read-line)

   (format t "\n <<<< SORTING ~a FILES ALPHABETICALLY >>>\n\n" el1)
   (do((hv 1(+ hv 1)))((> hv (- nn 1)))
    (do((kv (+ hv 1)(+ kv 1)))((> kv nn))
     (setq jo(assoc hv lst))
     (setq ko(assoc kv lst))
     (setq sl1(strcat(cadr jo)" "))
     (setq n1(length sl1))
;;(nl)(nl)(pr sl1)(sp)(princ n1)
     (setq sl2(strcat(cadr ko)" "))
     (setq n2(length sl2))
;;(pr sl2)(sp)(princ n2)
     (if(< n2 n1)(setq n3 n2)(setq n3 n1))
     (setq z 0 zz 't)
     (do((i 0(1+ i)))((or(= i n3)(= z 1)(not zz)))
      (setq l1(char-code(char sl1 i)))
      (setq l2(char-code(char sl2 i)))
      (if(and zz(< l2 l1))(setq z 1))
      (if(/= l1 l2)(setq zz nil))
     )
     (when(= z 1)
      (setq l1(cons kv(cdr jo)))
      (setq l2(cons hv(cdr ko)))
      (setq lst(subst l1 ko lst))
      (setq lst(subst l2 jo lst))
     )
;;(pr l2)(pr l1);;same when z=1 =opp  (read-line)
   ))

;;(pr lst);;(read-line)

   (setq f 't)
   (while f
    (format t " BROWSING SORTED ~a FILE!\n" el1)
    (setq kv 0 rl rlo)
    (while (<= kv nn)
     (format t " ~a DICTIONARY TRANSLATOR" el1)
     (pr rlo)
     (do((i 0(1+ i)))((>= i 22))
      (setq kv(+ kv 1))
      (if(= lf 0)
       (pr (cadr (assoc kv lst)))
       (pr (caddr(assoc kv lst)))
      )
      (if(> kv nn)(setq kv 0))
     )
     (pr "TO CONTINUE HIT ENTER / Menu / Exit / Save. ")
     (setq q(char-code(read-char)))
     (unless (= q 10)(read-char))
     (cond                      ;M=77;m=109;E=69;e=101;S=80;s=115
      ((or(= q 77)(= q 109))(dictfl))
      ((or(= q 69)(= q 101))(e))
      ((or(= q 83)(= q 115))
       (progn
        (format t "\n\n SAVING ~a SORTED FILE\n\n" el1)
        (file-position g ttlg)
        (pa)
        (do ((ii 0(1+ ii)))((> ii nn))
         (if(= lf 0)
          (progn
           (princ (strcat(cadr (assoc ii lst)) "\n"))
           (princ (strcat(cadr (assoc ii lst)) "\n")g)
          )
          (progn
           (princ (strcat(caddr(assoc ii lst)) "\n"))
           (princ (strcat(caddr(assoc ii lst)) "\n")g)
        )))
        (princ "zzzz\n\n")
        (close g)
        (setq f 't)
      ))
      (t  (setq f 't))
 )))))
 (t              ;; DRAW
  (progn
   (stp 24 12 "HI");;(goto-xy 24 12) ;col row 40x24 TEXT;;(print "HI")
;;border
   (move 0 0)
   (drawrel 20 0)
   (drawrel 0 20)
   (drawrel -20 0)
   (drawrel 0 -20)
   (move 319 0)
   (drawrel 0 20)
   (drawrel -20 0)
   (drawrel 0 -20)
   (drawrel 20 0)
   (move 319 199)
   (drawrel -20 0)
   (drawrel 0 -20)
   (drawrel 20 0)
   (drawrel 0 20)
   (move 0 199)
   (drawrel 0 -20)
   (drawrel 20 0)
   (drawrel 0 20)
   (drawrel -20 0)
   (move 1 1)
   (drawrel 317 0)
   (drawrel 0 197)
   (drawrel -317 0)
   (drawrel 0 -197)

;;1     large rectangle

   (move 4 4)     ;;x=5 y=10 bottom left corner GRAPHIC
   (draw 14 14)  ;;x,y
   (drawrel 10 0);;x,y
   (drawrel 0 10)
   (drawrel -10 0)
   (drawrel 0 -15)
;;2     small square
   (move 305 185)   ;;x y
   (drawrel 4 0)
   (drawrel 0 6)
   (drawrel -4 0)
   (drawrel 0 -6)
;;3;;moto
   (setq x0 30 y0 170 r 11 a 20)
   (move x0(+ y0 r 5))
   (draw x0(- y0 r 5))
   (drawrel(/ r -1) 0)
   (drawrel(round(* 60(cos(dr 45)))1)(round(* 60(sin(dr 45)))1))
   (move x0(- y0 r 5))
   (drawrel r 0)
   (drawrel(round(* 30(cos(dr 135))))(round(* 30(sin(dr 135)))))
;;4
;;circle
;;(setq x0 30 y0 170 r 11 a 20)
   (move x0  y0)
   (setq c 8 d 11 e(/ d c))
   (do((i(/ c -1)(+ 0.1 i)))((> i  c))
    (setq  p1(round(+ x0 i)1) p2(- y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p1 p2)
   )
   (do((i(/ c -1)(+ 0.1 i)))((> i  c))
    (setq  p3(round(+ x0 i)1) p4(+ y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p3 p4)
   )
;;;5
;;(setq x0 30 y0 170 r 11 a 20)
;;(move(+ x0 r) y0)
   (setq x0 100 y0 100)
   (move x0 y0)
   (setq c 8 d 12)
   (do((i 0(+ 0.3 i)))((> i(dr 369)))
    (setq p1(+ x0(round(* r(cos i))1)) p2(+ y0(round(* r(sin i))1)))
    (draw p1 p2)
   )
;;6
   (setq x0 200 y0 100)
   (move x0  y0)
   (setq c 14 d 21 e(/ d c))
   (do((i(/ c -1)(+ 0.3 i)))((> i  c))
    (setq  p1(round(+ x0 i)1) p2(- y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p1 p2)
    (setq  p3(round(+ x0 i)1) p4(+ y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p3 p4)
   )
;;7
   (setq ln '(
3 5 3 5 2 5 2 1 1 5 2 1 1 1 1 7 1 1 7 1 6 1 7 1 6 1
7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6
1 7 1 7 1 7 1 7 1 7 1 7 1 7 1
5 3 5 3 5 4 1 4 1 4 1 4 1 4 1 1 4 1 4 1 4 1 4 1 4 1 4 1 1 4 1
4 1 4 1 4 1 4 1 4 1 1 4 1 4 1 4 1 4 1 4 1 4
8 7 7 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6
1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 6 1 7 1 7 1
13       ;;N
;;8
8 8 8 8 8 8 7 8 7 10 7 1 4 11 3 4 3 3 3 2 1 1 8 1        ;;i
;;9
8 8 8 7 8 7 8 8 1 1 2 6 5 5 4 4 3 2 1 2 1 1 8 1        ;;c
;;10
8 8 8 8 8 7 8 8 8 8 8 7 8 7 8 7 8 7 8 7 7 8 7 6 6 5 5 4 4 3
3 3 4 3 3 4 3 3 4 3 3 3 4 3 3 3 3 3 3 3 7 7 7 7 1 1 1 2 4 5
5 1 2 1 1 8 1 12       ;;k
;;11
7 1 7 1 7 1 1 7 1 1 1 1 4 1 1 4 1 3 1 4 1 4 1 4 1 4 1 4 1
4 1 4 1 4 1 4 5 2 5 2 5 2 5 3 5 2 5 2 5 2 1 1 1 1 7 1 7 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 7 1 7 1 1 7 1 13        ;;V
;;12
8 8 8 7 1 2 2 8 4 6 6 7 7 8 8 1 1 8 3 3 4 3 3 2 1 8 1        ;;a
;;13
8 8 7 7 8 7 8 7 1 1 3 3 3 4 3 3 7 7 8 8 7 8 7 8 8 1 3 3 4 3 3
1 1 12        ;;n
;;11
7 1 7 1 7 1 1 7 1 1 1 1 4 1 1 4 1 3 1 4 1 4 1 4 1 4 1 4 1
4 1 4 1 4 1 4 5 2 5 2 5 2 5 3 5 2 5 2 5 2 1 1 1 1 7 1 7 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 7 1 7 1 1 7 1 13        ;;V
;;14
8 8 8 8 8 8 8 8 8 8 7 8 8 7 8 8 7 8 7 8 7 7 7 7 7 6 5 5 4 3 4 3 4 3
4 3 3 4 3 3 4 3 3 3 3 3 2 3 3 3 2 1 8 1        ;;l
;;8
8 8 8 8 8 8 7 8 7 10 7 1 4 11 3 4 3 3 3 2 1 1 8 1        ;;i
;;15
8 8 8 8 8 8 7 7 5 5 4 4 3 3 3 2 1 1 8 1        ;;e
;;16
8 8 8 8 7 7 8 7 7 8 7 7 8 7 7 8 7 7 8 7 7 8 14 8 1 1 8 1 1 8
1 1 8 1 1 8 14 3 3 3 3 3 2 1 2 1 2 1 2        ;;t
;;17
4 5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5     ;line
14
;;18
1 1 6 1 6 1 6 1 6 5 1 1 1 1 1 1 5 4
1 4 1 3 1 3 1         ;pie

   ))
   (move 20  80);;picsel x,y right,up
   (frml 20 80)


;;(goto-xy 18 12) ;;col x row y 40x24
   (rstr 18 12)
)))
)(dictfl)
;;error 1=(do((i 0 (+1/(1+

;;;;;;;;;;;;;;;;;; LANGUAGE DATA   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       --lsp\dict\DICT.DT--
;;ENGLISH / FRENCH / DUTCH / LATIN / CHINESE-japanese-shorthand

 ENGLISH         FRENCH          DUTCH                   LATIN        CHINESE
 five            cenq            vife                    pina         @6
 fifteen         cenquiem        vivteen                 ?            @16
 two             deux            twe                     deo          @3
 ten             dix             teen                    deci         @11
 twelve          douze           twalv                   ?            @13
 eight           huit            aught                   octo         @9
 eighteen        huitiem         aughteen                ?            @19
 nine            nuef            nege                    nina         @10
 nineteen        nuefiem         negenteen               ?            @20
 zero            nul             nul                     anon         @1
 eleven          onze            elev                    ?            @12
 fourteen        quatorze        virteen                 ?            @15
 four            quatre          vier                    novi         @5
 seven           sept            seven                   sepi         @8
 seventeen       septiem         seventeen               ?            @18
 sixteen         siesiem         sesteen                 ?            @17
 six             six             ses                     semi         @7
 thirteen        trieze          derteen                 ?            @14
 three           troi            dree                    tre          @4
 one             un              een                     uni          @2
 twenty          venc            twintegh                ?            @21
 twenty_five     venc_et_cenq    viv_en_twintegh         ?            @
 twenty_two      venc_et_deux    twee_en_twintegh        ?            @
 twenty_four     venc_et_quatre  vier_en_twentegh        ?            @
 twenty_three    venc_et_troi    dree_en_twintegh        ?            @
 twenty_one      venc_et_un      een_en_twintegh         ?            @


;;;;;;;;;;;;;;;;; CHIMESE DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      --lsp\dict\@.LSP--
;;11
(setq ln'(7 1 7 1 7 1 1 7 1 1 1 1 4 1 1 4 1 3 1 4 1 4 1 4 1 4 1 4 1
4 1 4 1 4 1 4 5 2 5 2 5 2 5 3 5 2 5 2 5 2 1 1 1 1 7 1 7 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 7 1 7 1 1 7 1))        ;;V

      --lsp\dict\1@.LSP--
;;large square
(move 30 100)
(drawrel 10 0);;x,y
(drawrel 0 10)
(drawrel -10 0)
(drawrel 0 -15)

      --lsp\dict\2@.LSP--
;;2     small square
(move 30 100)
(drawrel 4 0)
(drawrel 0 6)
(drawrel -4 0)
(drawrel 0 -6)

      --lsp\dict\3@.LSP--
;;3;;moto
   (setq x0 30 y0 100 r 11)
   (move x0(+ y0 r 5))
   (draw x0(- y0 r 5))
   (drawrel(/ r -1) 0)
   (drawrel(round(* 60(cos(dr 45)))1)(round(* 60(sin(dr 45)))1))
   (move x0(- y0 r 5))
   (drawrel r 0)
   (drawrel(round(* 30(cos(dr 135))))(round(* 30(sin(dr 135)))))

     --lsp\dict\4@.LSP--
;;4
;;circle
(setq x0 30 y0 100 r 11 a 20)
   (move x0  y0)
   (setq c 8 d 11 e(/ d c))
   (do((i(/ c -1)(+ 0.1 i)))((> i  c))
    (setq  p1(round(+ x0 i)1) p2(- y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p1 p2)
   )
   (do((i(/ c -1)(+ 0.1 i)))((> i  c))
    (setq  p3(round(+ x0 i)1) p4(+ y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p3 p4)
   )

      --lsp\dict\5@.LSP--
;;;5
(setq x0 100 y0 100 r 11)
(move x0 y0)
(do((i 0(+ 0.3 i)))((> i(*(/ 369 180)pi)))
(setq p1 (+ x0 (floor (* r(cos i))1)) p2 (+ y0 (floor(* r(sin i))1)))
(draw p1 p2)
)

      --lsp\dict\6@.LSP--
;;6
   (setq x0 30 y0 100)
   (move x0  y0)
   (setq c 14 d 21 e(/ d c))
   (do((i(/ c -1)(+ 0.3 i)))((> i  c))
    (setq  p1(round(+ x0 i)1) p2(- y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p1 p2)
    (setq  p3(round(+ x0 i)1) p4(+ y0(round(* e(sqrt(-(* c c)(* i i))))1)))
    (draw p3 p4)
   )

      --lsp\dict\7@.LSP--
(setq ln '(3 5 3 5 2 5 2 1 1 5 2 1 1 1 1 7 1 1 7 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 7 1 7 1 7 1 5 3 5 3 5 4 1 4 1 4 1 4 1 4 1 1 4 1 4 1 4 1 4 1 4 1 4 1 1 4 1 4 1 4 1 4 1 4 1 4 1 1 4 1 4 1 4 1 4 1 4 1 4 8 7 7 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 6 1 7 1 7 1 13 ))

      --lsp\dict\8@.LSP--
(setq ln '(8 8 8 8 8 8 7 8 7 10 7 1 4 11 3 4 3 3 3 2 1 1 8 1 ))

      --lsp\dict\9@.LSP--
(setq ln '(8 8 8 7 8 7 8 8 1 1 2 6 5 5 4 4 3 2 1 2 1 1 8 1 ))

      --lsp\dict\10@.LSP--
(setq ln '(8 8 8 8 8 7 8 8 8 8 8 7 8 7 8 7 8 7 8 7 7 8 7 6 6 5 5
 4 4 3 3 3 4 3 3 4 3 3 4 3 3 3 4 3 3 3 3 3 3 3 7 7 7 7 1 1 1 2 4
  5 5 1 2 1 1 8 1))

      --lsp\dict\11@.LSP--
;;11
(setq ln'(7 1 7 1 7 1 1 7 1 1 1 1 4 1 1 4 1 3 1 4 1 4 1 4 1 4 1 4 1
4 1 4 1 4 1 4 5 2 5 2 5 2 5 3 5 2 5 2 5 2 1 1 1 1 7 1 7 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 7 1 6 1 6 1 7 1 6 1 7
1 6 1 7 1 6 1 7 1 6 1 7 1 7 1 7 1 7 1 7 1 7 1 1 7 1))        ;;V

      --lsp\dict\12@.LSP--
(setq ln '(8 8 8 7 1 2 2 8 4 6 6 7 7 8 8 1 1 8 3 3 4 3 3 2 1 8 1 ))

      --lsp\dict\13@.LSP--
(setq ln '(8 8 7 7 8 7 8 7 1 1 3 3 3 4 3 3 7 7 8 8 7 8 7 8 8 1 3 3 4
 3 3 1 1 12 ))

       --lsp\dict\14@.LSP--
(setq ln '(8 8 8 8 8 8 8 8 8 8 7 8 8 7 8 8 7 8 7 8 7 7 7 7 7 6 5 5 4 3 4 3 4 3 4 3 3 4 3 3 4 3 3 3 3 3 2 3 3 3 2 1 8 1 ))

       --lsp\dict\15@.LSP--
(setq ln '(8 8 8 8 8 8 7 7 5 5 4 4 3 3 3 2 1 1 8 1 ))

       --lsp\dict\16@.LSP--
(setq ln '(8 8 8 8 7 7 8 7 7 8 7 7 8 7 7 8 7 7 8 7 7 8 14 8 1 1 8 1 1 8 1 1 8 1 1 8 14 3 3 3 3 3 2 1 2 1 2 1 2 ))

       --lsp\dict\17@.LSP--
;;17
(move 100 150)
(setq ln '(
4 5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5
5 4 5 4 5 5 4 5 4 5 4 5 5 4 5 4 5 5 4 5 4 5     ;line
))

    --lsp\dict\18@.LSP--
;;18
(setq ln '(
1 1 6 1 6 1 6 1 6 5 1 1 1 1 1 1 5 4
1 4 1 3 1 3 1         ;pie
))

    --lsp\dict\19@.LSP--
;;19 THETA
(setq ln '(
1 1 1 1 1 8 7 6 5 4 3 3 2 1 1       ;e
))

     --lsp\dict\20@.LSP--
;;19 BETA
(setq ln '(
7 8 7 8 7 8 7 8 7 8 1 1 2 3 4 4 5 5 5 1 1 2 3 4 5 5 ;B
))

     --lsp\dict\21@.LSP--
;;21 MAN?
(setq ln '(
7 8 7 8 7 8 7 8 7 7 7 7 7 7 7 3 3 3 1 1 1
15 7 8 4 2 5
16
1 5 5 5 5 5 5 5
15 7 6 2 4 1
16
5 1 1 1 1 3 3 3
2 3 2 3 2 3 2 3
))

---

RETURN TO TOP
LOGIC MENU
HOME PAGE
You are visitor no. to this page.