"justify"> 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,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 pensioner,;
partic_war, post_index, region, area, address, telephone,;
pass, passport, conscript, milit_rank, number, mil_ticket,;
mil_valid, attitude, mobile_ins, up, down, next, previos, find, print, exit
@ 1,30 GET pensioner VALID pensioner=«д» OR pensioner=«Д» OR;
pensioner="н" OR pensioner=«Н» ERROR «Тільки [Д] а або [Н] ет» ;
SIZE 1,1 WHEN edit =. t. COLOR SCHEME 2
@ 2,30 GET partic_war VALID partic_war=«д» OR partic_war=«Д» OR;
partic_war="н" OR partic_war=«Н» ERROR «Тільки [Д] а або [Н] ет» ;
SIZE 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 «# # # - # # - # # код: # # #» ;
