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

Text File | 1980-01-01 | 3.0 KB | 171 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 2,12 say "**********************╗¡╔╚╨╬═╝ú¿─Ωú⌐****************"
@ 3,12 say " ú░ú«═╦│÷                         ú▒ú«┤≤╨▐╖╤╙├"
@ 4,12 say " ú▓ú«╬¼╨▐(│²┤≤╨▐═Γ)╖╤╙├           ú│ú«╚½▓┐╬¼╨▐╖╤╙├"
@ 5,12 say "****************************************************"
wait '            ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3):' to w
set exac off
do case
case w='0'
retu
case w='1'
clear
a='  '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌" get a pict '99'
read
p1=a
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
a='01'+'/'+'01'+'/'+a
a=ctod(a)
b=a+365
use jf
sum jf11,jf12,jf13,jf14,jf15 to x1,x2,x3,x4,x5 for jf3>=a .and. ì
jf3<=b .and. jf2='1'
x=x1+x2+x3+x4+x5
if x=0
clear
@ 4,15 say "▒╛─Ω╢╚╬▐┤≤╨▐╖╤╙├╓º│÷ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '   '
clos data
exit
endif
x1=x1/x
x2=x2/x
x3=x3/x
x4=x4/x
x5=x5/x
use zbmc1
repl z1 with '▒╕╝■╖╤',z2 with x1
skip
repl z1 with '▓─┴╧╖╤',z2 with x2
skip
repl z1 with '╣ñ╩▒╖╤',z2 with x3
skip
repl z1 with '═Γ╬»╖╤',z2 with x4
skip
repl z1 with '╞Σ╦ⁿ╖╤',z2 with x5
copy to zbsz55.txt delimited
close data
use zbmc
repl z1 with p1+'─Ω┤≤╨▐╖╤╙├╟Θ┐÷'
copy to zbmc.txt delimited
set cons on
run basica as55
case w='2'
use jf
clear
a='  '
@ 3,10 say "╟δ╩Σ╚δ─Ω╖▌" get a pict '99'
read
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
p1=a
a='01'+'/'+'01'+'/'+a
a=ctod(a)
b=a+365
sum jf11,jf12,jf13,jf14,jf15 to x1,x2,x3,x4,x5 for jf3>=a .and. ì
jf3<=b .and. jf2='1'
use fyl
a=p1+'.01'
b=p1+'.12'
sum f4,f5,f6,f7,f8 to y1,y2,y3,y4,y5 for f1>=a .and. f1<=b
x1=y1-x1
x2=y2-x2
x3=y3-x3
x4=y4-x4
x5=y5-x5
x6=x1+x2+x3+x4+x5
if x6<=0
clear
@ 4,15 say "▒╛─Ω╢╚╬▐╬¼╨▐╖╤╙├╓º│÷ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
clos data
retu
endif
x3=x3/x6
x2=x2/x6
x1=x1/x6
x4=x4/x6
x5=x5/x6
use zbmc1
repl z1 with '╣ñ╩▒╖╤',z2 with x1
skip
repl z1 with '▓─┴╧╖╤',z2 with x2
skip
repl z1 with '▒╕╝■╖╤',z2 with x3
skip
repl z1 with '═Γ╝╙╣ñ╖╤',z2 with x4
skip
repl z1 with '╞Σ╦ⁿ╖╤╙├',z2 with x5
copy to zbsz55.txt delimited
use zbmc
repl z1 with p1+'─Ω(│²┤≤╨▐═Γ)╡─╬¼╨▐╖╤╙├╟Θ┐÷'
copy to zbmc.txt delimited
set cons on
run basica as55
close database
case w='3'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
p1=a
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
a=a+'.'+'01'
b=p1+'.'+'12'
sele 3
use zbmc
goto 1
repl z1 with p1+'─Ω(╚½▓┐)╬¼╨▐╖╤╙├╟Θ┐÷'
copy to zbmc.txt delimited
sele 1
use zbmc1
sele 2
use fyl
sum f3 to x for f1>=a .and. f1<=b
l=4
if x=0
clear
@ 4,15 say "▒╛─Ω╢╚╬▐╬¼╨▐╖╤╙├╓º│÷ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
clos data
retu
endif
sum f4,f5,f6,f7,f8 to x1,x2,x3,x4,x5 for f1>=a .and. f1<=b
f=x1+x2+x3+x4+x5
x1=x1/f
x2=x2/f
x3=x3/f
x4=x4/f
x5=x5/f
sele 1
goto 1
repl z1 with '╣ñ╩▒╖╤',z2 with x1
skip
repl z1 with '▓─┴╧╖╤',z2 with x2
skip
repl z1 with '▒╕╝■╖╤',z2 with x3
skip
repl z1 with '═Γ╝╙╖╤',z2 with x4
skip
repl z1 with '╞Σ╦ⁿ╖╤',z2 with x5
copy to zbsz55.txt delimited
run basica as55
close database
endcase
a1=.t.
enddo a1
retu