lcFile = 'MyPrg.prg'
StrToFile(CPconvert( 866 ,  1251 , FileToStr(lcFile)), lcFile)

MODIFY COMMAND MyPrg.prg AS  866 

MODIFY COMMAND MyPrg.prg AS  866 

clear all
close all
clear
@  24 , 0  say ''
run date
clear all
close all
CLEAR
public mkey,regim,zadach,mes,MUL,MDOM,max_p,mpath
mpath='F:\PRO'
set default to &mpath
set decimals to  2 
set scoreboard off
* set step on
set date british
set delete off
set echo off
set talk off
set escape off
SET HOURS TO  24 
SET OPTIMIZE ON
SET STATUS OFF
SET cursor off
set bell on
SET CENTURY ON
push key clear
mkey=''
dimension mes[ 12 ]
store 'Январь' to mes[ 1 ]
store 'Февраль' to mes[ 2 ]
store 'Март  ' to mes[ 3 ]
store 'Апрель' to mes[ 4 ]
store 'Май   ' to mes[ 5 ]
store 'Июнь  ' to mes[ 6 ]
store 'Июль  ' to mes[ 7 ]
store 'Август' to mes[ 8 ]
store 'Сентябрь' to mes[ 9 ]
store 'Октябрь ' to mes[ 10 ]
store 'Ноябрь  ' to mes[ 11 ]
store 'Декабрь ' to mes[ 12 ]
app= 0 
PUBLIC MPOKAZSET
* set step on
mkodd=space( 8 )
*DEFINE WINDOW w4 FROM  1 ,  1  TO  4 ,  50  TITLE "KAЛЬКУЛЯТОР" 
*оN KEY LABEL F1 do calku with  0 
key= 0  
a= 1 
select  1  
use sab shar
 IF FILE('UUDK.IDX')
    DELETE FILE UUDK.IDX
 ENDIF
 IF FILE('UDK.IDX')
    DELETE FILE UDK.IDX
 ENDIF
 IF FILE('LSOLD.IDX')
    DELETE FILE LSOLD.IDX
 ENDIF
 index on lsnew to uudk
 index on substr(lsnew, 2 ) to udk
 index on lsold to lsold
use sab index uudk,udk,lsOLD alias ab excl
reindex
* sele  20 
* use seans alias sssss
* go bottom
* If eof()
*  mseans= 0 
* else 
*  mseans=sssss.seans+ 1 
* endif
* append blank
* replace seans with mseans,dvkl with date(),tvkl with time()
* sele  21 
* use sabmod
sele  1 
* do while !eof()
*   sele  21 
*   append blank
*   replace seans with sssss.seans, ;
*           lsnew with a.lsnew, ;
*           lsold with a.lsold, ;
*           fio with a.fio, ;
*           m2 with a.m2, ;
*           kg with a.kg, ;
*           lgota with a.lgota, ;
*           gw with a.gw, ;
*           sal_h with a.sal_h, ;
*           rgw with a.rgw, ;
*           rotp with a.rotp, ;
*           ropl with a.ropl, ;
*           lscls with a.lscls
*           sele  1 
*           skip
* enddo
* sele  20 
* use
* sele  21 
* use
select  2 
  use sprul 
IF FILE('SPRUL.IDX')
   DELETE FILE SPRUL.IDX
ENDIF

index on str(kod, 2 ) to sprul
  use sprul index sprul alias ul excl
  reindex

sele  3 
use tarif 
IF FILE('TARIF.IDX')
   DELETE FILE TARIF.IDX
ENDIF
index on dtoc(data, 1 ) to tarif
use tarif index tarif excl

sele  4 
use lgot excl
IF FILE('LGOT.IDX')
   DELETE FILE LGOT.IDX
ENDIF
index on kod to lgot
use lgot index lgot excl

sele  5 
use akt  excl
if file('akt.idx')
 delete file akt.Idx
endif
index on str(akt, 4 )+dtoc(dat, 1 ) to akt
use akt index akt excl

sele  6 
use arj index ARJ,arjd excl
* use arj 
* index on lsnew+str(d, 7 , 2 ) to arj
* index on str(d, 7 , 2 )+lsnew to arjd
* use arj index ARJ,arjd

