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

Text File | 1993-11-02 | 3.0 KB | 115 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS023
* │╠╨≥╔Φ╝╞: └ε▒■╥╗
* ▒α│╠╚╒╞┌: 93.11.02   15:35:15
*******************************************************
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 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/4)+iif(mod(zy_bl,4)>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)*4
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,0)
@ prow(),pcol() say CHR(28)+'v1'
@ prow(),pcol() say CHR(27)+'ID'
@ prow(),pcol() say chr(13)
@ prow(), 15 say '╣ñ╫╩╠⌡'+r+r
@ prow(),pcol() say CHR(27)+'IC'
@ prow(),pcol() say chr(13)
@ prow(), 31 say '~~~~~~~~~~~~'+r+r
@ prow(),pcol() say CHR(27)+'IA'
@ prow(),pcol() say chr(13)
╝╟┬╝║┼=ltrim(str(recn(),8))
n=0
do while n<4
ok=inkey()
if ok=27
set devi to scre
return
endif
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),0 say '⌐░⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'+r
@ prow(),0 say '⌐ª ╨╒├√ ⌐ª╗∙▒╛╣ñ╫╩⌐ª╓░╬±╜≥╠∙⌐ª ╜▒╜≡ ⌐ª╙ª╖ó║╧╝╞⌐ª ╖┐╫Γ ⌐ª ╡τ╖╤ ⌐ª╩╡╖ó╜≡╢ε⌐ª'+r
@ prow(),0 say '⌐└⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'+r
@ prow(),0 say '⌐ª'
@ prow(),2 say A->╨╒├√ pict '@z'
@ prow(),8 say '⌐ª'
@ prow(),10 say A->╗∙▒╛╣ñ╫╩ pict '@z'
@ prow(),18 say '⌐ª'
@ prow(),20 say A->╓░╬±╜≥╠∙ pict '@z'
@ prow(),28 say '⌐ª'
@ prow(),30 say A->╜▒╜≡ pict '@z'
@ prow(),36 say '⌐ª'
@ prow(),38 say A->╙ª╖ó║╧╝╞ pict '@z'
@ prow(),46 say '⌐ª'
@ prow(),48 say A->╖┐╫Γ pict '@z'
@ prow(),54 say '⌐ª'
@ prow(),56 say A->╡τ╖╤ pict '@z'
@ prow(),62 say '⌐ª'
@ prow(),64 say A->╩╡╖ó╜≡╢ε pict '@z'
@ prow(),72 say '⌐ª'+r
@ prow(),0 say '⌐╕⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'+r
if .not.eof()
skip
endif
n=n+1
enddo
*@ prow(),0+2 say '╡┌'
*@ prow(),pcol()+1 say ym pict '9999'
*@ prow(),pcol()+1 say '╥│'+r
@ prow(),pcol() say repl(r,0)
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:35:15
*******************************************************