Liren Large Software Subsidy 5/05.iso/a/a057/6.img/YQMIS30B.EXE/OSJSC.MBK

Text File | 1994-05-09 | 16.6 KB | 1,038 lines

wjm=left(sys(16),len(sys(16))-4)
do xs
set color to w+/1,0/w,
sele 1
do while .t.
ok=inkey(0)
do case
   case ok=18
        sele 1
        if .not.bof()
           skip -1
        endif
        if bof()
           goto top
        endif
        do xs
   case ok=3
        sele 1
        if .not.eof()
           skip
        endif
        if eof()
           go top
        endif
        do xs
   case ok=13
        sele 1
        if dele()
           reca
        else
           dele
        endif
        do xs
   case ok=27.or.ok=23
        do smggp with '╒²╘┌┤µ┼╠,╟δ╔╘║≥!',10,31
        close data
        close proc
        return
   case ok=29
        set print to prn
    obrow=.f.
        do k29
        if obrow
           exit
        endif
 endcase
 sele 10
enddo
enddo
return

****************
* ╧╘╩╛╦∙╙╨╫╓╢╬ *
****************
proc xs
priv ozdm,ogzq,oh,ol
sele 1
@ 1,9 say recn() pict '@B 99999999'
if dele()
   set color to r+/1,,
else
   set color to w+/1,,
endif
sele 10
goto top
do while .not.eof()
   ozdm=trim(╫╓╢╬├√)
   ogzq=╟°
   oh=╨╨+2
   ol=┴╨+2
   sele 1
   @ oh,ol say &ogzq.->&ozdm
   sele 10
   skip
enddo
goto top
ok=5
return


