Реферат: Разработка оболочки экспертной системы

(Window-Set-Position! menudbw 5 26)

(Window-Set-Size! menudbw 6 10)

(Window-Clear menudbw)

(Window-Set-Cursor! menudbw 1 1)

(display "1.ADD " menudbw)

(Window-Set-Cursor! menudbw 2 1)

(display "2.DELETE" menudbw)

(Window-Set-Cursor! menudbw 3 1)

(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))