sele  7 
use sch excl
IF FILE('SCH.IDX')
   DELETE FILE SCH.IDX
ENDIF
index on ls to sch
use sch index sch excl

sele  8 
use conf excl

sele  9 
USE SPKVT EXCL
if file('spkvt.idx')
 delete file spkvt.idx
endif  
INDEX ON STR(KOD_U, 3 )+LEFT(DOM, 3 )+STR(val(KV), 3 )+' ' TO SPKVT FOR KOD_U> 0 
if file('spkvtJEK.idx')
 delete file spkvtJEK.idx
endif  
INDEX ON JEk+STR(KOD_U, 3 )+LEFT(DOM, 3 )+STR(val(KV), 3 )+' ' TO SPKVTJEK FOR KOD_U> 0 
USE SPKVT INDEX SPKVT,SPKVTJEK EXCL 

sele  10 
use sabls excl
if file('sabls.idx')
   delete file sabls.idx
endif
if file('sablsLg.idx')
   delete file sablsLg.idx
endif
index on lsnew+str(npp, 2 ) to sabls   
index on lsnew+str(npp, 2 ) to sablsLg  for lgota> 0 
use sabls index sabls,SAblsLg alias sabls excl

sele  11 
use klas excl
if file('klas.idx')
   delete file klas.idx
endif
index on str(kod, 3 ) to klas   
use klas index klas alias kl excl

sele  12 
* use sablsA excl
* if file('sablsA.idx')
*    delete file sablsA.idx
* endif
* index on STR(D, 7 , 2 )+lsnew+str(npp, 2 )+str(lgota, 2 ) to sablsA   
use sablsA index sablsA alias sablsA excl
sele  13 
use sablsAKT excl
 if file('sabls00.idx')
    delete file sabls00.idx
 endif
 if file('sablsAK4.idx')
    delete file sablsAK4.idx
 endif
 if file('sablsAK3.idx')
    delete file sablsAK3.idx
 endif
 index on STR(D, 7 , 2 )+lsnew+STR(YYMM, 7 , 2 )+str(npp, 2 ) to sabls00   
 index on lsnew+str(npp, 2 )+STR(AKT, 4 ) to sablsAK4 for d=conf.dt 
 index on LSNEW+STR(AKT, 4 ) to sablsAK3 FOR D=CONF.DT
use sablsAKT index sabls00,sablsAK4,sablsAK3 alias sablsAKT excl

sele  14 
use sloi excl
if file('sloi.idx')
   delete file sloi.idx
endif
index on str(kod, 3 ) to sloi
use sloi index sloi alias sl excl

sele  25 
use schd excl
if file('schd.idx')
   delete file schd.idx
endif
index on schnom to schd   
use schd index schd alias schd excl

if file('r_arj_d.idx')
   delete file r_arj_d.idx
endif
if file('r_arj.dbf')
   delete file r_arj.dbf
endif
if file('r_sab.idx')
   delete file r_sab.idx
endif
if file('r_sab.dbf')
   delete file r_sab.dbf
endif


