рЕУМХВЕЯЙХЕ УЮПЮЙРЕПХЯРХЙХ ДХЯОКЕЕБ (ПЮГПЕЬЮЧЫЮЪ ЯОНЯНАМНЯРЭ, ЪПЙНЯРЭ, ЙНМРПЮЯРМНЯРЭ, ВЮЯРНРЮ ЙЮДПНБНИ ПЮГБЕПРЙХ) Б РНЛ ЯКСВЮЕ, ЕЯКХ МЮ МХУ МЕ НАПЮЫЮЧР БМХЛЮМХЪ ОПХ БШАНПЕ СЯРПНИЯРБЮ ХКХ МЕОПЮБХКЭМН СЯРЮМЮБКХБЮЧР, ЛНЦСР ЙПЮИМЕ НРПХЖЮРЕКЭМН ЯЙЮГЮРЭЯЪ МЮ ГПЕМХХ.
вРН ЙЮЯЮЕРЯЪ ДПСЦХУ ТСМЙЖХНМЮКЭМШУ МЮПСЬЕМХИ, РН РЕ ХГ МХУ, ЙНРНПШЕ ЯБЪГЮМШ ЯН ЯЙЕКЕРНЛ ВЕКНБЕЙЮ, НАСЯКНБКЕМШ ДКХРЕКЭМШЛХ ЯРЮРХВЕЯЙХЛХ МЮЦПСГЙЮЛХ, БШГБЮММШЛХ ОКНУНИ НПЦЮМХГЮЖХЕИ ПЮАНВЕЦН ЛЕЯРЮ ОНКЭГНБЮРЕКЪ: МЕСДНАМНИ ХКХ МЕОНДУНДЪЫЕИ ОН ПЮГЛЕПЮЛ ЛЕАЕКЭЧ, МЕСДНАМШЛ БГЮХЛМШЛ ПЮЯОНКНФЕМХЕЛ ЙНЛОНМЕМРНБ ЯХЯРЕЛШ ОЕПЯНМЮКЭМНЦН ЙНЛОЭЧРЕПЮ ХКХ НРЯСРЯРБХЕЛ ДНЯРЮРНВМНЦН ДКЪ ЯБНАНДМШУ ДБХФЕМХИ Х ЯЛЕМШ ОНГШ ЛЕЯРЮ. мЕСДЮВМЮЪ НПЦЮМХГЮЖХЪ ЙКЮБХЮРСПШ, КХАН МЕСДНАМЮЪ ЙНМЯРПСЙЖХЪ ЛШЬХ ЯОНЯНАМШ БШГБЮРЭ “МЮЙЮОКХБЮМХЕ” ГЮАНКЕБЮМХИ ЯСУНФХКХИ, ЛШЬЖ Х МЕПБМШУ НЙНМВЮМХИ. йПНЛЕ РНЦН, БНГМХЙМНБЕМХЕ АНКЕГМЕИ ЯОХМШ, ЬЕХ Х ПСЙ ЯОЕЖХЮКХЯРШ НАЗЪЯМЪЧР РЕЛ, ВРН ОПХ ПЮАНРЕ Я ЙКЮБХЮРСПНИ ЙНЛОЭЧРЕПЮ ОНКЭГНБЮРЕКХ Я БШЯНЙНИ ЯЙНПНЯРЭЧ ОНБРНПЪЧР НДМХ Х РЕ ФЕ ДБХФЕМХЪ (РХОЮ АШЯРПШУ МЮФЮРХИ ЙКЮБХЬ, ОЕПЕЛЕЫЕМХЪ ЛШЬХ, МЮЙКНМНБ Х ОНБНПНРНБ ЦНКНБШ Х Р.О.). йЮФДНЕ МЮФЮРХЕ МЮ ЙКЮБХЬС, ЕЯРЕЯРБЕММН, ЯНОПЪФЕМН Я ЛМНФЕЯРБЕММШЛ ЯНЙПЮЫЕМХЕЛ ЛШЬЖ, ОЕПЕЛЕЫЕМХЕЛ ЯСУНФХКХИ БДНКЭ ЙНЯРЕИ Х ЯНОПХЙНЯМНБЕМХЪЛХ ХУ Я БМСРПЕММХЛХ РЙЮМЪЛХ. б ХРНЦЕ ХГ-ГЮ ВПЕГЛЕПМНИ МЮОПЪФЕММНЯРХ ПЮАНРШ ХКХ СБКЕВЕММНЯРХ ЕЧ ЛНЦСР ПЮГБХБЮРЭЯЪ АНКЕГМЕММШЕ Х БНЯОЮКХРЕКЭМШЕ ОПНЖЕЯЯШ.
йНФМШЕ ГЮАНКЕБЮМХЪ (КХЖЮ) ЯБЪГЮМШ Б НЯМНБМНЛ Я РЕЛ, ВРН МЮЩКЕЙРПХГНБЮММШИ ЩЙПЮМ ДХЯОКЕЪ ОПХРЪЦХБЮЕР ВЮЯРХЖШ БГБЕЬЕММНИ Б БНГДСУЕ ОШКХ, РЮЙ ВРН БАКХГХ МЕЦН “ЙЮВЕЯРБН” БНГДСУЮ СУСДЬЮЕРЯЪ Х НОЕПЮРНП БШМСФДЕМ ПЮАНРЮРЭ Б АНКЕЕ ГЮОШКЕММНИ ЮРЛНЯТЕПЕ.
мЮ НЯМНБЕ ЯЙЮГЮММНЦН ЛНФМН ЯТНПЛСКХПНБЮРЭ НОПЕДЕКЕММШЕ ПЕЙНЛЕМДЮЖХХ ДКЪ ОНКЭГНБЮРЕКЕИ ОЕПЯНМЮКЭМШУ ЙНЛОЭЧРЕПНБ Я РНВЙХ ГПЕМХЪ НУПЮМШ ХУ РПСДЮ. б ОПХМЖХОЕ, НЯМНБМНИ ОНДУНД Й ПЕЬЕМХЧ ОПНАКЕЛ РЮЙНЦН ПНДЮ ЯБНДХРЯЪ Й СЯРЮМНБКЕМХЧ ЯРПНЦНЦН ЙНМРПНКЪ ГЮ ЯННРБЕРЯРБХЕЛ ЮООЮПЮРМШУ Х ОПНЦПЮЛЛМШУ ЯПЕДЯРБ, Ю РЮЙФЕ СЯКНБХИ ХУ ЩЙЯОКСЮРЮЖХХ ЩПЦНМНЛХВЕЯЙХЛ РПЕАНБЮМХЪЛ. оПХБЕДЕЛ МЕЙНРНПШЕ ХГ МХУ:
· ЯНАКЧДЕМХЕ НЦПЮМХВЕМХИ ОН ЛЕДХЖХМЯЙХЛ ОНЙЮГЮМХЪЛ;
· БМХЛЮРЕКЭМНЕ НРМНЬЕМХЕ Й УЮПЮЙРЕПХЯРХЙЮЛ ДХЯОКЕЕБ;
· ОПЮБХКЭМЮЪ НПЦЮМХГЮЖХЪ ПЮАНВЕЦН ЛЕЯРЮ НОЕПЮРНПЮ;
· ОПЮБХКЭМЮЪ НПЦЮМХГЮЖХЪ ПЮАНВЕЦН БПЕЛЕМХ НОЕПЮРНПЮ.
пЮЯЯЛЮРПХБЮЪ ОНДПНАМН ЙЮФДСЧ ХГ МХУ, ЛНФМН ОПХБЕЯРХ ПЕЙНЛЕМДЮЖХХ ВЮЯРМНЦН УЮПЮЙРЕПЮ:
· МЕНАУНДХЛН ЯНАКЧДЮРЭ НЦПЮМХВЕМХЪ МЮ ПЮАНРС Я ОЕПЯНМЮКЭМШЛХ ЙНЛОЭЧРЕПЮЛХ ДКЪ ЯКСФЮЫХУ, ЯРПЮДЮЧЫХУ ГЮАНКЕБЮМХЪЛХ НОНПМН-ДБХЦЮРЕКЭМНЦН ЮООЮПЮРЮ, ЦКЮГ, ЙНФХ, Ю РЮЙФЕ ДКЪ АЕПЕЛЕММШУ ФЕМЫХМ;
· ОПЕДОНВРХРЕКЭМЕЕ ХЯОНКЭГНБЮРЭ ДХЯОКЕХ Я БШЯНЙНИ ПЮГПЕЬЮЧЫЕИ ЯОНЯНАМНЯРЭЧ Х ПЮГЛЕПНЛ ЩЙПЮМЮ МЕ ЛЕМЕЕ 14” (Hi-Resolution, Non-Interlaced, Low-Radiation);
· КСВЬЕ БШАХПЮРЭ БХДЕНЮДЮОРЕПШ Я БШЯНЙХЛ ПЮГПЕЬЕМХЕЛ Х ВЮЯРНРНИ ЙЮДПНБНИ ПЮГБЕПРЙХ МЕ ЛЕМЕЕ 70-72цЖ;
· НАЪГЮРЕКЭМН ЯРЮБХРЭ МЮ ДХЯОКЕХ ЩЙПЮММШЕ ТХКЭРПШ Я ЮМРХЯРЮРХВЕЯЙХЛ ОНЙПШРХЕЛ, Б МЕЯЙНКЭЙН ПЮГ ЯМХФЮЧЫХЕ СРНЛКЪЕЛНЯРЭ ЦКЮГ Х ЙНМЖЕМРПЮЖХЧ ОШКЕБШУ ВЮЯРХЖ Б АКХГХ ЩЙПЮМЮ ЛНМХРНПЮ;
· ЯХДЕРЭ МЕ АКХФЕ 70 ЯЛ НР ДХЯОКЕЪ;
· ЩЙПЮМ ДХЯОКЕЪ ДНКФЕМ АШРЭ НПХЕМРХПНБЮМ РЮЙХЛ НАПЮГНЛ, ВРНАШ ХЯЙКЧВХРЭ АКХЙХ НР ХЯРНВМХЙНБ ЯБЕРЮ;
· МЕ ЯКЕДСЕР ПЮЯОНКЮЦЮРЭ ДХЯОКЕИ МЕОНЯПЕДЯРБЕММН ОНД ХЯРНВМХЙНЛ НЯБЕЫЕМХЪ ХКХ БОКНРМСЧ Я МХЛ;
· ФЕКЮРЕКЭМН, ВРНАШ НЯБЕЫЕММНЯРЭ ПЮАНВЕЦН ЛЕЯРЮ НОЕПЮРНПЮ МЕ ОПЕБШЬЮКЮ 2/3 МНПЛЮКЭМНИ НЯБЕЫЕММНЯРХ ОНЛЕЫЕМХЪ;
· ЯРЕМЮ ОНГЮДХ ДХЯОКЕЪ ДНКФМЮ АШРЭ НЯБЕЫЕМЮ ОПХЛЕПМН РЮЙ ФЕ, ЙЮЙ ЕЦН ЩЙПЮМ;
· ОПХ ПЮГЛЕЫЕМХХ Б НДМНИ ЙНЛМЮРЕ МЕЯЙНКЭЙХУ ОЕПЯНМЮКЭМШУ ЙНЛОЭЧРЕПНБ ПЮЯЯРНЪМХЕ НР ПЮАНВЕЦН ЛЕЯРЮ ЙЮФДНЦН НОЕПЮРНПЮ ДН ГЮДМХУ Х АНЙНБШУ ЯРЕМНЙ ЯНЯЕДМХУ ОЕПЯНМЮКЭМШУ ЙНЛОЭЧРЕПНБ ДНКФМН ЯНЯРЮБКЪРЭ МЕ ЛЕМЕЕ 1.2Л;
· ПЮАНВЕЕ ЛЕЯРН ДНКФМН АШРЭ НАНПСДНБЮМН РЮЙ, ВРНАШ ХЯЙКЧВХРЭ МЕСДНАМШЕ ОНГШ Х ДКХРЕКЭМШЕ ЯРЮРХВЕЯЙХЕ МЮОПЪФЕМХЪ РЕКЮ;
· НАЫЕЕ БПЕЛЪ ПЮАНРШ Я ДХЯОКЕЕЛ МЕ ДНКФМН ОПЕБШЬЮРЭ 50% БЯЕЦН ПЮАНВЕЦН БПЕЛЕМХ НОЕПЮРНПЮ;
· МЕ ЯКЕДСЕР ОПЕБШЬЮРЭ РЕЛО ПЮАНРШ ОНПЪДЙЮ 10 РШЯЪВ МЮФЮРХИ ЙКЮБХЬ Б ВЮЯ (ОПХЛЕПМН 1500 ЯКНБ);
· ОПХ НАШВМНИ ПЮАНРЕ Я ЙНЛОЭЧРЕПНЛ МЕНАУНДХЛН ДЕКЮРЭ 15-ЛХМСРМШЕ ОЕПЕПШБШ ВЕПЕГ ЙЮФДШЕ 2 ВЮЯЮ, Ю ОПХ ХМРЕМЯХБМНИ ПЮАНРЕ - ВЕПЕГ ЙЮФДШИ ВЮЯ.
оНЛХЛН АЕГНОЮЯМНЯРХ ОНКЭГНБЮРЕКЪ, МЕНАУНДХЛН ЯЙЮГЮРЭ МЕЯЙНКЭЙН ЯКНБ Х Н АЕГНОЮЯМНЯРХ ЙНЛОЭЧРЕПЮ Х, ВРН НЯНАЕММН БЮФМН, АЕГНОЮЯМНЯРХ ДЮММШУ, УПЮМЪЫХУЯЪ Б МЕЛ. ой, ХЯОНКЭГСЕЛШЕ ДКЪ УПЮМЕМХЪ НЯНАН БЮФМНИ ХМТНПЛЮЖХХ МЕНАУНДХЛН НАНПСДНБЮРЭ СЯРПНИЯРБЮЛХ АЕЯОЕПЕАНИМНЦН ОХРЮМХЪ, ОНДДЕПФХБЮЧЫХЛХ ОХРЮЧЫЕЕ МЮОПЪФЕМХЕ Б РЕВЕМХЕ МЕЙНРНПНЦН БПЕЛЕМХ ОПХ ЮБЮПХИМШУ ЯХРСЮЖХЪУ Б ЩКЕЙРПХВЕЯЙНИ ЯЕРХ.
мЕКЭГЪ ГЮЦНПЮФХБЮРЭ ГЮДМЧЧ ЯРЕМЙС ЯХЯРЕЛМНЦН АКНЙЮ ХКХ ЯРЮБХРЭ ОЕПЯНМЮКЭМШИ ЙНЛОЭЧРЕП БОКНРМСЧ Й ЯРЕМЕ - ЩРН ОПХБНДХР Й “РЪФЕКНЛС” ПЕФХЛС НУКЮФДЕМХЪ ЯХЯРЕЛМНЦН АКНЙЮ Х ЕЦН ОЕПЕЦПЕБС. рН ФЕ ЯЮЛНЕ НРМНЯХРЯЪ Й ДХЯОКЕЧ - МЕКЭГЪ ЙКЮЯРЭ МЮ МЕЦН АСЛЮЦХ, ЙМХЦХ Х БННАЫЕ БЯЕ, ВРН ЛНФЕР ГЮЙПШРЭ ЕЦН БЕМРХКЪЖХНММШЕ НРБЕПЯРХЪ. оШКЭ Х ЩКЕЙРПНМХЙЮ ОКНУН ЯНБЛЕЯРХЛШ ДПСЦ Я ДПСЦНЛ, ОНЩРНЛС МЕНАУНДХЛН ОНДДЕПФХБЮРЭ Б ОНЛЕЫЕМХХ ОПХЕЛКЕЛШИ ОШКЕБНИ ПЕФХЛ.
б ОПНЖЕЯЯЕ ПЮАНРШ МЮД ДХОКНЛМШЛ ОПНЕЙРНЛ АШК ЯНГДЮМ ЙНЛОКЕЙЯ ОПНЦПЮЛЛМШУ ЯПЕДЯРБ ДКЪ НАЕЯОЕВЕМХЪ ПЮАНРШ ОСМЙРЮ НАЛЕМЮ БЮКЧРШ АЮМЙЮ. йПНЛЕ РНЦН АШКЮ ПЮГПЮАНРЮМЮ ЙНМЖЕОЖХЪ ОПНЕЙРХПНБЮМХЪ ХМТНПЛЮЖХНММН - ЯОПЮБНВМШУ ЯХЯРЕЛ Я ОПХЛЕМЕМХЕЛ ТСМЙЖХИ ЩЙПЮММНЦН ХМРЕПТЕИЯЮ, ПЮГПЮАНРЮММШУ Б ПЮЛЙЮУ ДХОКНЛМНЦН ОПНЕЙРЮ. оПХЛЕМЕМХЕ ЯОЕЖХЮКХГХПНБЮММШУ ТСМЙЖХИ ОНГБНКХКН ЯНЙПЮРХРЭ БПЕЛЪ ПЮГПЮАНРЙХ НЯМНБМНЦН ЛНДСКЪ ОПНЦПЮЛЛШ Х НАЕЯОЕВХКН БШЯБНАНФДЕМХЕ БПЕЛЕМХ МЮ ЯНГДЮМХЕ ОПНЖЕДСП НАПЮАНРЙХ ДЮММШУ. б ДХОКНЛМНЛ ОПНЕЙРЕ ОПЕДЯРЮБКЕМ НДХМ ХГ ЛМНФЕЯРБЮ ОНДУНДНБ Й ОПНЕЙРХПНБЮМХЧ ОПНЦПЮЛЛМНЦН НАЕЯОЕВЕМХЪ ХМТНПЛЮЖХНММНЦН ОКЮМЮ, ДЮЧЫХИ БНГЛНФМНЯРЭ МЮ ПЮММХУ ЩРЮОЮУ ПЮГПЮАНРЙХ СВЕЯРЭ БЯЕ МЧЮМЯШ АСДСЫЕИ ОПНЦПЮЛЛШ, МЕНАУНДХЛШИ МЮАНП ТСМЙЖХИ, ЯНЯРЮБ Х ЯРПСЙРСПС АЮГ ДЮММШУ, ВРН Б ДЮКЭМЕИЬЕЛ ХЯЙКЧВЮЕР МЕНАУНДХЛНЯРЭ ОЕПЕПЮАНРЙХ СФЕ МЮОХЯЮММШУ ЙНЛОНМЕМРНБ ОПНЦПЮЛЛШ.
йПНЛЕ РНЦН Б ОПНЖЕЯЯЕ ПЮАНРШ АШКХ ОНДЦНРНБКЕМШ ПЕЙНЛЕМДЮЖХХ ОН НАНПСДНБЮМХЧ ПЮАНВЕЦН ЛЕЯРЮ НОЕПЮРНПЮ щбл, ЯНАКЧДЕМХЧ МНПЛ Х ОПЮБХК ра ОПХ ПЮАНРЕ МЮ ОЕПЯНМЮКЭМШУ щбл, ОНДЯВХРЮМШ ЩЙНМНЛХВЕЯЙХЕ УЮПЮЙРЕПХЯРХЙХ ПЮГПЮАНРЙХ.
дЮММНЕ ОПНЦПЮЛЛМНЕ НАЕЯОЕВЕМХЕ МЮУНДХРЯЪ Б ЯРЮДХХ БМЕДПЕМХЪ Б РЕУМНКНЦХВЕЯЙХИ ОПНЖЕЯЯ ПЮАНРШ НДМНЦН ХГ ТХМЮМЯНБШУ СВПЕФДЕМХИ ЦНПНДЮ.
оЮПЮЛЕРПШ:
ЙННПДХМЮРШ КЕБНЦН БЕПУМЕЦН Х ОПЮБНЦН МХФМЕЦН СЦКЮ НЙМЮ,
[ЯРПНЙЮ ЯХЛБНКНБ НАПЮЛКЕМХЪ]
Function _OPEN_T
parameters Y1,X1,Y2,X2,SBOX
private XT1,XT2,XK2,SBOX
SBOX=iif(empty(SBOX).and.SBOX<>space(9),"ИЎЫҐШЎКҐ ",SBOX)
XT1=iif(X1+2>79,79,X1+2)
XT2=iif(X2+2>79,79,X2+2)
XK2=iif(X2+1>79,79,X2+1)
@ Y1,X1,Y2,X2 BOX SBOX
shadow(Y2+1,XT1,Y2+1,XT2,0)
shadow(Y1+1,XK2,Y2+1,XT2,0)
return 0
оЮПЮЛЕРПШ:
ЙННПДХМЮРШ КЕБНЦН БЕПУМЕЦН Х ОПЮБНЦН МХФМЕЦН СЦКЮ НЙМЮ,
[ЯРПНЙЮ ЯХЛБНКНБ НАПЮЛКЕМХЪ],[ЯРПНЙЮ СЯРЮМНБЙХ ЖБЕРЮ]
Function _OPEN_N
parameters Y1,X1,Y2,X2,S1,COLOR
local CL,XT,YT,XC,YC
if pcount()=4
COLOR=setcolor()
S1=""
elseif pcount()=5
COLOR=setcolor()
endif
YC=Y1+int((Y2-Y1)/2)
XC=X1+int((X2-X1)/2)
CL=setcolor()
if Y2-Y1 >= 2
YC1=YC
YC2=YC
XT=XC
setcolor(COLOR)
do while .T.
_open_t(YC1,XT,YC2,2*XC-XT,S1)
YC1=iif(YC1-2<Y1,Y1,YC1-2)
YC2=iif(YC2+2>Y2,Y2,YC2+2)
if XT=X1
exit
endif
XT=iif(XT-3<X1,X1,XT-3)
inkey()
enddo
if YC1<>Y1
YT=YC1
do while .T.
_open_t(YT,X1,2*YC-YT,X2,S1)
if YT=Y1
exit
endif
YT=iif(YT-2<Y1,Y1,YT-2)
inkey()
enddo
endif
endif
_open_t(Y1,X1,Y2,X2,S1)
setcolor(CL)
return 0
оЮПЮЛЕРПШ:
ЙННПДХМЮРШ КЕБНЦН БЕПУМЕЦН СЦКЮ НЙМЮ,
ЯРПНЙЮ ЯННАЫЕМХЪ 1, ЯРПНЙЮ ЯННАЫЕМХЪ 2, ЯРПНЙЮ ЯННАЫЕМХЪ 3,
ЯРПНЙЮ БШАНПЮ 1, ЯРПНЙЮ БШАНПЮ 2, ЯРПНЙЮ БШАНПЮ 3,
ЯРПНЙЮ ЯХЛБНКНБ НАПЮЛКЕМХЪ.
Function _ERR
parameters Y1,X1,S1,S2,S3,M1,M2,M3,SB
private CLR,STATS,Y1,X1,S1,S2,S3,M1,M2,M3,SB,STAT,KL1,MM1,MM2
save screen
CLR=setcolor()
STATS=csetall()
if pcount()=8
SB=""
endif
Y2=Y1+iif(empty(S2),5,iif(empty(S3),6,7))
X2=X1+max(len(S1),max(len(S2),max(len(S3),max(len(M1)+len(M2)+;
len(M3)+5,31))))+4
setcolor(At_E_F)
_open_n(Y1,X1,Y2,X2,SB)
@ Y2-3,X1 SAY "|"+replicate("=",X2-X1-1)+"|"
setcolor(At_E_N)
@ Y1+1,X1+((X2-X1)-len(alltrim(S1)))/2 SAY alltrim(S1)
if .not.empty(S2)
@ Y1+2,X1+((X2-X1)-len(alltrim(S2)))/2 SAY alltrim(S2)
if .not.empty(S3)
@ Y1+3,X1+((X2-X1)-len(alltrim(S3)))/2 SAY alltrim(S3)
endif
endif
if empty(M1)
setcolor(At_E_S)
@ Y2-2,X1+(X2-X1-31)/2 SAY " мЮФЛХРЕ Enter ДКЪ ОПНДНКФЕМХЪ "
setcolor("N"+substr(AT_E_F,at("/",AT_E_F)))
@ Y2-1,X1+(X2-X1-31)/2+1 SAY "-------------------------------"
@ Y2-2,X1+(X2-X1-31)/2+31 SAY "-"
L_showcurs()
KL1=0
do while .T.
KL1=inkey()
STAT=L_getmstat()
if KL1<>0.or.STAT<>0
exit
endif
enddo
L_hidecurs()
restore screen
csetall(STATS)
setcolor(CLR)
return 0
elseif empty(M3).and..not.empty(M2)
declare MM1[2],MM2[2]
MM1[1]=M1
MM1[2]=M2
XX=X1+int((X2-X1-len(M1+M2)-1)/2)
MM2[1]=XX
MM2[2]=XX+len(M1)+1
do while .T.
MM=1
MM=selopt(MM,MM1,MM2,"",Y2-2,.F.,.F.,At_E_S,At_E_U,At_E_F)
if MM<>0
restore screen
csetall(STATS)
setcolor(CLR)
return MM
endif
enddo
elseif .not.empty(M1).and..not.empty(M2).and..not.empty(M3)
declare MM1[3],MM2[3]
MM1[1]=M1
MM1[2]=M2
MM1[3]=M3
XX=X1+int((X2-X1-len(M1+M2+M3)-2)/2)
MM2[1]=XX
MM2[2]=XX+len(M1)+1
MM2[3]=XX+len(M1+M2)+2
do while .T.
MM=1
MM=selopt(MM,MM1,MM2,"",Y2-2,.F.,.F.,At_E_S,At_E_U,At_E_F)
if MM<>0
restore screen
csetall(STATS)
setcolor(CLR)
return MM
endif
enddo
endif
csetall(STATS)
setcolor(CLR)
return 0
Function _LIN
parameters YCOR,XCOR,LENG,LMAX,LUSE
private YCOR,XCOR,LENG,LMAX,LUSE,STATS,RW,CL
STATS=csetall()
RW=row()
CL=col()
LMAX=iif(LMAX<=0,1,LMAX)
XUSE=int((LENG/LMAX)*LUSE)+XCOR
CLR=setcolor(AT_S_U)
@ YCOR,XCOR,YCOR,XUSE BOX "---------"
setcolor(AT_S_S)
if XUSE<LENG
@ YCOR,XUSE+1,YCOR,XCOR+LENG BOX "---------"
endif
csetall(STATS)
setcolor(CLR)
@ RW,CL SAY ""
return 0
Function POPMENU
parameters Y1,X1,Y2,X2,OPT,OFFS,COLORF
private Y1,X1,Y2,X2,OPT,OFFS,COLORF,I,CLR
L_hidecurs()
CLR=setcolor(COLORF)
@ Y1,X1 SAY "-"+repl("-",OFFS-1)
@ Y1,X1+OFFS+len(OPT) SAY repl("-",X2-X1-OFFS-len(OPT))+"╛"
shadow(Y1+1,X2+1,Y1+1,X2+2,SHC)
_open_t(Y1+1,X1,Y2,X2,"і іі--Lі ")
setcolor(CLR)
L_showcurs()
return 0
Function _NORT
static NORTSCR
parameters BINSTR,NUM
private CL,ROW,COL