Window-Set-Position! addiw 10 червня)
(Window-Set-Size! addiw 17 57)
(Window-Clear addiw) (add_ill)
(Window-delete addiw))
((Eq? Ch # 2) (Window-Set-Position! addsw 6 жовтня)
(Window-Set-Size! addsw 17 57)
(Window-Clear addsw) (add_sym)
(Window-delete addsw))
((Eq? Ch # ESCAPE))
(T (adding))))
(define ill)
(define sym)
; Додавання хвороби
В
(define (Add_ill)
(Define n)
(Window-set-cursor! addiw 1 січня)
(Display "Введіть назву нової ХВОРОБИ:" addiw)
(Set! ill (read-line addiw))
(Display "Щоб ЗАКІНЧИТИ вводити симптоми наберіть: end" addiw)
(Newline addiw)
(Set! n (caar (last-pair * symptom *)))
(Set! * it_is * (append * it_is * (list (list ill
(Addsyms (+ n 1) '()' () addiw)))
))) p>; Додавання симптомів
(define (Add_sym)
(Define n)
(Define nums)
(Window-set-cursor! addsw 1 2)
(Display "ХВОРОБА:" addsw)
(Set! ill (read-line addsw))
(Display "Щоб ЗАКІНЧИТИ вводити симптоми наберіть: end" addsw)
(Newline addsw)
(Set! n (caar (last-pair * symptom *)))
(Set! nums (find_sym ill * it_is *))
(Set! * it_is * (delete! (list ill nums) * it_is *))
(Set! * it_is * (append * it_is * (list (list ill
(Addsyms (+ n 1) '() nums addsw)))
))) br/>
(define (Addsyms nn spis_num nums nwin)
(Display "СИМПТОМ:" nwin)
(Set! sym (read-line nwin))
(If (equal? ​​Sym "end") (append nums spis_num)
(Begin (set! * symptom * (append * symptom * (list (list nn sym))))
(Addsyms (+ nn 1) (append spis_num (list nn)) nums nwin))))
; Редагування
(define (Redacting)
(Define ch)
(Submenu)
(Window-Set-Cursor! mainw 22 30)
(Display "ВАШ ВИБІР:" mainw)
(Set! ch (read-char mainw))
(Window-Set-Cursor! mainw 22 30)
(Display "" mainw)
(Window-delete submenuw)
(Cond ((eq? Ch # 1) (Window-Set-Position! rediw 11 10)
(Window-Set-Size! rediw 6 57)
(Window-Clear rediw) (red_ill)
(Window-delete rediw))
((Eq? Ch # 2) (Window-Set-Position! redsw 11 10)
(Window-Set-Size! redsw 8 57)
(Window-Clear redsw) (red_sym)
(Window-delete redsw))
((Eq? Ch # ESCAPE))
(T (redacing))))
; Редагування хвороби
В
(define (Red_ill)
(Define nums)
(Define ill1)
(Window-set-cursor! rediw 1 січня)
(Display "Введіть ХВОРОБА, назва якої хочете" rediw)
(Newline rediw)
(Display "ВИПРАВИТИ:" rediw)
(Set! ill (read-line rediw))
(Newline rediw)
(Display "Введіть виправлення назви:" rediw)
(Set! ill1 (read-line rediw))...
