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

Text File | 1979-12-31 | 6.0 KB | 217 lines

clear
set talk off
close database
use jh index jh1
if eof() .and. bof()
@ 4,0 clear
wait '             ╗╣├╗┼┼╨▐└φ╝╞╗«ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
do case
case b=1
e=1
g=3
case b=2
e=4
g=6
case b=3
e=7
g=9
case b=4
e=10
g=12
endcase
x1=0
x2=0
x3=0
x4=0
x5=0
x6=0
x7=0
x8=0
y1=0
y2=0
y3=0
y4=0
y5=0
y6=0
y7=0
y8=0
z1=0
z2=0
z3=0
z4=0
z5=0
z6=0
z7=0
z8=0
loca for jh3>=e .and. jh3<=g
if eof()
@ 4,0 clear
wait '                '+str(b,1)+'╝╛╢╚╬▐╨▐└φ╝╞╗«ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
clear
@ 4,20 say '╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí'
set cons off
p=1
a1=.t.
do while a1
set cons off
set devi to print

set print on
? chr(27)+"IJ"
@ prow()+1,50 say str(b,2)+"╝╛╢╚╔Φ▒╕╨▐└φ╫█║╧╝╞╗«"
@ prow()+1,1 say "                  "
? chr(27)+"II"
set print off
@ prow()+1,220 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
====="
@ prow(),137 say ì
"=================================================================ì
========================================="
@ prow()+1,1 say "|         |        |                            ì
      "+str(e,2)+"╘┬                                   |"
@ prow(),95 say "                                  "+str(e+1,2)+"╘┬                                   |                                  "+str(g,2)+"╘┬                                   |"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ ì
|╨▐└φ└α▒≡|--------------------------------------------------------ì
-----------------|"
@ prow(),95 say ì
"-----------------------------------------------------------------ì
--------|---------------------------------------------------------ì
----------------|"
@ prow()+1,1 say "|         |        ì
|╟»╣ñ╣ñ╩▒|╡τ╣ñ╣ñ╩▒|╞≡╓╪╣ñ╩▒|║╕╣ñ╣ñ╩▒|╣▄╣ñ╣ñ╩▒|╗·╝╙╣ñ╩▒|╞Σ╦ⁿ╣ñ╩▒|╨▐ì
└φ╖╤╙├  |"
@ prow(),95 say ì
"╟»╣ñ╣ñ╩▒|╡τ╣ñ╣ñ╩▒|╞≡╓╪╣ñ╩▒|║╕╣ñ╣ñ╩▒|╣▄╣ñ╣ñ╩▒|╗·╝╙╣ñ╩▒|╞Σ╦ⁿ╣ñ╩▒|ì
╨▐└φ╖╤╙├  |╟»╣ñ╣ñ╩▒|╡τ╣ñ╣ñ╩▒|╞≡╓╪╣ñ╩▒|║╕╣ñ╣ñ╩▒|╣▄╣ñ╣ñ╩▒|╗·╝╙╣ñ╩▒|╞Σ╦ⁿ╣ñ╩▒|ì
╨▐└φ╖╤╙├  |"
@ prow()+1,1 say ì
"|---------|--------|--------|--------|--------|--------|--------|ì
--------|--------|----------|"
@ prow(),95 say ì
"--------|--------|--------|--------|--------|--------|--------|-ì
---------|--------|--------|--------|--------|--------|--------|--ì
------|----------|"
l=9
do while .not. eof()
do case
case jh2='1'
d='┤≤╨▐'
case jh2='2'
d='╓╨╨▐'
case jh2='3'
d='╨í╨▐'
case jh2='4'
d='╢■▒ú'
endcase
@ prow()+1,1 say "|"+jh1+"|  "+d
do case
case jh3=e
@ prow(),20 say "|"+str(jh4,6,1)+"  ì
|"+str(jh5,6,1)+"  |"+str(jh6,6,1)+"  |"+str(jh7,6,1)+"  ì
|"+str(jh8,6,1)+"  |"+str(jh9,6,1)+"  |"+str(jh10,6,1)+"  ì
|"+str(jh11,10,2)
@ prow(),94 say "|        |        |        |        |        |   ì
     |        |          |        |        |        |        |    ì
    |        |        |          |"
