Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/RS1.PRG

Text File | 1979-12-31 | 2.5 KB | 159 lines

clear
set talk off
set device to screen
close database
sele 1
use wx
sele 2
use rs
sele 3
use pg
if w<>'y'
a='        '
b='  '
@ 6,10 say "╥¬┐¬╣ñ╚╒╞┌:" get a pict '99.99.99'
read
endif
b='  '
a1=.t.
do while a1
@ 7,10 say "░α╫Θ┤·║┼:" get b
read
if b='h'
t=a
sele 1
do hel4
@ 3,50 clear
@ 4,1 clear
a=t
loop
endif
a1=.f.
enddo a1
sele 3
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
c=a
sele 3
p=11
q=0
@ 4,0 clear
sele 1
loca for wx1=b
if eof()
clear
@ 4,20 say "╬▐┤╦╡Ñ╬╗,╟δ╤í▒≡╡─╡Ñ╬╗"
wait '        ' to w
a1=.t.
retu
endif
t=wx2
a2=.t.
do while a2
clear
@ 3,0 clear
@ 3,30 say " "+wx2+"┼╔╣ñ╟Θ┐÷"
@ 4,5 say "╚╒╞┌"
@ 5,2 say "╢ε╢¿╚╦╩²"
@ 6,0 say "╥╤┼╔╣ñ╚╦╩²"
@ 7,0 say "╬┤┼╔╣ñ╚╦╩²"
a1=.t.
do while a1
@ 4,p clear
sele 3
sum pg2 to x for pg1=b .and. pg3<=a .and. pg4>=a
d=dtoc(a)
j1=substr(d,7,2)
j2=substr(d,1,2)
j3=substr(d,4,2)
d=j1+'.'+j2+'.'+j3
@ 4,p-1 say " "+d
sele 1
@ 5,p say " "+str(wx3,4)
@ 6,p say " "+str(x,4)
e=wx3-x
@ 7,p say " "+str(e,4)
p=p+10
@ 4,p clear
a=a+1
c=c+1
q=q+1
if q>=7
@ 8,0 clear
wait '╗╣┐┤╞Σ╦ⁿ╚╒╞┌╡─┬≡(y/n)' to w
if w='y'
@ 4,0 clear
q=0
a1=.f.
p=11
a2=.t.
else
a1=.f.
a2=.f.
endif
endif
enddo a1
enddo a2
@ 3,0 clear
wait '╗╣┐┤├┐╕÷╚╦╡─╟Θ┐÷┬≡(y/n) ' to w
if w<>'y'
close database
a1=.t.
retu
else
@ 3,0 clear
sele 2
clear
loca for rs11=b
if eof()
@ 4,0 clear
@ 7,20 say " "+"┤╦╡Ñ╬╗╬▐╚╦,╟δ╗╗▒≡╡─╡Ñ╬╗"
retu
endif
g=recno()
a1=.t.
do while a1
clear
goto g
@ 0,35 say " "+t+"╕≈╬¼╨▐╚╦╘▒╟Θ┐÷"
@ 1,1 say "╣ñ╫≈╓ñ║┼  ╨╒├√   ╨╘▒≡  ─Ω┴Σ  ╬─╗»╦«╞╜  ╝╝╩⌡╡╚╝╢  ╓░╬±  ì
╓░│╞  └═┴ª╦«╞╜  ╣ñ╫≈╡τ╗░"
l=2
do while .not. eof()
@ l,1 say " "+rs1
@ l,10 say " "+rs2
@ l,18 say " "+rs3
@ l,24 say " "+str(rs4,2)
@ l,32 say " "+rs5
@ l,42 say " "+rs6
@ l,48 say " "+rs7
@ l,56 say " "+rs8
@ l,64 say " "+rs12
@ l,76 say " "+rs13
cont
l=l+1
if .not. eof()
if l>=8
wait '░┤ G ╝ⁿ╝╠╨°' to w
clear
l=2
g=recno()
goto bott
skip
a1=.t.
endif
else
a1=.f.
endif
enddo
enddo a1
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
close database
a1=.t.
retu