exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11CYCLE.PRGeditWINDOW win1=5=5=5=5=5=5=5
qualcateg=5
tripsbus=5
holid=5
@ 1,1 SAY Пенсіонер?: __________________
@ 2,1 SAY Учасник війни?: _____________
@ 3,1 SAY Домашній індекс: _____________
@ 4,1 SAY Район: _______________________
@ 5,1 SAY Область: _____________________
@ 6,1 SAY Домашня адреса: ______________
@ 7,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 BOX6 TO pensioner,; _war, post_index, region, area, address, telephone, ;,passport,conscript,milit_rank,number,mil_ticket,;_valid,attitude,mobile_ins,up,down,next,previos,find,print,exit
@ 1,30 GET pensioner VALID pensioner= д OR pensioner= Д OR;= н OR pensioner= Н ERROR Тільки [Д] а чи [Н] ет ;
SIZE 1,1 WHEN edit=.t. COLOR SCHEME 2
@ 2,30 GET partic_war VALID partic_war= д OR partic_war= Д OR; _war= н OR partic_war= Н ERROR Тільки [Д] а чи [Н] ет ; 1,1 WHEN edit=.t. COLOR SCHEME 2
@ 3,30 GET post_index SIZE 1,6 WHEN edit=.t. COLOR SCHEME 2
@ 4,30 GET region SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2
@ 5,30 GET area SIZE 1,40 WHEN edit=.t. COLOR SCHEME 2
@ 6,30 GET address SIZE 1,40 WHEN edit=.t. COLOR SCHEME 2
@ 7,30 GET telephone PICTURE ### - ## - ## код: ### ; 1,18 WHEN edit=.t. COLOR SCHEME 2 * Паспортні дані: __________ TO MPROMPTS
@ 8,0 GET pass FUNCTION MPROMPTS SIZE 1, 30 COLOR SCHEME 11
@ 8,30 GET passport PICTURE серія: XXXXXXX-XX номер ###### ; 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 номер ####### ; 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= Д ; mobile_ins= н OR mobile_ins= Н ;
ERROR Тільки [Д] а чи [Н] ет SIZE 1,1 WHEN edit=.t. ;
COLOR SCHEME 2 * ВПЕРЕД TO MPROMPTS
@ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11 * НАЗАД TO MPROMPTS
@ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11 * НАСТУПНА TO MPROMPTS
@ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ПОПЕРЕДНЯ TO MPROMPTS
@ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ШУКАТИ TO MPROMPTS
@ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11 * ДРУК TO MPROMPTS
@ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11 * ВИХІД TO MPROMPTS
@ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11CYCLE.PRGeditWINDOW win1=5=5=5=5=5=5=5
qualcateg=5
tripsbus=5
holid=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