x1=x1+jh4
x2=x2+jh5
x3=x3+jh6
x4=x4+jh7
x5=x5+jh8
x6=x6+jh9
x7=x7+jh10
x8=x8+jh11
case jh3=e+1
@ prow(),20 say "|        |        |        | ì
       |        |        |        |          |"
@ prow(),95 say str(jh4,6,1)+"  |"+str(jh5,6,1)+"  ì
|"+str(jh6,6,1)+"  |"+str(jh7,6,1)+"  |"+str(jh8,6,1)+"  ì
|"+str(jh9,6,1)+"  |"+str(jh10,6,1)+"  |"+str(jh11,10,2)
@ prow(),168 say "|        |        |        |        |        |  ì
      |        |          |"
y1=y1+jh4
y2=y2+jh5
y3=y3+jh6
y4=y4+jh7
y5=y5+jh8
y6=y6+jh9
y7=y7+jh10
y8=y8+jh11
case jh3=g
@ prow(),20 say "|        |        |        | ì
       |        |        |        |          |        |        |  ì
      |        |        |        |        |          |"
@ prow(),170 say str(jh4,6,1)+" |"+str(jh5,6,1)+"  ì
|"+str(jh6,6,1)+"  |"+str(jh7,6,1)+"  |"+str(jh8,6,1)+"  |"+str(jh9,6,1)+"  ì
|"+str(jh10,6,1)+"  |"+str(jh11,10,2)+"|"
z1=z1+jh4
z2=z2+jh5
z3=z3+jh6
z4=z4+jh7
z5=z5+jh8
z6=z6+jh9
z7=z7+jh10
z8=z8+jh11
endcase
l=l+1
cont
if .not. eof()
if l>=20
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
====="
@ prow(),137 say ì
"=================================================================ì
========================================="
p=p+1
ejec
exit
else
@ prow()+1,1 say ì
"|---------|--------|--------|--------|--------|--------|--------|ì
--------|--------|----------|"
@ prow(),95 say ì
"--------|--------|--------|--------|--------|--------|--------|-ì
---------|--------|--------|--------|--------|--------|--------|--ì
------|----------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"|---------|--------|--------|--------|--------|--------|--------|ì
--------|--------|----------"
@ prow(),94 say ì
"|--------|--------|--------|--------|--------|--------|--------|-ì
---------|--------|--------|--------|--------|--------|--------|--ì
------|----------|"
a1=.f.
endif
enddo
enddo a1
@ prow()+1,1 say "|║╧     ╝╞|        ì
|"+str(x1,8,1)+"|"+str(x2,8,1)+"|"+str(x3,8,1)+"|"+str(x4,8,1)+"|"+ì
str(x5,8,1)+"|"+str(x6,8,1)+"|"+str(x7,8,1)+"|"+str(x8,10,2)
@ prow(),94 say ì
"|"+str(y1,8,1)+"|"+str(y2,8,1)+"|"+str(y3,8,1)+"|"+str(y4,8,1)+"|"ì
+str(y5,8,1)+"|"+str(y6,8,1)+"|"+str(y7,8,1)+"|"+str(y8,10,2)
@ prow(),169 say str(z1,8,1)+"|"+str(z2,8,1)+"|"+str(z3,8,1)+"|"+str(z4,8,1)+"|"+str(z5,8,1)+"|"+str(z6,8,1)+"|"+str(z7,8,1)+"|"+str(z8,10,2)+"|"
@ prow()+1,1 say "=============================================================================================="
@ prow(),95 say "===================================================================================================================================================="
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
retu