lign="justify"> SIZE 1,18 WHEN edit =. t. COLOR SCHEME 2
STORE «* Паспортні дані: __________» TO MPROMPTS
@ 8,0 GET pass FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 8,30 GET passport PICTURE «серія: XXXXXXX-XX номер # # # # # #» ;
SIZE 1,29 WHEN edit =. t. COLOR SCHEME 2
@ 9,30 GET conscript SIZE 1,20 WHEN edit =. t. COLOR SCHEME 2
@ 10,30 GET milit_rank SIZE 1,20 WHEN edit =. t. COLOR SCHEME 2
@ 11,30 GET number SIZE 1,12 WHEN edit =. t. COLOR SCHEME 2
@ 12,30 GET mil_ticket PICTURE «серія: XXX номер # # # # # # #» ;
SIZE 1,23 WHEN edit =. t. COLOR SCHEME 2
@ 13,30 GET mil_valid SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 14,30 GET attitude SIZE 1,47 WHEN edit =. t. COLOR SCHEME 2
@ 15,30 GET mobile_ins VALID mobile_ins=«д» OR mobile_ins=«Д» ;
OR mobile_ins="н" OR mobile_ins=«Н» ;
ERROR «Тільки [Д] а або [Н] ет» SIZE 1,1 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 CYCLE
RETURN.PRGedit
ACTIVATE WINDOW win1
CLEAR=5=5=5=5=5=5=5=5=5=5
@ 1,1 SAY «Група обліку: ________________»
@ 2,1 SAY «Категорія обліку: _____________»
@ 3,1 SAY «Райвійськкомат: ________________»
@ 4,1 SAY «Дата початку строкової служби: __»
@ 5,1 SAY «Дата закінчення строкового. служби:"
@ 6,1 SAY «Дата остан. прохожд. мед. ком:"
@ 7,30 SAY record_num COLOR SCHEME 2
@ 8,30 SAY purpos_num COLOR SCHEME 2
@ 9,30 SAY qual_num COLOR SCHEME 2
@ 10,1 SAY «Установа: __________________»
@ 11,1 SAY «Підрозділ: _______________»
@ 12,1 SAY «Поточна посаду: ___________»
@ 13,1 SAY «Дата прийому на роботу: _______»
@ 14,1 SAY «Дата закінчення випробувальний. терміну: _"
@ 15,30 SAY trial_num COLOR SCHEME 2
