Реферат: Реализация алгоритма обработки данных

reply := ALERT("Сохранить все внесенные изменения и продолжить;" ;

+ "работу с Базой данных - т.е. сделать промежуточный SAVE или;" ;

+ " Завершить работу с базой данных с сохранением всех изменений ;";

, {" Сохранить и продолжить " , " Завершить работу " } )

IF ( reply = 1 ) .OR. ( reply = 0 )

DBCOMMITALL()

ELSE

QUIT

ENDIF

RETURN

13) п.п. вывода сообщения на экран с заданными координатами и цветом:

PROCEDURE msgs(x,y,m,color)

LOCAL ml,c

IF m = NIL

RETURN

ENDIF

ml=LEN(m)

IF ml=0 && .OR. ml > 80

RETURN

ENDIF

IF x=NIL // Центр по X

x := (80-ml)/2

ENDIF

IF y=NIL // Центр по Y

y := 24/2 - 1

ENDIF

IF color <> NIL

c := SETCOLOR(color)

@ y,x SAY m