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

ELSE

WAIT 'Принтер не готов!' WINDOW

ENDIF

CASE I=1.AND.J=3 &&Если вывод в файл

DEACTIVATE WINDOW WHERE

SET PRINTER ON

FULL=PATH+FILE &&Определение пути файла

SET PRINTER TO &FULL

DO DOLGMEN

SET PRINT TO

SET PRINTER OFF

ENDCASE

SET SPACE ON

RETURN

***Процедура запроса о выходе из программы

PROCEDURE EXIT

ACTIVATE WINDOW EXIT TOP

@ 0,5 SAY 'Вы хотите выйти из программы?'

YN=2

@ 1,12 GET YN FUNCTION;

'*H Да;Hет' SIZE 1,1,6

READ CYCLE

IF YN=1

M=5

ELSE

M=0

ENDIF

DEACTIVATE WINDOW EXIT

RETURN