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

Text File | 1993-11-01 | 2.6 KB | 105 lines

*******************************************************
* ╬─╝■├√│╞: YQMIS021
* │╠╨≥╔Φ╝╞: └ε▒■╥╗
* ▒α│╠╚╒╞┌: 93.11.01   21:03:42
*******************************************************
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 GZJB 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/9)+iif(mod(zy_bl,9)>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)*9
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(), 0 say '╣ñ  ╫╩  ╝╢  ▒≡  ╥╗  └└  ▒φ'+r+r
@ prow(),pcol() say CHR(27)+'IC'
@ prow(),pcol() say chr(13)
@ prow(), 2 say '~~~~~~~~~~~~~~~~~~~~~~~~~~'+r+r
@ prow(),pcol() say CHR(27)+'IA'
@ prow(),pcol() say chr(13)
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),0 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐┤'+r
@ prow(),0 say '⌐ª╣ñ╫╩╝╢▒≡⌐ª╗∙▒╛╣ñ╫╩⌐ª╚╒╣ñ╫╩⌐ª'+r
n=0
do while n<9
ok=inkey()
if ok=27
set devi to scre
return
endif
╝╟┬╝║┼=ltrim(str(recn(),8))
@ prow(),0 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╚'+r
@ prow(),0 say '⌐ª'
@ prow(),2 say A->╣ñ╫╩╝╢▒≡ pict '@z'
@ prow(),10 say '⌐ª'
@ prow(),12 say A->╗∙▒╛╣ñ╫╩ pict '@z'
@ prow(),20 say '⌐ª'
@ prow(),22 say A->╚╒╣ñ╫╩ pict '@z'
@ prow(),28 say '⌐ª'+r
if .not.eof()
skip
endif
n=n+1
enddo
@ prow(),0 say '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╝'+r
*@ 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.01   21:03:43
*******************************************************