Liren Large Software Subsidy 5/05.iso/a/a056/4.ddi/MAIN/YQMIS010.PRG

Text File | 1993-11-02 | 5.5 KB | 219 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS010
* │╠╨≥╔Φ╝╞: └ε▒■╥╗
* ▒α│╠╚╒╞┌: 93.11.02   15:00:58
*******************************************************
set safe off
set date ansi
close data
set color to w/1,,
clear
do smggp with '╟δ  ╔╘  ║≥ !',10,34
set color to w/1,,
sele A
*set excl on
use GZZK alia A
priv bl(6,3)
dime bl(6,3)
set color to w/1,,
set exac off
clear
call hj with '00007924'
@ 1,34 say '╟δ╩Σ╚δ╫Θ║╧╠⌡╝■'
@ 2,1 say repl('⌐Ñ',39)
bl(1,2)=space(76)
bl(2,1)=0
bl(2,2)=0
bl(2,3)=10000000000000
@ 3,2 say '╡Ñ╬╗'
@ 3+1,2 get bl(1,2)
@ 3+2,1 say repl('⌐ñ',39)
@ 6,2 say '╗∙▒╛╣ñ╫╩'
@ 6+1,2 say '┤≤╙┌' get bl(2,1) pict '99999999999.999'
@ 6+1,26 say '╡╚╙┌' get bl(2,2) pict '99999999999.999'
@ 6+1,52 say '╨í╙┌' get bl(2,3) pict '99999999999.999'
@ 6+2,1 say repl('⌐ñ',39)
read
bl(1,2)=trim(bl(1,2))
sele 1
set filt to ╡Ñ╬╗=bl(1,2).and.(╗∙▒╛╣ñ╫╩>bl(2,1).and.╗∙▒╛╣ñ╫╩<bl(2,3).or.╗∙▒╛╣ñ╫╩=bl(2,2))
priv r,n,ym,zym,jl,zy_bl,╚╒╞┌,╥│┬δ,╩▒╝Σ,─Ω,╘┬,╚╒,╨╟╞┌,╫▄╥│╩²,╝╟┬╝║┼
*set print to con
*set print to prn
set date ansi
sele A
set dele on
╚╒╞┌=date()
─Ω=str(year(date()),4)
╘┬=str(mont(date()),2)
╚╒=str(day(date()),2)
╨╟╞┌=left(cdow(date()),6)
ym=0
r=chr(10)
n=0
set devi to scre
count to zy_bl
zym=int(zy_bl/5)+iif(mod(zy_bl,5)>0,1,0)
╫▄╥│╩²=ltrim(str(zym,8))
do smggp with '▒¿▒φ╣▓'+ltrim(str(zym,6))+'╥│,┤╙╡┌╝╕╥│┐¬╩╝┤≥╙í?         _',10,20
*set color to ,w+/r,
@ 10,52 get ym rang 0,zym pict '@b 999999'
read
if ym=0
return
endif
goto top
skip (ym-1)*5
do while .not.eof()
set devi to scre
set color to w/1,,
clear
do smggp with '╒²╘┌┤≥╙í╡┌'+ltrim(str(ym,6))+'╥│,Esc═╦│÷',10,26
╥│┬δ=ltrim(str(ym,6))
╩▒╝Σ=time()
@ 24,0 say ''
set devi to print
@ prow(),pcol() say repl(r,2)
@ prow(),pcol() say CHR(28)+'v1'
@ prow(),pcol() say CHR(27)+'ID'
@ prow(),pcol() say chr(13)
@ prow(), 19 say '╤º  ╘▒  ╟Θ  ┐÷  ═│  ╝╞  ▒φ'+r+r
@ prow(),pcol() say CHR(27)+'IC'
@ prow(),pcol() say chr(13)
@ prow(), 52 say '~~~~~~~~~~~~~~~~~~~~~~~~~~'+r+r
@ prow(),pcol() say CHR(27)+'IA'
@ prow(),pcol() say chr(13)
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),7 say ─Ω pict '@z'
@ prow(),11 say '─Ω'
@ prow(),13 say ╘┬ pict '@z'
@ prow(),15 say '╘┬'
@ prow(),17 say ╚╒ pict '@z'
@ prow(),19 say '╚╒                                                                                      ╡┌'
@ prow(),109 say ╥│┬δ pict '@z'
@ prow(),111 say '╥│  ╣▓'
@ prow(),117 say ╫▄╥│╩² pict '@z'
@ prow(),120 say '╥│'+r
@ prow(),4 say '⌐░⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'+r
@ prow(),4 say '⌐ª ╨╒├√ ⌐ª╗∙▒╛╣ñ╫╩⌐ª╓░╬±╜≥╠∙⌐ª╢└╫╙▓╣╠∙⌐ª╜╗═¿▓╣╠∙⌐ª ╜▒╜≡ ⌐ª╙ª╖ó║╧╝╞⌐ª╚▒╟┌┐█┐ε⌐ª ╖┐╫Γ ⌐ª ╦«╖╤ ⌐ª ╡τ╖╤ ⌐ª╩╡╖ó╜≡╢ε⌐ª ╟⌐  ├√ ⌐ª'+r
n=0
do while n<5
ok=inkey()
if ok=27
set devi to scre
return
endif
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),4 say '⌐└⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'+r
@ prow(),4 say '⌐ª'
@ prow(),6 say A->╨╒├√ pict '@z'
@ prow(),12 say '⌐ª'
@ prow(),14 say A->╗∙▒╛╣ñ╫╩ pict '@z'
@ prow(),22 say '⌐ª'
@ prow(),24 say A->╓░╬±╜≥╠∙ pict '@z'
@ prow(),32 say '⌐ª'
@ prow(),34 say A->╢└╫╙▓╣╠∙ pict '@z'
@ prow(),42 say '⌐ª'
@ prow(),44 say A->╜╗═¿▓╣╠∙ pict '@z'
@ prow(),52 say '⌐ª'
@ prow(),54 say A->╜▒╜≡ pict '@z'
@ prow(),60 say '⌐ª'
@ prow(),62 say A->╙ª╖ó║╧╝╞ pict '@z'
@ prow(),70 say '⌐ª'
@ prow(),72 say A->╚▒╟┌┐█┐ε pict '@z'
@ prow(),80 say '⌐ª'
@ prow(),82 say A->╖┐╫Γ pict '@z'
@ prow(),88 say '⌐ª'
@ prow(),90 say A->╦«╖╤ pict '@z'
@ prow(),96 say '⌐ª'
@ prow(),98 say A->╡τ╖╤ pict '@z'
@ prow(),104 say '⌐ª'
@ prow(),106 say A->╩╡╖ó╜≡╢ε pict '@z'
@ prow(),114 say '⌐ª        ⌐ª'+r
if .not.eof()
skip
endif
n=n+1
enddo
@ prow(),4 say '⌐└⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'+r
@ prow(),4 say '⌐ª║╧  ╝╞⌐ª'
if ym=zym
jl=0
if .not.eof()
jl=recn()
endif
sum ╗∙▒╛╣ñ╫╩ to zy_bl
@ prow(),14 say ltrim(str(zy_bl,17,2))
if jl>0
goto jl
endif
endif
@ prow(),22 say '⌐ª'
if ym=zym
jl=0
if .not.eof()
jl=recn()
endif
sum ╓░╬±╜≥╠∙ to zy_bl
@ prow(),24 say ltrim(str(zy_bl,17,2))
if jl>0
goto jl
endif
endif
@ prow(),32 say '⌐ª        ⌐ª        ⌐ª      ⌐ª'
if ym=zym
jl=0
if .not.eof()
jl=recn()
endif
sum ╙ª╖ó║╧╝╞ to zy_bl
@ prow(),62 say ltrim(str(zy_bl,17,2))
if jl>0
goto jl
endif
endif
@ prow(),70 say '⌐ª┐█┐ε║╧╝╞⌐ª'
if ym=zym
jl=0
if .not.eof()
jl=recn()
endif
sum ╖┐╫Γ+╦«╖╤+╡τ╖╤ to zy_bl
@ prow(),82 say ltrim(str(zy_bl,17,2))
if jl>0
goto jl
endif
endif
@ prow(),104 say '⌐ª'
if ym=zym
jl=0
if .not.eof()
jl=recn()
endif
sum ╩╡╖ó╜≡╢ε to zy_bl
@ prow(),106 say ltrim(str(zy_bl,17,2))
if jl>0
goto jl
endif
endif
@ prow(),114 say '⌐ª        ⌐ª'+r
@ prow(),4 say '⌐╕⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'+r
*@ prow(),4+2 say '╡┌'
*@ prow(),pcol()+1 say ym pict '9999'
*@ prow(),pcol()+1 say '╥│'+r
@ prow(),pcol() say repl(r,2)
set devi to scre
do smggp with '╡┌'+ltrim(str(ym,6))+'╥│┤≥╙í═Ω▒╧░┤╚╬╥Γ╝ⁿ╝╠╨°,Esc╝ⁿ═╦│÷',10,20
@ 24,0 say ''
ym=ym+1
ok=inkey(0)
if ok=27
exit
endif
enddo
set devi to scre
set dele off
return
*******************************************************
* ▒α│╠╚╒╞┌: 93.11.02   15:01:00
*******************************************************