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

Text File | 1980-01-01 | 4.4 KB | 221 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 1,5 say "****************************╗¡╒█╧▀═╝****************************"
@ 2,5 say " ú░ú«═╦│÷                         ú▒ú«╣╪╝ⁿ╔Φ▒╕┐¬╢»╠¿╩▒"
@ 3,5 say " ú▓ú«═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩           ú│ú«╩┬╣╩┬╩"
@ 4,5 say " ú┤ú«╣╩╒╧╞╡╢╚                     ú╡ú«╣╩╒╧═ú╗·┬╩"
@ 5,5 say " ú╢ú«╔Φ▒╕┐╔└√╙├┬╩                 ú╖ú«╔Φ▒╕╙╨╨º└√╙├┬╩"
@ 6,5 say " ú╕ú«╓≈╥¬╔Φ▒╕═Ω║├┬╩               ú╣ú«╛½,┤≤,╧í╔Φ▒╕═Ω║├┬╩"
@ 7,5 say "****************************************************************"
wait '     ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9):' to w
set exac off
do case
case w='0'
retu
case w='1'
clear
a='  '
b='         '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
@ 5,20 say "╔Φ▒╕▒α║┼ú║" get b
read
b=trim(b)
use zbmc
goto 1
repl z1 with b+'╔Φ▒╕╕≈╘┬┐¬╢»╠¿╩▒'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '̨ʱ'
copy to zbmc.txt delimited
use yy
repl all yy4 with val(substr(yy2,4,2))
copy to zbsz88.txt for yy2=a .and. yy1=b field yy4,yy3 delimited
run basica as88
case w='2'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║"get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '╖╤╙├┬╩'
copy to zbmc.txt delimited
use fyl
repl all f10 with val(substr(f1,4,2))
copy to zbsz44.txt for f1=a field f10,f9 delimited
use zbmc
run basica as44
case w='3'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╔Φ▒╕╩┬╣╩┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '╩┬╣╩┬╩'
copy to zbmc.txt delimited
use ysg
repl all y9 with val(substr(y1,4,2))
repl all y8 with y2/y7*100
copy to zbsz44.txt for y1=a field y9,y8 delimited
run basica as44
case w='4'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╔Φ▒╕╣╩╒╧╞╡╢╚'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '╞╡╢╚'
copy to zbmc.txt delimited
use ygz
repl all g12 with val(substr(g1,4,2))
repl all g13 with g2/g5
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
case w='5'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╔Φ▒╕╣╩╒╧═ú╗·┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '═ú╗·┬╩'
copy to zbmc.txt delimited
use ygz
repl all g12 with val(substr(g1,4,2))
repl all g13 with g3/(g3+g6)*100 for g6<>0
repl all g13 with 0 for g6+g3=0
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
case w='6'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╔Φ▒╕┐╔└√╙├┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '└√╙├┬╩'
copy to zbmc.txt delimited
close database
sele 1
use ysg
sele 2
use ygz
do while .not. eof()
d=g1
sele 1
loca for y1=d
e=y3
sele 2
repl g14 with e
skip
enddo
repl all g12 with val(substr(g1,4,2))
repl all g13 with (g7-g3-g4-g14)/g7*100 for g7<>0
repl all g13 with 100 for g7=0
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
case w='7'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╔Φ▒╕╙╨╨º└√╙├┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '└√╙├┬╩'
copy to zbmc.txt delimited
close database
sele 1
use ysg
sele 2
use ygz
do while .not. eof()
d=g1
sele 1
loca for y1=d
e=y3
sele 2
repl g14 with e
skip
enddo
repl all g12 with val(substr(g1,4,2))
repl all g13 with g6/(g6+g3+g4+g14)*100 for g3+g4+g14<>0
repl all g13 with 100 for g6+g3+g4+g14=0
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
case w='8'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╓≈╥¬╔Φ▒╕═Ω║├┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '═Ω║├┬╩'
copy to zbmc.txt delimited
use ygz
repl all g12 with val(substr(g1,4,2))
repl all g13 with g9/g8*100 for g8<>0
repl all g13 with 100 for g8=0
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
case w='9'
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ─Ω╖▌ú║" get a pict '99'
read
use zbmc
goto 1
repl z1 with a+'─Ω╕≈╘┬╛½ú¼┤≤ú¼╧í╔Φ▒╕═Ω║├┬╩'
skip
repl z1 with '╘┬╖▌'
skip
repl z1 with '═Ω║├┬╩'
copy to zbmc.txt delimited
use ygz
repl all g12 with val(substr(g1,4,2))
repl all g13 with g11/g10*100 for g10<>0
repl all g13 with 100 for g10=0
copy to zbsz44.txt for g1=a field g12,g13 delimited
run basica as44
endcase
enddo
set exac on
retu