****************
*   ╚╬╥Γ╠⌡╝■   *
****************
proc cx
priv ox,o,ocr,osq,ozf,ohz,ozdm,ol,obj
set color to w/1,,
@ 23,1 say space(78)
@ 23,18 say '^End:═╦│÷ íⁿí²:╥╞╢»╫╓╢╬╣Γ▒Ω ╗╪│╡╝ⁿ:╤í╘±╫╓╢╬'
set color to w+/r,,
obj=chr(160)
ohz=0
ozf=''
ocr=1
ox=1
sele 10
goto top
set color to w+/r,,
@ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
ol=recn()
ozdm=trim(╫╓╢╬├√)
@ 1,60 say '╨▐╕─'
set color to 0/w,,
@ 21,1 say space(78)
@ 21,1 say ojsgs
do while .t.
set color to 0/w,,
@ 21,ox say ''
o=inkey(0)
do case
case o=9
do srysf
loop
case o=19.and.ox>1
ox=ox-1
if subs(ojsgs,ox,1)>obj
ox=ox-1
endif
loop
case o=4.and.ox<77
ox=iif(subs(ojsgs,ox,1)>obj,ox+2,ox+1)
loop
case o<127.and.o>31
ozf=iif(subs(ojsgs,ox,1)>obj.and.ocr=1,chr(o)+' ',chr(o))
if ocr=0
if len(trim(ojsgs))+len(ozf)<79
ojsgs=left(stuf(ojsgs,ox,0,ozf),78)
ox=iif(ox<77,ox+1,ox)
@ 21,1 say ojsgs
endif
else
ojsgs=stuf(ojsgs,ox,len(ozf),ozf)
@ 21,ox say ozf
ox=iif(ox<78,ox+1,ox)
endif
ohz=0
case o>160.and.ox<78
if ohz=0
ozf=chr(o)
ohz=1
else
ozf=ozf+chr(o)
ozf=iif(ocr=1.and.subs(ojsgs,ox,1)<obj.and.subs(ojsgs,ox+1,1)>obj,ozf+' ',ozf)
if ocr=0
if len(trim(ojsgs))+len(ozf)<79
ojsgs=left(stuf(ojsgs,ox,0,ozf),78)
@ 21,1 say ojsgs
ox=iif(ox<77,ox+2,ox)
endif
else
ojsgs=stuf(ojsgs,ox,len(ozf),ozf)
@ 21,ox say ozf
ox=iif(ox<77,ox+2,ox)
endif
ohz=0
endif
case o=22
ocr=iif(ocr=0,1,0)
@ 1,60 say iif(ocr=0,'▓σ╚δ','╨▐╕─')
case o=7
ojsgs=iif(subs(ojsgs,ox,1)<obj,stuf(ojsgs,ox,1,'')+' ',stuf(ojsgs,ox,2,'')+'  ')
@ 21,1 say ojsgs
case o=127.and.ox>1
ox=ox-1
if subs(ojsgs,ox,1)>obj
ox=ox-1
endif
ojsgs=iif(subs(ojsgs,ox,1)<obj,stuf(ojsgs,ox,1,'')+' ',stuf(ojsgs,ox,2,'')+'  ')
@ 21,1 say ojsgs
case o=13
keyb chr(24)
sele 10
ozdm0=iif(╟°='A',trim(╫╓╢╬├√),╟°+'->'+trim(╫╓╢╬├√))
if len(trim(ojsgs))+len(ozdm0)<79
ojsgs=left(stuf(ojsgs,ox,0,ozdm0),78)
@ 21,1 say ojsgs
ox=ox+len(ozdm0)
ox=iif(ox>78,78,ox)
endif
case o=23
oer=.f.
on erro oer=.t.
ojsgs0=ojsgs
do zryy
sele 1
set filt to &ojsgs
ojsgs=ojsgs0
goto top
if oer
set color to w+/r,,
@ 1,40 say '╠⌡╝■╙╨╬≤!!!'
ok=inkey(2)
set color to w/1,,
@ 1,40 say '               '
else
on erro
exit
endif
case o=24
sele 10
set color to w+/1,,
@ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
if .not.eof()
skip
endif
if eof()
goto top
endif
set color to w+/r,,
@ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
case o=5
sele 10
set color to w+/1,,
@ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
if .not.bof()
skip -1
endif
if bof()
goto bott
endif
set color to w+/r,,
@ ╨╨+2,┴╨+2 say space(╫╓╢╬│ñ╢╚)
endcase
enddo
set color to w+/1,,
@ 1,40 say space(39)
@ 21,1 say space(78)
set color to w/1,,
@ 23,1 say space(78)
@ 23,5 say 'Esc:═╦│÷   Ctrl+Home:╜°╚δ╣ñ╛▀▓╦╡Ñ    ╗╪│╡:╔╛│²╡▒╟░╝╟┬╝/╗╓╕┤╡▒╟░╝╟┬╝'
set color to 7/1,1/7,
return
************
* ╫╘╚╗╙∩╤╘ *
************
proc zryy
priv zh,zrm(10,2),o,om
om=10
dime zrm(10,2)
zrm(1,1)='['
zrm(2,1)=']'
zrm(3,1)='╢°╟╥'
zrm(4,1)='╗≥╒▀'
zrm(5,1)='▓╗╡╚╙┌'
zrm(6,1)='╡╚╙┌'
zrm(7,1)='╨í╙┌'
zrm(8,1)='┤≤╙┌'
zrm(9,1)='║¼╙┌'
zrm(10,1)='▓╗╩╟'
zrm(1,2)=[ctod(']
zrm(2,2)=[')]
zrm(3,2)='.and.'
zrm(4,2)='.or.'
zrm(5,2)='#'
zrm(6,2)='='
zrm(7,2)='<'
zrm(8,2)='>'
zrm(9,2)='$'
zrm(10,2)='.not.'
o=1
do while o<=om
do while .t.
zh=at(zrm(o,1),ojsgs)
if zh>0
ojsgs=stuf(ojsgs,zh,len(zrm(o,1)),zrm(o,2))
else
exit
endif
enddo
o=o+1
enddo
return

************
* ╡τ╫╙▒¿▒φ *
************
proc brow
set date ansi
set safe off
set color to ,0/3,
priv ozdszd,wzd,ozdmm(20),ozd0,zhzd,ozdczd,ozdx(20),zds,y,y0,sjl,wybz
priv ozdsd,ozdsdc,ozdszd,ozj,y1,objfx,dk
dk=' '
objfx=.t.
dime ozdmm(20),ozdx(20)
if file('&wjm..bro')
rest from &wjm..bro addi
else
ozdszd=1
ozdsdc=0
ozdsd=0
ozdszd=1
ozd0=0
endif
ozj=.f.
wybz=.f.
sele 1
sjl=recn()
y=6
zds=1
zhzd=0
sele 10
use
sele 9
use brow.lby alia i
zap
appe from &wjm..olr
dele for ╟°<>'A'.or.╫╓╢╬│ñ╢╚>74.or.╫╓╢╬└α╨═='M'.or.╫╓╢╬└α╨═='L'
pack
zhzd=recc()
sele 10
use &wjm..olr alia j
sele 9
goto top
do while .not.eof()
zdsmcd=len(trim(╫╓╢╬╦╡├≈))
do case
case zdsmcd<=╫╓╢╬│ñ╢╚
repl sm2 with space(int((╫╓╢╬│ñ╢╚-zdsmcd)/2))+trim(╫╓╢╬╦╡├≈)
case zdsmcd<=╫╓╢╬│ñ╢╚*2
zd1cd=int(zdsmcd/2)+mod(int(zdsmcd/2),2)
zd2cd=zdsmcd-zd1cd
repl sm1 with space(int((╫╓╢╬│ñ╢╚-zd1cd)/2))+left(╫╓╢╬╦╡├≈,zd1cd)
repl sm3 with space(int((╫╓╢╬│ñ╢╚-zd2cd)/2))+subs(╫╓╢╬╦╡├≈,zd1cd+1,zd2cd)
othe
zdsmcd=iif(zdsmcd>╫╓╢╬│ñ╢╚*3,╫╓╢╬│ñ╢╚*3,zdsmcd)
zd1cd=int(zdsmcd/3)+mod(int(zdsmcd/3),2)
zd3cd=zdsmcd-(zd1cd*2)
repl sm1 with space(int((╫╓╢╬│ñ╢╚-zd1cd)/2))+left(╫╓╢╬╦╡├≈,zd1cd)
repl sm2 with space(int((╫╓╢╬│ñ╢╚-zd1cd)/2))+subs(╫╓╢╬╦╡├≈,zd1cd+1,zd1cd)
repl sm3 with space(int((╫╓╢╬│ñ╢╚-zd3cd)/2))+subs(╫╓╢╬╦╡├≈,zd1cd*2+1,zd3cd)
endcase
skip
enddo
load hbk
set color to w/1,,
clear
@ 24,0 say ''
call hbk with '00002479Z'
@ 1,2 say '╝╟┬╝║┼:           ╝╟┬╝╫▄╩²:'
sele 1
@ 1,col() say recc() pict '@B'
@ 2,1 say repl('⌐Ñ',39)
@ 22,1 say repl('⌐Ñ',39)
@ 23,2 say 'PgUp/PgDn:╟░║≤╖¡╥│ ^PgUp/^PgDn:╫≤╙╥╖¡╥│ ^Home:╣ñ╛▀▓╦╡Ñ ^U:╔╛│²/╗╓╕┤ Esc:═╦│÷'
do dqysd
do dqy
**************
* ╓≈  ╤¡  ╗╖ *
**************
on key=21 do p4
goto top
do xsdqy
do xsjlh
zdmc=ozdmm(zds)
y=6
do while .t.
set color to 0/3,0/3,
@ y,ozdx(zds)-1 say ' '
@ y,ozdx(zds) get &zdmc
@ y,col() say ' '
clear get
@ 23,78 get dk
read
ok=mod(read(),256)
set color to w/1,,
@ y,ozdx(zds)-1 say ' '
@ y,ozdx(zds) say &zdmc pict '@z'
yhx=str(col(),2)
@ y,col() say ' '
@ 24,0 say ''
call hbk with str(y,2)+str(ozdx(zds)-1,2)+yhx+'03a'
call hbk with str(y,2)+yhx+str(y,2)+'03p'
do case
case ok=0.or.ok=2
do zyzd
case ok=1.or.ok=3
do yyzd
case ok=4
do syyh
case ok=5
do xyyh
case ok=15
if objfx
do yyzd
else
do xyyh
endif
case ok=6.and.sjl>1
do sfyy
case ok=7.and..not.wybz
do xfyy
case ok=34.and.ozdszd>1
do zyck
case ok=35.and.ozdszd<zhzd
do yyck
case ok=33
do gjcd
case ok=12.or.ok=14
save to &wjm..bro all like ozd*
return
endcase
enddo
return
************
* ╙╥╥╞╫╓╢╬ *
************
proc yyzd
if zds<ozd0
zds=zds+1
zdmc=ozdmm(zds)
else
zds=1
zdmc=ozdmm(zds)
do xyyh
endif
return
************
* ╫≤╥╞╫╓╢╬ *
************
proc zyzd
if zds>1
zds=zds-1
zdmc=ozdmm(zds)
endif
return
************
* ╙╥╥╞┤░┐┌ *
************
proc yyck
ozdszd=ozdszd+1
@ 3,ozdsdc+2 clear to 21,77
ojl=recn()
y0=y
do dqy
do xsdqy
goto ojl
y=y0
do zyzd
zdmc=ozdmm(zds)
return
************
* ╫≤╥╞┤░┐┌ *
************
proc zyck
ozdszd=ozdszd-1
@ 3,ozdsdc+2 clear to 21,77
y0=y
ojl=recn()
do dqy
do xsdqy
goto ojl
y=y0
do yyzd
zdmc=ozdmm(zds)
return

************
* ╧┬╖¡╥╗╥│ *
************
proc xfyy
goto sjl
skip 16
if eof()
wybz=.t.
skip -16
endif
sjl=recn()
do xsdqy
zdmc=ozdmm(zds)
y=6
do xsjlh
return

************
* ╔╧╖¡╥╗╥│ *
************
proc sfyy
goto sjl
skip -16
if bof()
goto top
endif
sjl=recn()
do xsdqy
y=6
wybz=.f.
zdmc=ozdmm(zds)
do xsjlh
ozj=.f.
return

************
* ╧┬╥╞╥╗╨╨ *
************
proc xyyh
if y<21
skip
if eof()
goto bott
else
y=y+1
endif
else
skip
if eof()
goto bott
else
sjl=sjl+1
do xsdh
endif
endif
do xsjlh
return
************
* ╔╧╥╞╥╗╨╨ *
************
proc syyh
if y>6
y=y-1
skip -1
else
skip -1
if bof()
goto top
else
sjl=recn()
do xssh
endif
endif
do xsjlh
ozj=.f.
return
**************
* ╧╘╩╛╡▒╟░╥│ *
**************
proc xsdqy
priv ojl
sele 1
goto sjl
y=6
do while y<22
do xsyh with y
@ 24,0 say ''
call hbk with str(y,2)+'027703A'
sele 1
if .not.eof()
skip
endif
y=y+1
enddo
sele 1
goto sjl
zd0=1
zdmc=ozdmm(zds)
return
************
* ╧╘╩╛╥╗╨╨ *
************
proc xsyh
para y
priv zd0
zd0=1
@ y,2 say ''
do while zd0<=ozd0
ozd=ozdmm(zd0)
sele 1
@ y,ozdx(zd0) say &ozd pict '@z'
zd0=zd0+1
enddo
return
************
* ╧╘╩╛╡╫╨╨ *
************
proc xsdh
priv zd0
call hbk with '06022177T'
zd0=1
@ 21,2 say ''
do while zd0<=ozd0
ozd=ozdmm(zd0)
sele 1
@ 21,ozdx(zd0) say &ozd pict '@z'
yhx=str(col(),2)
@ 24,0 say ''
call hbk with '21'+yhx+'2103p'
zd0=zd0+1
enddo
call hbk with '21772103p'
call hbk with '21027703a'
return
************
* ╧╘╩╛╩╫╨╨ *
************
proc xssh
priv zd0
call hbk with '06022177U'
zd0=1
@ 6,2 say ''
do while zd0<=ozd0
ozd=ozdmm(zd0)
sele 1
@ 6,ozdx(zd0) say &ozd pict '@Z'
yhx=str(col(),2)
@ 24,0 say ''
call hbk with '06'+yhx+'0603p'
zd0=zd0+1
enddo
call hbk with '06770603p'
call hbk with '06027703a'
return
*************
* ▓╦╡Ñ╧╘╩╛ *
************
proc cdxs1
priv oi
set color to w/1,,
@ 1,1 clear to 1,78
set color to 0/w,,
@ 1,5 say space(70)
@ 24,0 say ''
call hbk with '01050174f'
oi=1
do while oi<8
@ 1,oi*10-4 say tx(oi)
@ 24,0 say ''
call hbk with '01'+str(oi*10-5,2)+'01'+str(oi*10+4,2)+'D'
oi=oi+1
enddo
return
**************
* ╧╘╩╛╝╟┬╝║┼ *
**************
proc xsjlh
sele 1
@ 1,9 say recn() pict '@b'
@ 1,46 say iif(dele(),'╔╛│²','    ')
return
************
* ╣ñ╛▀▓╦╡Ñ *
************
proc gjcd
set esca off
PRIV TX(8),o,oi,ok,y0
set safe off
oi=1
DIME TX(8)
TX(1)='╬─╝■╢Ñ▓┐'
TX(2)='╬─╝■╬▓▓┐'
TX(3)='╓╕╢¿╝╟┬╝'
TX(4)='╔╛│²╥╗╨╨'
TX(5)='▓σ╚δ╥╗╨╨'
TX(6)='╫╓╢╬╦°╢¿'
TX(7)='▒α╝¡╖╜╧≥'
@ 24,79 SAY ''
do cdxs1
set color to 0/3,0/3,
@ y,ozdx(zds)-1 say ' '
@ y,ozdx(zds) get &zdmc
@ y,col() say ' '
clear get
do while .t.
set color to w+/3,,
@ 1,oi*10-5 say ' '+tx(oi)+' '
@ 24,0 say ''
call hbk with '01'+str(oi*10-5,2)+'01'+str(oi*10+4,2)+'C'
OK=INKEY(0)
set color to 0/w,,
@ 1,oi*10-5 say ' '+tx(oi)+' '
@ 24,0 say ''
call hbk with '01'+str(oi*10-5,2)+'01'+str(oi*10+4,2)+'D'
do case
case ok=19
oi=iif(oi>1,oi-1,7)
case ok=4
oi=iif(oi<7,oi+1,1)
case ok=13
o=str(oi,1)
set color to w/1,,
sele 1
@ y,ozdx(zds)-1 say ' '
@ y,ozdx(zds) say &zdmc
oyhx=str(col(),2)
@ y,col() say ' '
@ 24,0 say ''

call hbk with str(y,2)+'027703A'
call hbk with str(y,2)+oyhx+str(y,2)+'03p'
do p&o
exit
case ok=27
exit
endcase
enddo
set color to w/1,,
@ 1,1 say space(78)
call hbk with '00017801A'
call hbk with '02017801B'
@ 1,2 say '╝╟┬╝║┼:           ╝╟┬╝╫▄╩²:'
sele 1
@ 1,col() say recc() pict '@b'
do xsjlh
return
return
************
* ╬─╝■╢Ñ▓┐ *
************
proc p1
sele 1
goto top
sjl=recn()
set color to w/1,,
do xsdqy
y=6
return
************
* ╬─╝■╬▓▓┐ *
************
proc p2
sele 1
goto bott
skip -15
if bof()
goto top
endif
sjl=recn()
set color to w/1,,
do xsdqy
y=6
return
************
* ▒α╝¡╖╜╧≥ *
************
proc p7
objfx=iif(objfx,.f.,.t.)
return
************
* ╓╕╢¿╝╟┬╝ *
************
proc p3
set color to w/1,0/3,
@ 1,25 get sjl pict '9999999999' rang 1,recc()
read
set color to w/1,,
do xsdqy
y=6
return
************
* ╔╛│²╥╗╨╨ *
************
proc p4
sele 1
if dele()
reca
else
dele
endif
set color to w/1,,
@ 1,46 say iif(dele(),'╔╛│²','    ')
return
************
* ▓σ╚δ╥╗╨╨ *
************
proc p5
return
priv y0
sele 1
inse blan befo
set color to w/1,,
y0=y
do xsdqy
skip y0-6
y=y0
return
************
* ╫╓╢╬╦°╢¿ *
************
proc p6
set color to w/1,0/3,
@ 1,55 get ozdsd pict '9999999999'
read
if ozdsd<1.or.ozdsd>ozd0-1
ozdsd=0
endif
sele 9
loca for ozdmm(ozdsd+1)=╫╓╢╬├√
ozdszd=recn()
ozdsdc=ozdx(ozdsd+1)-3
return
**************
* ╝╞╦π╡▒╟░╥│ *
**************
proc dqy
sele 9
ozdzcd=ozdsdc
goto ozdszd
wzd=ozdszd
ozd0=ozdsd
set color to 3/1,,
do while wzd<=zhzd
if ozdzcd+╫╓╢╬│ñ╢╚+2<78
ozd0=ozd0+1
ozdx(ozd0)=ozdzcd+3
@3,ozdx(ozd0) say trim(sm1)
@4,ozdx(ozd0) say trim(sm2)
@5,ozdx(ozd0) say trim(sm3)
ozdzcd=ozdzcd+╫╓╢╬│ñ╢╚+2
ozdmm(ozd0)=╫╓╢╬├√
wzd=recn()
@ 24,0 say ''
if ozdzcd<76
call hbk with '03'+str(ozdzcd+1,2)+'2103p'
endif
else
exit
endif
skip
if eof()
exit
endif
enddo
call hbk with '03012103p'
call hbk with '03772103p'
call hbk with '05027703a'
call hbk with '03027703b'
call hbk with '21027703a'
set color to w/1,,
return
************
* ╝╞╦π╦°╢¿ *
************
proc dqysd
priv sd
set color to 3/1,,
sd=1
sele 9
do while sd<=ozdsd
loca for ozdmm(sd)=trim(╫╓╢╬├√)
@3,ozdx(sd) say trim(sm1)
@4,ozdx(sd) say trim(sm2)
@5,ozdx(sd) say trim(sm3)
@ 24,0 say ''
call hbk with '03'+str(ozdx(sd+1)-2,2)+'2103p'
sd=sd+1
enddo
return
************
* ╫╖╝╙╝╟┬╝ *
************
proc zjjl
if .not.ozj
@ 1,56 say '╩╟╖±╫╖╝╙╨┬╝╟┬╝?(Y/N)'
ok=abs(inkey(0))
@ 1,56 say '                    '
ozj=chr(ok)$'Yy'
endif
if ozj
appe blan
sjl=sjl+1
else
goto bott
if y<21
y=y-1
endif
endif
sele 1
@ 1,29 say recc() pict '@b'
return
***********************************
* ╩Σ╚δ╘╦╦π╖√
***********************************
proc srysf
priv ysf(8),i,k,ozdm0
dime ysf(8)
i=1
ysf(1)='╢°╟╥'
ysf(2)='╗≥╒▀'
ysf(3)='▓╗╡╚╙┌'
ysf(4)='╡╚╙┌'
ysf(5)='╨í╙┌'
ysf(6)='┤≤╙┌'
ysf(7)='║¼╙┌'
ysf(8)='▓╗╩╟'
do while .t.
@ 1,72 say '      '
@ 1,72 say ysf(i)
k=inkey(0)
do case
case k=9
i=iif(i<8,i+1,1)
case k=13
keyb chr(24)
ozdm0=ysf(i)
if len(trim(ojsgs))+len(ozdm0)<79
ojsgs=left(stuf(ojsgs,ox,0,ozdm0),78)
@ 21,1 say ojsgs
ox=ox+len(ozdm0)
ox=iif(ox>78,78,ox)
endif
set color to 7/1,,
@ 1,72 say '      '
set color to 0/7,,
return
case k=27
set color to 7/1,,
@ 1,72 say '      '
set color to 0/7,,
return
endcase
enddo
return

************
* ═¿╙├▓╦╡Ñ *
************
proc menu
para cdx
do cdxs with cdx
oi=1
do while .t.
set color to w+/3,,
@ 1,oi*10 say ' '+tx(oi)+' '
set color to 6+/1,,
@ 23,1 say space(78)
@ 23,(80-len(tx0(oi)))/2 say tx0(oi)
@ 24,0 say ''
call hbk with '01'+str(oi*10,2)+'01'+str(oi*10+9,2)+'C'
OK=INKEY(0)
set color to 0/w,,
@ 1,oi*10 say ' '+tx(oi)+' '
@ 24,0 say ''
call hbk with '01'+str(oi*10,2)+'01'+str(oi*10+9,2)+'D'
do case
case ok=19.or.ok=5
oi=iif(oi>1,oi-1,cdx)
case ok=4.or.ok=24
oi=iif(oi<cdx,oi+1,1)
case ok=13
o=oi
exit
case ok=27
o=0
exit
endcase
enddo
set color to w/1,,
@ 1,1 say space(78)
call hbk with '00017801A'
call hbk with '02017801B'
@ 1,2 say '╝╟┬╝║┼:           ╝╟┬╝╫▄╩²:'
sele 1
@ 1,col() say recc() pict '@b'
do xsjlh
set color to w/1,,
@ 23,1 say space(78)
@ 23,5 say 'Esc:═╦│÷   Ctrl+Home:╜°╚δ╣ñ╛▀▓╦╡Ñ    ╗╪│╡:╔╛│²╡▒╟░╝╟┬╝/╗╓╕┤╡▒╟░╝╟┬╝'
set color to 7/1,1/7,
return
*************
* ▓╦╡Ñ╧╘╩╛ *
************
proc cdxs
para cdx
priv oi
set color to w/1,,
@ 1,1 clear to 1,78
set color to 0/w,,
@ 1,10 say space(cdx*10)
@ 24,0 say ''
call hbk with '011001'+str(cdx*10+9,2)+'f'
oi=1
do while oi<=cdx
@ 1,oi*10+1 say tx(oi)
@ 24,0 say ''
call hbk with '01'+str(oi*10,2)+'01'+str(oi*10+9,2)+'D'
oi=oi+1
enddo
return

**************
* ╣ñ╛▀▓╦╡Ñ
**************
proc k29
priv o,tx(7),tx0(7)
dime tx(7),tx0(7)
tx(1)='╠⌡╝■╔╛│²'
tx0(1)='╩Σ╚δ╔╛│²╠⌡╝■,╕╜║╧╠⌡╝■╡─╝╟┬╝╫╘╢»╝╙╔╧╔╛│²▒Ω╝╟ú¿▓ó╬┤╫÷╬∩└φ╔╛│²ú⌐'
tx(2)='╠⌡╝■╗╓╕┤'
tx0(2)='╩Σ╚δ╗╓╕┤╔╛│²╠⌡╝■,╕╜║╧╠⌡╝■╡─╝╟┬╝╫╘╢»╚í╧√╔╛│²▒Ω╝╟'
tx(3)='╚½▓┐╗╓╕┤'
tx0(3)='╚í╧√╦∙╙╨╝╟┬╝╡─╔╛│²▒Ω╝╟'
tx(4)='╥╞╢»╓╕╒δ'
tx0(4)='╜½╓╕╒δ╥╞╡╜╓╕╢¿╡─╝╟┬╝'
tx(5)='Σ»└└╔╛│²'
tx0(5)='╥╘╡τ╫╙▒¿▒φ╖╜╩╜Σ»└└,▓ó┐╔╔╛│²╓╕╢¿╝╟┬╝'
tx(6)='┤≥╙í┐¿╞¼'
tx0(6)='░┤╞┴─╗╕±╩╜┤≥╙í╡▒╟░╝╟┬╝'
o=0
do menu with 6
set color to w+/1,,
do case
   case o=1
        sele 1
        goto top
        do cx
        dele all
        set filt to
        goto top
        do xs
   case o=2
        sele 1
        do cx
        reca all
        set filt to
        goto top
        do xs
   case o=3
        sele 1
        set filt to
        reca all
        goto top
        do xs
   case o=4
        sele 1
        o=recn()
        @ 1,54 say '╝╟┬╝║┼:' get o rang 1,recc() pict '@B'
        read
        @ 1,54 say space(25)
        goto o
        do xs
   case o=5
        sele 1
        do brow
        obrow=.t.
   case o=6.and.sys(13)='READY'
        call hbk with '03022177V'
endcase
return