SELECT  1 
 DEFINE MENU ab BAR AT LINE  1 
 DEFINE PAD spr    OF ab PROMPT '\<Cправочник '  COLOR SCHEME  3  
 DEFINE PAD oper   OF ab PROMPT '\<Операции   '  COLOR SCHEME  3  
 DEFINE PAD subs   OF ab PROMPT '\<Субсидии   '  COLOR SCHEME  3  
 DEFINE PAD doc    OF ab PROMPT '\<Документы  '  COLOR SCHEME  3  
 DEFINE PAD svod   OF ab PROMPT '\<Свод       '  COLOR SCHEME  3  
 DEFINE PAD serv   OF ab PROMPT '\<Сeрвис     '  COLOR SCHEME  3  
 DEFINE PAD ret    OF ab PROMPT '\<Выход      '  COLOR SCHEME  3  

 ON PAD spr     OF ab  ACTIVATE POPUP spr1
 ON PAD oper    OF ab  ACTIVATE POPUP oper1
 ON PAD subs    OF ab  ACTIVATE POPUP subs1
 ON PAD svod    OF ab  ACTIVATE POPUP svod1
 ON PAD doc     OF ab  ACTIVATE POPUP doc1
 ON PAD serv    OF ab  ACTIVATE POPUP serv1
 ON PAD ret     OF ab  ACTIVATE POPUP ret1 

 DEFINE POPUP Spr1      MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF spr1 PROMPT  'Улиц     ' 
 DEFINE BAR  2  OF spr1 PROMPT  'Тарифов  ' 
 DEFINE BAR  3  OF spr1 PROMPT  'Льгот    '
 DEFINE BAR  4  OF spr1 PROMPT  'Абонентов 'skip for conf.men= 1 
 DEFINE BAR  5  OF spr1 PROMPT  'Котельных '
 DEFINE BAR  6  OF spr1 PROMPT  'Жеков '
 DEFINE BAR  7  OF spr1 PROMPT  'Нагрузка по домам '
 DEFINE BAR  8  OF spr1 PROMPT  'Справочник предприятий '
 DEFINE BAR  9  OF spr1 PROMPT  'Справочник групп предприятий '
 DEFINE BAR  10  OF spr1 PROMPT  'Справочник счетчиков (домовых) '
 ON SELECTION POPUP spr1 DO choice WITH POPUP(),BAR()

 DEFINE POPUP subs1      MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF subs1 PROMPT  'Формирование списка' 
 DEFINE BAR  2  OF subs1 PROMPT  'Формирование Лиц.счета'  SKIP
 DEFINE BAR  3  OF subs1 PROMPT  'Ручное формирование субсидий'
 DEFINE BAR  4  OF subs1 PROMPT  'Просмотр полный'
 DEFINE BAR  5  OF subs1 PROMPT  'Просмотр неопред.'
 DEFINE BAR  6  OF subs1 PROMPT  'Печать полный '
 DEFINE BAR  7  OF subs1 PROMPT  'Печать неопределен.'
 DEFINE BAR  8  OF subs1 PROMPT  'Формир.проводок по субс.' SKIP
 DEFINE BAR  9  OF subs1 PROMPT  'Очистить список '
 ON SELECTION POPUP subs1 DO choice WITH POPUP(),BAR()


 DEFINE POPUP oper1      MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1   OF oper1 PROMPT  ' Ввод квитанций ' 
 DEFINE BAR  2   OF oper1 PROMPT  ' Обработка актов '  skip
 DEFINE BAR  3   OF oper1 PROMPT  ' Пункт Приема Платежей '  
 DEFINE BAR  4   OF oper1 PROMPT  ' Начисления     ' 
 DEFINE BAR  5   OF oper1 PROMPT  ' Доначисления Дом ' skip 
 DEFINE BAR  6   OF oper1 PROMPT  ' Формир.сальдо след.мес.'skip for conf.men= 1 
 DEFINE BAR  7   OF oper1 PROMPT  ' Сверка счетчиков' skip
 DEFINE BAR  8   OF oper1 PROMPT  ' Корректировка'    && skip for conf.men= 1 
 DEFINE BAR  9   OF oper1 PROMPT  ' Список предпринимателей'    && skip for conf.men= 1 
 DEFINE BAR  10  OF oper1 PROMPT  ' Формирование задолженности по месяцам'    
 DEFINE BAR  11  OF oper1 PROMPT  ' Акт Отопление (простой)'    
 DEFINE BAR  12  OF oper1 PROMPT  ' Акт Г/В (Простой)'       
 DEFINE BAR  13  OF oper1 PROMPT  ' Акт Отопление (Замер t)' 
 DEFINE BAR  14  OF oper1 PROMPT  ' Акт Г/В (Замер t)'       
 DEFINE BAR  15  OF oper1 PROMPT  ' Акт доначисл. Г/В (Простой)'   
 DEFINE BAR  16  OF oper1 PROMPT  ' Акт доначисл. Отопление (Простой)'     
 DEFINE BAR  17  OF oper1 PROMPT  ' Формирование сальдо по реструктуризации'    
 DEFINE BAR  18  OF oper1 PROMPT  ' Список должников по реструктур.'    
 
 ON SELECTION POPUP oper1 DO choice WITH POPUP(),BAR()

 DEFINE POPUP doc1      MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF doc1 PROMPT  ' Карточка абонента  ' 
 DEFINE BAR  2  OF doc1 PROMPT  ' Оборотная Ведомость' 
 DEFINE BAR  3  OF doc1 PROMPT  ' Ведомость Задолжников' 
 DEFINE BAR  4  OF doc1 PROMPT  ' Ведомость Субсидий ' 
 DEFINE BAR  5  OF doc1 PROMPT  ' Протокол изменений ' 
 DEFINE BAR  6  OF doc1 PROMPT  ' Список льготников ' 
 DEFINE BAR  7  OF doc1 PROMPT  ' Обор.ведом.льготники' 
 DEFINE BAR  8  OF doc1 PROMPT  ' Предупреждения'
 DEFINE BAR  9  OF doc1 PROMPT  ' Список работников ЛТС'
 DEFINE BAR  10  OF doc1 PROMPT  'Списки работников по другим организациям'
 DEFINE BAR  11  OF doc1 PROMPT  'Списки по наториальным надписям'
 DEFINE BAR  12  OF doc1 PROMPT  'Списки по наториальным надписям текущий месяц'
 DEFINE BAR  13  OF doc1 PROMPT  'АНАЛИЗ РАБОТЫ УЧАСТКОВ'
 DEFINE BAR  14  OF doc1 PROMPT  'АНАЛИЗ РАБОТЫ с договорниками'
 DEFINE BAR  15  OF doc1 PROMPT  'Изменение участка'
 DEFINE BAR  16  OF doc1 PROMPT  'Список на ГорГаз(опломбировка)'
 DEFINE BAR  17  OF doc1 PROMPT  'Список на ГорГаз(разпломбировка)'
 DEFINE BAR  18  OF doc1 PROMPT  'Реестр актов Отопление (простой)'
 DEFINE BAR  19  OF doc1 PROMPT  'Реестр актов Г\в (простой)'
 DEFINE BAR  20  OF doc1 PROMPT  'Реестр актов Отопление (Замер t)'
 DEFINE BAR  21  OF doc1 PROMPT  'Реестр актов Г\в (Замер t)'
 DEFINE BAR  22  OF doc1 PROMPT  'Реестр УTСЗН по отопл. '
 DEFINE BAR  23  OF doc1 PROMPT  'Справка о размерах платежей '
 DEFINE BAR  24  OF doc1 PROMPT  '(new) Справка о размерах платежей '
 DEFINE BAR  25  OF doc1 PROMPT  'Реестр УTСЗН по Г\В '
 DEFINE BAR  26  OF doc1 PROMPT  'Реестр актов донач. Отопление (простой)'
 DEFINE BAR  27  OF doc1 PROMPT  'Реестр актов донач. Г\в (простой)'
 DEFINE BAR  28  OF doc1 PROMPT  'Свод по закрытым абонентам с разбивкой'    
 DEFINE BAR  29  OF doc1 PROMPT  'Свод по открытым абонентам с разбивкой'   
 DEFINE BAR  30  OF doc1 PROMPT  'Отчет по слоям населения '   
 DEFINE BAR  31  OF doc1 PROMPT  'Список по текущим платежам 6 участка'   
 ON SELECTION POPUP doc1 DO choice WITH POPUP(),BAR()

 DEFINE POPUP svod1      MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF svod1 PROMPT  ' По Льготникам ' 
 DEFINE BAR  2  OF svod1 PROMPT  ' По Начислению ' 
 DEFINE BAR  3  OF svod1 PROMPT  ' Сводная ведомость по домам '
 DEFINE BAR  4  OF svod1 PROMPT  ' Справка по льготникам ' skip
 DEFINE BAR  5  OF svod1 PROMPT  ' По Оплате ' 
 DEFINE BAR  6  OF svod1 PROMPT  ' Задолженость по участкам ' 
 DEFINE BAR  7  OF svod1 PROMPT  ' Ведомость по котельным ' 
 DEFINE BAR  8  OF svod1 PROMPT  ' Ведомость по жекам ' 
 DEFINE BAR  9  OF svod1 PROMPT  ' Задолж.с разб.по периодам' 
 DEFINE BAR  10  OF svod1 PROMPT  ' Сводная ведомость по улицам' 
 DEFINE BAR  11  OF svod1 PROMPT  ' Сводный реестр по актам' 
 DEFINE BAR  12  OF svod1 PROMPT  ' Сводный реестр квартир, откл.от ЦО,подкл.к ЦО' 
 DEFINE BAR  13  OF svod1 PROMPT  ' Сводный реестр квартир, установивших счетчик Г\в' 
 DEFINE BAR  14  OF svod1 PROMPT  ' Сводный реестр квартир по Лиссоде' 
 ON SELECTION POPUP svod1 DO choice WITH POPUP(),BAR()

 DEFINE POPUP serv1 MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF serv1 PROMPT 'Сохран.в архиве журнала операций '
 DEFINE BAR  2  OF serv1 PROMPT 'Поиск пачки по лиц.счету '
 DEFINE BAR  3  OF serv1 PROMPT 'Переиндексация баз '
 DEFINE BAR  4  OF serv1 PROMPT 'Удержание с З/П 308 вид' skip for conf.men= 1 
 DEFINE BAR  5  OF serv1 PROMPT 'Формирование пачки по удерж. с З/П ' skip for conf.men= 1  
 DEFINE BAR  6  OF serv1 prompt 'Отчет по оплате'  skip for conf.men= 1 
 DEFINE BAR  7  OF serv1 PROMPT 'ФОРМИРОВАНИЕ ПАЧЕК ПО СУБСИДИЯМ ' skip for conf.men= 1 
 DEFINE BAR  8  OF serv1 PROMPT 'ФОРМИРОВАНИЕ ОПЛАТЫ ' skip for conf.men= 1 
 DEFINE BAR  9  OF serv1 PROMPT 'Cписок неопределенных субсидий '
 DEFINE BAR  10  OF serv1 PROMPT 'Cверка лицевых счетов с отделом субсидий'
 DEFINE BAR  11  OF serv1 PROMPT 'Печать списка удерж.с з/п по участкам'
 DEFINE BAR  12  OF serv1 PROMPT 'Список задолжников по домам'
 DEFINE BAR  13  OF serv1 PROMPT 'Печать пачки по оплате'
 DEFINE BAR  14  OF serv1 PROMPT 'Тепловые нагрузки по домам'
 DEFINE BAR  15  OF serv1 PROMPT 'Формирование списков по другим предприятиям'
 DEFINE BAR  16  OF serv1 PROMPT 'Сверка с паспортным столом'
 DEFINE BAR  17  OF serv1 PROMPT 'Миграция населения'
 DEFINE BAR  18  OF serv1 PROMPT 'Формирование отчета для УTСЗН'
 DEFINE BAR  19  OF serv1 PROMPT 'Перенос данных по закл.договорам'
 DEFINE BAR  20  OF serv1 PROMPT 'Перенос данных по слоям'

 ON SELECTION POPUP serv1 DO choice WITH POPUP(),BAR()

 DEFINE POPUP ret1 MARGIN RELATIVE SHADOW COLOR SCHEME  4 
 DEFINE BAR  1  OF ret1 PROMPT '  DOS '
 DEFINE BAR  2  OF ret1 PROMPT 'FOXPRO'
 ON SELECTION POPUP ret1 DO choice WITH POPUP(),BAR()
 
 
