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