Liren Large Software Subsidy 5/05.iso/a/a056/5.ddi/RS/YQMIS008.PRG

Text File | 1993-12-21 | 3.0 KB | 116 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS008
* │╠╨≥╔Φ╝╞: ╤┼╞µ
* ▒α│╠╚╒╞┌: 93.12.21   21:30:53
*******************************************************
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 RS alia A
index on ╡Ñ╬╗ to RS
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/7)+iif(mod(zy_bl,7)>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)*7
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(), 7 say '╤º  ╘▒  ╟Θ  ┐÷  ═│  ╝╞  ▒φ'+r+r
@ prow(),pcol() say CHR(27)+'IC'
@ prow(),pcol() say chr(13)
@ prow(), 28 say '~~~~~~~~~~~~~~~~~~~~~~~~~~'+r+r
@ prow(),pcol() say CHR(27)+'IA'
@ prow(),pcol() say chr(13)
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),4 say '⌐░⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'+r
@ prow(),4 say '⌐ª ╨╒├√ ⌐ª╨╘▒≡⌐ª ╡Ñ╬╗ ⌐ª│÷╔·╚╒╞┌⌐ª╣ñ╫≈╩▒╝Σ⌐ª╬─╗»│╠╢╚⌐ª╝╝╩⌡╓░│╞⌐ª╗∙▒╛╣ñ╫╩⌐ª'+r
n=0
do while n<7
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(),18 say '⌐ª'
@ prow(),20 say A->╡Ñ╬╗ pict '@z'
@ prow(),26 say '⌐ª'
@ prow(),28 say A->│÷╔·╚╒╞┌ pict '@z'
@ prow(),36 say '⌐ª'
@ prow(),38 say A->╣ñ╫≈╩▒╝Σ pict '@z'
@ prow(),46 say '⌐ª'
@ prow(),48 say A->╬─╗»│╠╢╚ pict '@z'
@ prow(),56 say '⌐ª'
@ prow(),58 say A->╝╝╩⌡╓░│╞ pict '@z'
@ prow(),66 say '⌐ª'
@ prow(),68 say A->╗∙▒╛╣ñ╫╩ pict '@z'
@ prow(),76 say '⌐ª'+r
if .not.eof()
skip
endif
n=n+1
enddo
@ 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.12.21   21:30:55
*******************************************************