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

Text File | 1979-12-31 | 4.6 KB | 317 lines

clear
set talk off
set device to screen
a1=.t.
do while a1
clear
@ 3,10 say "*****************╔Φ▒╕╕≈╧ε╓╕▒Ω▓Θ╤»*******************"
@ 4,10 say "     ú░ú«═╦│÷                  ú▒ú«╘¡╓╡íó╛╗╓╡íó╨┬╢╚"
@ 5,10 say "     ú▓ú«╥█┴ε╖╓▓╝              ú│ú«╕┤╘╙╧╡╩²"
@ 6,10 say "****************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2)' to w
do case
case w='0'
retu
case w='1'
a2=.t.
do while a2
clear
@ 2,10 say "**************╘¡╓╡íó╛╗╓╡íó╨┬╢╚▓Θ╤»***************"
@ 3,10 say "   ú░ú«═╦│÷                      ú▒ú«╚½▓┐╔Φ▒╕"
@ 4,10 say "   ú▓ú«╕≈╡Ñ╬╗╔Φ▒╕                ú│ú«░┤└α▒≡"
@ 5,10 say "*************************************************"
wait '            ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3)' to pp
do case
case pp='0'
exit
case pp='1'
use sb index sb1
sum sb15,sb17 to x,y
clear
@ 4,1 say "╔Φ▒╕╘¡╓╡ú║"+str(x,10,2)+"    ì
╔Φ▒╕╛╗╓╡ú║"+str(y,10,2)+"   ╨┬╢╚╧╡╩²ú║"+str(y/x,7,4)
wait '╗╣▓Θ╤»┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq<>'y'
exit
endif
case pp='2'
clear
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
read
if a='h'
use dw index dw1
b='dw1'
c='dw2'
do hela
loop
endif
exit
enddo
use sb index sb1
sum sb15,sb17 to x,y for sb28=a
use dw index dw1
seek a
clear
a=trim(dw2)
@ 4,1 say ì
a+"╡─ú║╔Φ▒╕╘¡╓╡ú║"+str(x,10,2)+"╔Φ▒╕╛╗╓╡ú║"+str(y,10,2)+"  ì
╨┬╢╚╧╡╩²ú║"+str(y/x,7,4)
wait '╗╣▓Θ╤»┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq<>'y'
exit
endif
case pp='3'
clear
a3=.t.
do while a3
a='  '
@ 4,20 say "╟δ╩Σ╚δ└α▒≡║┼" get a
read
if a='h'
use ls index lssy
b='ls1'
c='ls2'
do hela
loop
endif
exit
enddo
use sb index sb1
sum sb15,sb17 to x,y for sb24=a
use ls index lssy
seek a
clear
a=trim(ls2)
@ 4,1 say a+"╡─ú║╔Φ▒╕╘¡╓╡ú║"+str(x,10,2)+"╔Φ▒╕╛╗╓╡ú║" +str(y,10,2)+"╨┬╢╚╧╡╩²ú║"+str(y/x,7,4)
wait '╗╣▓Θ╤»┬≡ú¿ú┘ú»ú╬ú⌐ú┐' to qq
if qq<>'y'
exit
endif
endcase
enddo
case w='2'
a2=.t.
do while a2
clear
@ 3,10 say "*******************╥█┴ε▓Θ╤»*****************"
@ 4,10 say "    ú░ú«═╦│÷              ú▒ú«╚½▓┐╔Φ▒╕"
@ 5,10 say "    ú▓ú«░┤╕≈╡Ñ╬╗          ú│ú«░┤└α▒≡"
@ 6,10 say "*********************************************"
wait '            ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3)' to pp
do case
case pp='0'
exit
case pp='1'
ad='1'
do sbyl
case pp='2'
clear
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
read
if a='h'
use dw index dw1
b='dw1'
c='dw2'
do hela
loop
endif
exit
enddo
ad='2'
do sbyl
exit
case pp='3'
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ└α▒≡║┼" get a
read
if a='h'
use ls index lssy
b='ls1'
c='ls2'
do hela
loop
endif
exit
enddo
ad='3'
do sbyl
exit
endcase
enddo
case w='3'
a2=.t.
do while a2
clear
@ 2,10 say "*******************╕┤╘╙╧╡╩²▓Θ╤»******************"
@ 3,10 say "    ú░ú«═╦│÷                ú▒ú«╚½▓┐╔Φ▒╕"
@ 4,10 say "    ú▓ú«░┤╡Ñ╬╗              ú│ú«░┤└α╩⌠"
@ 5,10 say "    ú┤ú«░┤╣▄╩⌠              ú╡ú«░┤╡Ñ╬╗ú½└α╩⌠"
@ 6,10 say "    ú╢ú«░┤╣▄╩⌠ú½└α╩⌠"
@ 7,10 say "*************************************************"
wait '            ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6)' to pp
do case
case pp='0'
exit
case pp='1'
ww=1
e='╚½▓┐'
do sbfz
exit
case pp='2'
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
read
if a='h'
use dw index dw1
b='dw1'
c='dw2'
do hela
loop
endif
exit
enddo
use dw index dw1
seek a
e=trim(dw2)
d='sb28'
ww=2
do sbfz
exit
case pp='3'
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ└α╩⌠║┼" get a
read
if a='h'
use ls index lssy
b='ls1'
c='ls2'
do hela
loop
endif
exit
enddo
use ls index lssy
seek a
e=trim(ls2)
d='sb24'
ww=2
do sbfz
exit
case pp='4'
a3=.t.
do while a3
clear
a='  '
@ 4,20 say "╟δ╩Σ╚δ╣▄╩⌠║┼" get a
read
if a='h'
use gs index gssy
b='gs1'
c='gs2'
do hela
loop
endif
exit
enddo
use gs index gssy
seek a
e=trim(gs2)
d='sb25'
ww=2
do sbfz
exit
case pp='5'
a3=.t.
do while a3
clear
a='  '
b='  '
@ 4,20 say "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
@ 5,26 say "└α╩⌠║┼" get b
read
do case
case a='h'
use dw index dw1
b='dw1'
c='dw2'
do hela
loop
case b='h'
use ls index lssy
b='ls1'
c='ls2'
do hela
loop
endcase
exit
enddo
use dw index dw1
seek a
e=trim(dw2)
d='sb28'
use ls index lssy
seek b
f=trim(ls2)
d1='sb24'
ww=3
do sbfz
exit
case pp='6'
a3=.t.
do while a3
clear
a='  '
b='  '
@ 4,20 say "╟δ╩Σ╚δ└α╩⌠║┼" get a
@ 5,26 say "╣▄╩⌠║┼" get b
read
do case
case a='h'
use ls index lssy
b='ls1'
c='ls2'
do hela
loop
case b='h'
use gs index gssy
b='gs1'
c='gs2'
do hela
loop
endcase
exit
enddo
use ls index lssy
seek a
e=trim(ls2)
d='sb24'
use gs index gssy
seek b
f=trim(gs2)
d1='sb25'
ww=3
do sbfz
exit
endcase
enddo
endcase
enddo
retu