edit
ACTIVATE WINDOW win1
CLEAR=5=5=5=5=5=5=5=5=5=5
@ 1,1 SAY «Диплом: ______________________»
@ 2,1 SAY «Кваліфікація за дипломом: _____»
@ 3,1 SAY «Спеціальність за дипломом: _____»
@ 4,30 SAY EDU_NUM COLOR SCHEME 2
@ 5,1 SAY «Вид найму: ___________________»
@ 6,1 SAY «Вид роботи: __________________»
@ 7,1 SAY «Вчений ступінь: ______________»
@ 8,1 SAY «Вчене звання: _______________»
@ 9,1 SAY «Вузька спеціальність: _________»
@ 10,30 SAY LANG_NUM COLOR SCHEME 2
@ 11,30 SAY conv_num COLOR SCHEME 2
@ 12,1 SAY «Сімейний стан: __________»
@ 13,30 SAY famil_num COLOR SCHEME 2
@ 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 diploma, qual_dip, spec_dip, eduadd,;
kind_hir, KIND_WRK, s_degree, s_rank, mar_spec,;
forlang, conv, mar_status, structfam, tr_union, group,;
up, down, next, previos, find, print, exit
@ 1,30 GET diploma PICTURE «серія: XXXX номер: NNNNNNNN» ;
SIZE 1,25 WHEN edit =. t. COLOR SCHEME 2
@ 2,30 GET qual_dip SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 3,30 GET spec_dip SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
STORE «* Освіта (дополніт.): ____» TO MPROMPTS
@ 4,0 GET eduadd FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 5,30 GET kind_hir SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2
@ 6,30 GET KIND_WRK SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2
@ 7,30 GET s_degree SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2
@ 8,30 GET s_rank SIZE 1,30 WHEN edit =. t. COLOR SCHEME 2
@ 9,30 GET mar_spec SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
STORE «* Володіння іноземними. мовами: _ » TO MPROMPTS
@ 10,0 GET forlang FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
STORE «* Наявність судимості: __________» TO MPROMPTS
@ 11,0 GET conv FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 12,30 GET mar_status SIZE 1,20 WHEN edit =. t. COLOR SCHEME 2
STORE «* Склад сім'ї: _______________» TO MPROMPTS
@ 13,0 GET structfam FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 14,30 GET tr_union SIZE 1,40 WHEN edit =. t. COLOR SCHEME 2
@ 15,30 GET group SIZE 1,1 WHEN edit =. t. COLOR SCHEME 2
STORE «* ВПЕРЕД» TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11