DO WHILE a> 0 
 @  0 , 0  clear to  24 , 80  
 @  3 , 0  SAY "     ╔═╦╗ ╔╗    ╔╗ ╔════╗                            ╔════╗ ╔════╗ ╔════╗ ╔╗   " 
 @  4 , 0  SAY "    ╔╣ ║║ ║║   ╔╣║ ║╔══╗║                            ║╔══╗║ ║╔═══╝ ╚═╗╔═╝ ║║   " 
 @  5 , 0  SAY "  ╔╦╩╝ ║║ ║║   ║║║ ║║  ║║                            ║║  ║║ ║║       ║║   ║║   " 
 @  6 , 0  SAY " ╔╬╝   ║║ ║║  ╔╝║║ ║║  ╚╝                            ║║  ╚╝ ║║       ║║   ║║   "    
   @  7 , 0  SAY " ║║    ║║ ║║  ║ ║║ ║║                                ║║     ║║       ║║   ║║   " 
 @  8 , 0  SAY " ║║    ║║ ║║ ╔╝ ║║ ║║                                ║║     ║╠═╗     ║║   ║╚══╗" 
 @  9 , 0  SAY " ║║    ║║ ║║ ║  ║║ ║║                                ║║     ║╠═╝     ║║   ║╔═╗║" 
 @  10 , 0  SAY " ║║    ║║ ║║╔╝  ║║ ║║      ══╦══ ╔══ ╔══╗   ╔╗ ╔══╗  ║║     ║║       ║║   ║║ ║║" 
 @  11 , 0  SAY " ║║    ║║ ║║║   ║║ ║║        ║   ║   ║  ║  ╔╝║ ║  ║  ║║     ║║       ║║   ║║ ║║" 
 @  12 , 0  SAY " ║║    ║║ ║╠╝   ║║ ║║  ╔╗    ║   ╠╣  ║  ║ ╔╝ ║ ║  ║  ║║  ╔╗ ║║       ║║   ║║ ║║" 
 @  13 , 0  SAY " ║║    ║║ ║║    ║║ ║╚══╝║    ║   ║   ║  ║ ║  ║ ║  ║  ║╚══╝║ ║╚═══╗   ║║   ║╚═╝║" 
 @  14 , 0  SAY " ║║    ║║ ║║    ║║ ╚════╝    ║   ╚══ ║  ║ ║  ║ ╚══╝  ╚════╝ ╚════╝   ╚╝   ╚═══╝" 
 @  3 , 27  SAY "АРМ АБОНЕНТСКИЙ ОТДЕЛ" 
 @  4 , 27  SAY "СП Лисичансктеплосеть" 
 @  5 , 27  SAY "                     " 
 @  6 , 27  SAY "по состоянию на "+str(conf.dt, 7 , 2 )
 zadach= 0 
 ACTIVATE MENU ab

 DEACTIVATE MENU ab
 if zadach> 0 
  regim=regim+alltrim(str(zadach, 2 ))
  do &regim
 endif
