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

Text File | 1980-01-01 | 3.1 KB | 211 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.99'
read
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
j1=substr(a,4,2)
j2=substr(a,1,2)
p1=a
a=j1+'/'+'01'+'/'+j2
a=ctod(a)
c=month(a)
d=c/2
e=int(d)
if c<=7
if d<>e
b=a+30
else
if c=2
b=a+27
else
b=a+29
endif
endif
else
if d<>c
b=a+29
else
b=a+30
endif
endif
use jf
sum jf11,jf12,jf13,jf14,jf15 to x1,x2,x3,x4,x5 for jf3>=a .and. ì
jf3<=b
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
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.99'
read
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
j1=substr(a,4,2)
j2=substr(a,1,2)
p1=a
a=j1+'/'+'01'+'/'+j2
a=ctod(a)
c=month(a)
d=c/2
e=int(d)
if c<=7
if d<>e
b=a+30
else
if c=2
b=a+27
else
b=a+29
endif
endif
else
if d<>e
b=a+29
else
b=a+30
endif
endif
sum jf11,jf12,jf13,jf14,jf15 to x1,x2,x3,x4,x5 for jf3>=a .and. ì
jf3<=b
use fyl
loca for f1=p1
x1=f4-x1
x2=f5-x2
x3=f6-x3
x4=f7-x4
x5=f8-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.99'
read
clear
@ 4,15 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
set cons off
sele 3
use zbmc
goto 1
repl z1 with a+'╘┬(╚½▓┐)╬¼╨▐╖╤╙├╟Θ┐÷'
copy to zbmc.txt delimited
sele 1
use zbmc1
sele 2
use fyl
loca for f1=a
l=4
if f3=0
clear
@ 4,15 say "▒╛╘┬╬▐╬¼╨▐╖╤╙├╓º│÷ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
clos data
retu
endif
do while l<=8
t=str(l,1)
f="f"+t
e=&f/f3
sele 1
repl z2 with e
skip
sele 2
l=l+1
enddo
sele 1
goto 1
repl z1 with '╣ñ╩▒╖╤'
skip
repl z1 with '▓─┴╧╖╤'
skip
repl z1 with '▒╕╝■╖╤'
skip
repl z1 with '═Γ╝╙╣ñ╖╤'
skip
repl z1 with '╞Σ╦ⁿ╖╤'
copy to zbsz55.txt delimited
set cons on
run basica as55
close database
endcase
a1=.t.
enddo a1
retu