Реферат: Разработка оболочки экспертной системы
(define delsw(make-window "_____________УДАЛЕНИЕ СИМПТОМА" #!true))
(define submenuw(make-window "___Работа с:" #!true))
(define menulw(make-window "Введите ИМЯ ФАЙЛА :" #!true))
(define f)
(define *symptom*)
(define *it_is*)
(define *yes* '())
(define *no* '())
(define (start)
(window-set-position! mainw 1 1)
(window-set-size! mainw 23 78)
(window-clear mainw)
(mainmenu))
; Главное меню
(define (mainmenu)
(define ch)
(Window-Set-Position! mmenuw 3 15)
(Window-Set-Size! mmenuw 1 47)
(Window-Clear mmenuw)
(display " 1.Files 2.DataBase 3.Diagnosticka 4.Quit" mmenuw)
(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) (menufiles))