> (Display "" mainw)
(Cond
((Eq? Ch # 1) (loading))
((Eq? Ch # 2) (saving))
((Eq? Ch # ESCAPE)
(Window-Delete menufw)
(Mainmenu))
))) br/>
; Меню БазиДанних
(define (Menudb)
(Define ch)
(Window-Set-Position! menudbw 26 травня)
(Window-Set-Size! menudbw 10 червня)
(Window-Clear menudbw)
(Window-Set-Cursor! menudbw 1 січня)
(Display "1.ADD" menudbw)
(Window-Set-Cursor! menudbw 1 лютий)
(Display "2.DELETE" menudbw)
(Window-Set-Cursor! menudbw 3 січня)
(Display "3.REDACT" menudbw)
(Window-Set-Cursor! menudbw 4 1)
(Display "4.VIEW" menudbw)
(Do ((i 0 (+ i 0)))
((> I 5) i)
(Window-Set-Cursor! mainw 22 30)
(Display "ВАШ ВИБІР:" mainw)
(Set! ch (read-char mainw))
(Window-Set-Cursor! mainw 22 30)
(Display "" mainw)
(Cond
((Eq? Ch # 1)
(Adding) (menudb))
((Eq? Ch # 2)
(Deleting) (menudb))
((Eq? Ch # 3)
(Redacting) (menudb))
((Eq? Ch # 4)
(Viewing) (menudb))
((Eq? Ch # ESCAPE)
(Window-Delete menudbw) (mainmenu))
))) br/>
; Завантаження файлу
(define (Loading)
(Window-Set-Position! menulw 20 20)
(Window-Set-Size! menulw 1 40)
(Window-Clear menulw)
(Window-Set-Cursor! menulw 1 березня)
(Set! f (read-line menulw))
(Window-Delete menulw)
(With-input-from-file f
(Lambda ()
(Set! * symptom * (read))
(Set! * it_is * (read))
(Flush-input)
)))
; Запис файлу
(define (Saving)
(Window-Set-Position! menulw 20 20)
(Window-Set-Size! menulw 1 40)
(Window-Clear menulw)
(Window-Set-Cursor! menulw 2 3)
(Set! f (read-line menulw))
(Window-Delete menulw)
(With-output-to-file f
(Lambda ()
(Write * symptom *)
(Write * it_is *)
)))
; Меню діагностики
(define (Menucons)
(Window-Set-Position! menucw 10 червня)
(Window-Set-Size! menucw 17 57)
(Window-Clear menucw)
(Experting * it_is *)
(Window-delete menucw))
(define (Experting spis_ill)
(Cond ((null? Spis_ill) (board)
(Display "НЕМОЖЛИВО ВИЗНАЧИТИ ДІАГНОЗ" menucw)
(Wait menucw)
(Set! * yes * '())
(Set! * no * '()))
((Exp_ill (cadar spis_ill) (caar spis_ill)))
(T (experting (cdr spis_ill)))))
(define (Exp_ill spis_num ill)
(Define nums)
(Define s)
(Cond ((null? Spis_num) (window-clear menucw) (window-set-cursor! menucw 1 січня)
(Display "У ВАС" menucw) (display ill menucw)
(Display "." Menucw)
...
