n="justify"> ERROR «[М] Ужское або [Ж] енський» SIZE 1,1;
WHEN edit =. t. COLOR SCHEME 2
@ 7,30 GET birth_date SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2
@ 8,30 GET birthplace SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 9,30 GET national SIZE 1,15 WHEN edit =. t. COLOR SCHEME 2
@ 10,30 GET SOCIAL SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 11,30 GET citizen SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2
@ 12,30 GET educat SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 13,30 GET NAME_EDU SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 14,30 GET form_train SIZE 1,20 WHEN edit =. t. COLOR SCHEME 2
@ 15,30 GET year_end SIZE 1,10 WHEN edit =. t. COLOR SCHEME 2
STORE «* ВПЕРЕД» TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE «* НАЗАД» TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
STORE «* НАСТУПНА» TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ПОПЕРЕДНЯ» TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ШУКАТИ» TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11
STORE «* ДРУК» TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
STORE «* ВИХІД» TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLEorg_n <> org_num
org_n1=org_num
SELECT 2
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 3
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 4
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 5
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 6
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 7
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 8
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 9
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 10
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 11
REPLACE org_num WITH org_n1 FOR org_num=org_n
SELECT 1
RETURN
FUNCTION un
rec_un=RECNO ()
tab_un=org_numtab_unRECNO ()=rec_untab_un=org_num AND! EOF ()
GO rec_un
RETURN. f.
ENDIF
GO rec_un
RETURN.PRG...
