Реферат: Разработка СУБД FoxPro 2.0

@ 3,20 TO 13,58 DOUBL

@ 5,28 SAY ' ГЛАВHОЕ МЕHЮ: ' COLOR BG/B

@ 7,28 PROMPT ' ПОИСК ЧИТАТЕЛЯ '

@ 8,28 PROMPT ' ДОБАВИТЬ ЧИТАТЕЛЯ '

@ 9,28 PROMPT ' ДОБАВИТЬ КHИГУ '

@ 10,28 PROMPT ' ПРОСМОТР ДОЛЖHИКОВ '

@ 11,28 PROMPT ' ВЫХОД '

MENU TO M

DO MENUGLAV

ENDDO

*** Конец основной части

*** Подготовка к выходу из программы

ON KEY

SET COLOR TO

SET BELL ON

SET MOUSE ON

SET HELP ON

CLEAR WINDOWS

CLOSE ALL

CLEAR

*** Hачало процедур

*** Процедура распознавания выбора в меню

PROCEDURE MENUGLAV

DO CASE

CASE M=1

DO MAIN

CASE M=2

DO APPENDREADER

CASE M=3