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

Text File | 1980-01-01 | 3.7 KB | 208 lines

clear
set talk off
set device to screen
close database
sele 1
use sb index sb1
sele 2
use bjh
a2=.t.
do while a2
clear
@ 1,1 say "╔Φ▒╕▒α║┼    ╔Φ▒╕├√│╞       ╣ñ╫≈░α╓╞   ╨▐└φ╓▄╞┌   ì
╩╡╝╩┐¬╢»╠¿╩▒  ╨▐└φ└α▒≡"
l=2
do while .not. eof()
a=bjh13
b=bjh11
c=bjh9
d=bjh7
e=bjh1
f=bjh17
p5=15.5
if f=1
p5=7.5
endif
if f=2
p5=15.5
endif
if f=3
p5=24
endif
a9=bjh1
sele 1
seek a9
p=sb3
sele 2
do case
case d>=bjh2*p5
@ l,1 say " "+e
@ l,11 say " "+p
@ l,28 say " "+str(f,1)
p1=bjh2*p5
@ l,40 say " "+str(p1,8)
@ l,50 say " "+str(bjh7,5)
@ l,65 say " "+"┤≤╨▐"
l=l+1
case c>=bjh3*p5
@ l,1 say " "+e
@ l,11 say " "+p
@ l,28 say " "+str(f,1)
p2=bjh3*p5
@ l,40 say " "+str(p2,8)
@ l,50 say " "+str(bjh9,5)
@ l,65 say " "+"╓╨╨▐"
l=l+1
case b>=bjh4*p5
@ l,1 say " "+e
@ l,11 say " "+p
@ l,28 say " "+str(f,1)
p3=bjh4*p5
@ l,40 say " "+str(p3,8)
@ l,50 say " "+str(bjh11,5)
@ l,65 say " "+"╨í╨▐"
l=l+1
case a>=bjh5*p5
@ l,1 say " "+e
@ l,11 say " "+p
@ l,28 say " "+str(f,1)
p4=bjh5*p5
@ l,40 say " "+str(p4,8)
@ l,50 say " "+str(a,5)
@ l,65 say " "+"╢■▒ú"
l=l+1
endcase
skip
if .not. eof() .and. l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
enddo
if eof()
exit
endif
enddo a2
wait '         ┤≥╙í┬≡(y/n) ' to w
if w<>'y'
close database
retu
endif
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
@ prow()+1,1 say "              ░┤╩╡╝╩┐¬╢»╠¿╩▒─Γ╨▐└φ╡─╔Φ▒╕"
@ prow()+1,1 say "                 "
@ prow()+1,1 say ì
"================================================================"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞    ì
    |╣ñ╫≈░α╓╞|╨▐└φ╓▄╞┌|╩╡┐¬╠¿╩▒|╨▐└φ└α▒≡|"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
sele 2
goto top
do while .not. eof()
q=2
a=bjh13
b=bjh11
c=bjh9
d=bjh7
e=bjh1
f=bjh17
sele 1
seek e
p5=15.5
if f=1
p5=7.5
endif
if f=2
p5=15.5
endif
if f=3
p5=24
endif
p=sb3
sele 2
do case
case d>=bjh2*p5
@ prow()+1,1 say "|"+e
@ prow(),11 say "|"+p
@ prow(),28 say "|"+str(f,1)
p1=bjh2*p5
@ prow(),37 say "|"+str(p1,8)
@ prow(),46 say "|"+str(bjh7,5)
@ prow(),55 say "|"+"┤≤╨▐    |"
q=1
skip
if .not. eof()
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
else
@ prow()+1,1 say ì
"================================================================"
endif
case c>=bjh3*p5
@ prow()+1,1 say "|"+e
@ prow(),11 say "|"+p
@ prow(),28 say "|"+str(f,1)
p2=bjh3*p5
@ prow(),37 say "|"+str(p2,8)
@ prow(),46 say "|"+str(bjh9,5)
@ prow(),55 say "|"+"╓╨╨▐    |"
q=1
skip
if .not. eof()
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
else
@ prow()+1,1 say ì
"================================================================"
endif
case b>=bjh4*p5
@ prow()+1,1 say "|"+e
@ prow(),11 say "|"+p
@ prow(),28 say "|"+str(f,1)
p3=bjh4*p5
@ prow(),37 say "|"+str(p3,8)
@ prow(),46 say "|"+str(bjh11,5)
@ prow(),55 say "|"+"╨í╨▐    |"
q=1
skip
if .not. eof()
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
else
@ prow()+1,1 say ì
"==============================================================="
endif
case a>=bjh5*p5
@ prow()+1,1 say "|"+e
@ prow(),11 say "|"+p
@ prow(),28 say "|"+str(f,1)
p4=bjh5*p5
@ prow(),37 say "|"+str(p4,8)
@ prow(),46 say "|"+str(bjh13,5)
@ prow(),55 say "|"+"╢■▒ú    |"
q=1
skip
if .not. eof()
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
else
@ prow()+1,1 say ì
"================================================================"
endif
endcase
if q<>1
skip
endif
enddo
set print on
? chr(13)
set print off
set device to screen
retu