enddo  
************************* Проверка целосности программного обеспечения
*close all
*clear all
return 
*************
proc ret11
flush
hide POPUP all
hide MENU all
hide WIND all
* activate SCREEN
* clear
* defi wind ZAST from  8 ,  80  to  14 ,  115  nogrow nofloat noclose nozoom;
*      shadow double color N/W,N/W
*      acti wind ZAST
*      m0 = 'СПАСИБО ЗА РАБОТУ!'
*      m1 = 'ВСЕГО  ХОРОШЕГО!'
*      @  1 ,  8  get m0
*      @  3 ,  9  get m1
*clear gets
*   for i =  1  to  60 
*       move wind ZAST by  0 ,- 1 
* endfor
*       s_i = inkey( 0 . 5 )
*sele  1 
*set order to  1 
*sele  20 
*use seans alias sssss
*go bottom
*replace dvikl with date(),tvikl with time()
*mseans=seans
*use
*sele  21 
*use sabmod excl
*if file('sabMod.idx')
*   delete file sabmod.idx
*endif
*index on lsnew to sabmod for seans=mseans   
*
*do while !eof()
*   if seek(lsnew, 1 )
*      replace plsold with a.lsold,;
*           pfio with a.fio,;
*           pm2 with a.m2,;
*           pkg with a.kg,;
*           plgota with a.lgota,;
*           pgw with a.gw,;
*           psal_h with a.sal_h,;
*           prgw with a.rgw,;
*           protp with a.rotp,;
*           propl with a.ropl,;
*           plscls with a.lscls
*           if (plsOld=lsOld) and (pfio=fio) and (pm2=m2) and (pkg=kg) and ;
*              (plgota=lgota) and (pgw=gw) and (psal_h=sal_h) and (prgw=rgw) and ;
*              (protp=rotp) and (propl=ropl) and (plscls=lscls)
*              delete
*           endif
*      endif
*      skip   
*enddo
*pack
QUIT
***********
proc ret12
 RELEASE MENU osmenu EXTENDED
 *SET SYSMENU TO DEFAULT
 ON KEY LABEL ESC
 pop key
 a= 0 
* do restInd with  0 
* close all
return
 
PROCEDURE choice
PARAMETERS mprompt, mpopup
regim=mprompt
zadach=mpopup

MODIFY COMMAND MyProg.prg AS  866