ELSE
list=5
ENDIF
ENDIF
IF up=1
IF list <> 5
list=list +1
ELSE
list=1
ENDIF
ENDIF
IF find=1
DO search.prg
ENDIF
org_num1=org_numeduadd=1
DO educat.prg WITH org_num1, editforlang=1
DO language.prg WITH org_num1, editconv=1
DO convict.prg WITH org_num1, editstructfam=1
DO family.prg WITH org_num1, editpass=1
DO passport.prg WITH org_num1, editbok=1
DO workcard.prg WITH org_num1, editpurpos=1
DO move.prg WITH org_num1, editqualcateg=1
DO qualif.prg WITH org_num1, edittripsbus=1
DO bus_trip.prg WITH org_num1, editholid=1
DO holiday.prg WITH org_num1, editprint=1
DO print.prg
ENDDOWINDOW win1WINDOW win0.PRGedit
ACTIVATE WINDOW win1
CLEAR=5=5=5=5=5=5=5=5=5=5_n=org_num
@ 1,1 SAY «Таб. номер: __________________ »
@ 2,1 SAY «Страховий номер: _____________»
@ 3,1 SAY «Прізвище: _____________________»
@ 4,1 SAY «Ім'я: _________________________»
@ 5,1 SAY «батькові: ____________________»
@ 6,1 SAY «Пол: _________________________»
@ 7,1 SAY «Дата народження: _______________»
@ 8,1 SAY «Місце народження: ______________»
@ 9,1 SAY «Національність: ______________»
@ 10,1 SAY «Соціальне походження: ____»
@ 11,1 SAY «Громадянство: _________________»
@ 12,1 SAY «Освіта: _________________»
@ 13,1 SAY «Назва навчального закладу: _"
@ 14,1 SAY «Форма навчання: ______________»
@ 15,1 SAY «Рік закінчення: _______________»
@ 18,4 SAY «гортають»
@ 18,29 SAY «ЗАПИС»
@ 16,0,16,77 BOX
@ 17,26,19,26 BOX
@ 17,52,19,52 BOX
STORE 6 TO org_num, ins_num, surname, name, up, down, next,;
previos, find, print, exit
@ 1,30 GET org_num VALID UN () =. t. ERROR;
«Такий табельний номер вже існує» SIZE 1,6 WHEN edit =. t. COLOR SCHEME 2
@ 2,30 GET ins_num PICTURE «NNN-NNN-NNN» SIZE 1,11;
WHEN edit =. t. COLOR SCHEME 2
@ 3,30 GET surname SIZE 1,15 WHEN edit =. t. COLOR SCHEME 2
@ 4,30 GET name SIZE 1,15 WHEN edit =. t. COLOR SCHEME 2
@ 5,30 GET patron SIZE 1,15 WHEN edit =. t. COLOR SCHEME 2
@ 6,30 GET sex VALID sex=«М» OR sex=«Ж» OR sex="м" OR sex=«ж» ;
