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

Text File | 1979-12-31 | 4.9 KB | 247 lines

clear
set talk off
set device to screen
close database
a2=.t.
do while a2
clear
@ 1,10 say "********************╨▐└φ╝╞╗«╣▄└φ***********************"
@ 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 p
do case
case p='0'
retu
case p='6'
k1='w'
do bjh2.prg
case p='1'
a3=.t.
do while a3
clear
@ 2,10 say "******************┼┼─Ω╨▐└φ╝╞╗«******************"
@ 3,10 say "ú░ú«═╦│÷                    ú▒ú«┼┼─Ω┤≤╨▐╝╞╗«"
@ 4,10 say "ú▓ú«┼┼─Ω╓╨ú¿╧εú⌐╨▐╝╞╗«      ú│ú«┼┼─Ω╨íú¿╝∞ú⌐╨▐╝╞╗«"
@ 5,10 say "ú┤ú«┼┼─Ω╢■▒ú╝╞╗«"
@ 6,10 say "***********************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to p1
t='2'
use jh index jh1
do case
case p1='0'
exit
case p1='1'
dele all
pack
do bjh3.prg
case p1='2'
dele all for jh2='2' .or. jh2='3' .or. jh2='4'
pack
do bjh4.prg
case p1='3'
dele all for jh2='3' .or. jh2='4'
pack
do bjh5.prg
case p1='4'
dele all for jh2='4'
pack
do bjh6.prg
endcase
enddo a3
case p='2'
a1=.t.
do while a1
clear
@ 2,10 say "*******************╨▐╕──Ω╢╚╨▐└φ╝╞╗«*********************"
@ 3,10 say "ú░ú«═╦│÷                            ú▒ú«╨▐╕─┤≤╨▐╝╞╗«"
@ 4,10 say "ú▓ú«╨▐╕─╓╨ú¿╧εú⌐╨▐╝╞╗«              ú│ú«╨▐╕─╨íú¿╝∞ú⌐╨▐╝╞╗«"
@ 5,10 say "ú┤ú«╨▐╕─╢■▒ú╝╞╗«"
@ 6,10 say "*******************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to w
do case
case w='0'
exit
case w='1'
c='┤≤╨▐'
a='dx1'
b='bjh6'
do gjh.prg
case w='2'
c='╓╨ú¿╧εú⌐╨▐'
a='zx'
b='bjh8'
do gjh.prg
case w='3'
c='╨íú¿╝∞ú⌐╨▐'
a='sx'
b='bjh10'
do gjh.prg
case w='4'
c='╢■▒ú'
a='eb'
b='bjh12'
do gjh.prg
endcase
enddo a1
case p='3'
a4=.t.
do while a4
clear
@ 2,10 say "********************╓╪╨┬╡≈╒√╝╞╗«******************"
@ 3,10 say "ú░ú«═╦│÷                      ú▒ú«╡≈╒√┤≤╨▐╝╞╗«"
@ 4,10 say "ú▓ú«╡≈╒√╓╨ú¿╧εú⌐╨▐╝╞╗«        ú│ú«╡≈╒√╨íú¿╝∞ú⌐╨▐╝╞╗«"
@ 5,10 say "ú┤ú«╡≈╒√╢■▒ú╝╞╗«"
@ 6,10 say "**************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to p2
use jh index jh1
do case
case p2='0'
exit
case p2='1'
dele all
pack
t='1'
do bjh3.prg
case p2='2'
dele all for jh2='2' .or. jh2='3' .or. jh2='4'
pack
t='1'
do bjh4.prg
case p2='3'
dele all for jh2='3' .or. jh2='4'
pack
t='1'
do bjh5.prg
case p2='4'
dele all for jh2='4'
pack
t='1'
do bjh6.prg
endcase
enddo a4
case p='4'
a5=.t.
do while a5
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 p3
do case
case p3='0'
exit
case p3='1'
a='1'
d='┤≤╨▐└φ'
do bjh8.prg
case p3='2'
a='2'
d='╓╨ú¿╧εú⌐╨▐'
do bjh8.prg
case p3='3'
a='3'
d='╨íú¿╝∞ú⌐╨▐'
do bjh8.prg
case p3='4'
a='4'
d='╢■▒ú'
do bjh8.prg
case p3='5'
do bjh7.prg
case p3='6'
clear
b=' '
@ 4,15 say "╟δ╩Σ╚δ╝╛╢╚╩²╫╓" get b pict '9'
read
b=val(b)
do bjh9.prg
endcase
enddo a5
case p='5'
a3=.t.
do while a3
clear
@ 2,10 say "****************╔╛│²─│╔Φ▒╕╡─╨▐└φ╝╞╗«******************"
@ 3,10 say "ú░ú«═╦│÷                           ú▒ú«┤≤╨▐└φ╝╞╗«"
@ 4,10 say "ú▓ú«╓╨ú¿╧εú⌐╨▐└φ╝╞╗«               ú│ú«╨íú¿╝∞ú⌐╨▐└φ╝╞╗«"
@ 5,10 say "ú┤ú«╢■▒ú╝╞╗«"
@ 6,10 say "*****************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to q
do case
case q='0'
exit
case q='1'
b='1'
clear
a='         '
c='  '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
@ 5,10 say "╘┬╖▌:" get c pict '99'
read
clear
@ 4,10 say "╒µ╥¬╔╛│²"+a+"╔Φ▒╕"+c+"╘┬╖▌╡─┤≤╨▐╝╞╗«┬≡ú┐"
wait '  ' to k1
c=val(c)
if k1='y'
do bjh2.prg
endif
case q='2'
clear
a='         '
c='  '
b='2'
@ 4,10 say "╟δ╩Σ╔Φ▒╕▒α║┼" get a
@ 5,10 say "╘┬╖▌" get c pict '99'
read
clear
@ 4,10 say "╒µ╥¬╔╛│²"+a+"╔Φ▒╕"+c+"╘┬╖▌╡─╓╨ú¿╧εú⌐╨▐╝╞╗«┬≡ú┐"
c=val(c)
wait '  ' to k1
if k1='y'
do bjh2.prg
endif
case q='3'
clear
a='         '
c='  '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
@ 5,10 say "╘┬╖▌"get c pict '99'
read
clear
@ 4,10 say "╒µ╥¬╔╛│²"+a+"╔Φ▒╕"+c+"╘┬╖▌╡─╨íú¿╝∞ú⌐╨▐╝╞╗«┬≡ú┐"
c=val(c)
b='3'
wait '  ' to k1
if k1='y'
do bjh2.prg
endif
case q='4'
clear
a='         '
c='  '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
@ 5,10 say "╘┬╖▌" get c pict '99'
read
b='4'
clear
@ 4,10 say "╒µ╥¬╔╛│²"+a+"╔Φ▒╕"+c+"╘┬╖▌╡─3╢■▒ú╝╞╗«┬≡ú┐"
c=val(c)
wait '  ' to k1
if k1='y'
do bjh2.prg
endif
endcase
enddo a3
case p='7'
do bjh1.prg
case p='8'
do jx1.prg
endcase
enddo a2