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

Text File | 1979-12-31 | 5.0 KB | 228 lines

clear
set talk off
close database
use jh index jh1
if eof() .and. bof()
@ 4,0 clear
wait '               ╗╣├╗┼┼╨▐└φ╝╞╗«ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
x1=0
x2=0
x3=0
x4=0
x5=0
x6=0
x7=0
x8=0
x9=0
x10=0
x11=0
x12=0
y1=0
y2=0
y3=0
y4=0
y5=0
y6=0
y7=0
y8=0
y9=0
y10=0
y11=0
y12=0
p=1
a1=.t.
do while a1
set cons off
set print on
? chr(27)+"IJ"
@ prow()+1,55 say "╔Φ▒╕─Ω╫█║╧╨▐└φ╝╞╗«"
? chr(27)+"II"
set print off
set cons on
@ prow()+1,1 say "                   "
@ prow(),240 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
====="
@ prow(),137 say ì
"=================================================================ì
======================================================="
@ prow()+1,1 say "|         |    |          ú▒       |         ì
ú▓        |         ú│        |         ú┤        |         ú╡ ì
       |        ú╢         |"
@ prow(),137 say "        ú╖         |        ú╕         |        ì
 ú╣        |        ú▒ú░       |        ú▒ú▒       |        ú▒ú▓     ì
  |"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ ì
|└α▒≡|-------------------|-------------------|-------------------|ì
-------------------|-------------------|-------------------|"
@ prow(),137 say ì
"-------------------|-------------------|-------------------|-----ì
--------------|-------------------|-------------------|"
@ prow()+1,1 say "|         |    |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ì
╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├  ì
 |  ╣ñ╩▒  |   ╖╤╙├  "
@ prow(),136 say "|  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒ ì
 |   ╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ╖╤╙├   |  ╣ñ╩▒  |   ì
╖╤╙├   |"
@ prow()+1,1 say ì
"|---------|----|--------|----------|--------|----------|--------|ì
----------|--------|----------|--------|----------|--------|------ì
----|"
@ prow(),137 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
a=jh4+jh5+jh6+jh7+jh8+jh9+jh10
q=16
p1=1
do while p1<=jh3
if p1=jh3
if jh3=12 .and. p1=12
@ prow(),q say "|"+str(a,8,1)+"|"+str(jh11,10,2)+"|"
else
@ prow(),q say "|"+str(a,8,1)+"|"+str(jh11,10,2)
endif
else
@ prow(),q say "|        |          "
endif
q=q+20
p1=p1+1
enddo
do while p1<=12
if p1<>12
@ prow(),q say "|        |          "
else
@ prow(),q say "|        |          |"
endif
q=q+20
p1=p1+1
enddo
do case
case jh3=1
x1=x1+a
y1=y1+jh11
case jh3=2
x2=x2+a
y2=y2+jh11
case jh3=3
x3=x3+a
y3=y3+jh11
case jh3=4
x4=x4+a
y4=y4+jh11
case jh3=5
x5=x5+a
y5=y5+jh11
case jh3=6
x6=x6+a
y6=y6+jh11
case jh3=7
x7=x7+a
y7=y7+jh11
case jh3=8
x8=x8+a
y8=y8+jh11
case jh3=9
x9=x9+a
y9=y9+jh11
case jh3=10
x10=x10+a
y10=y10+jh11
case jh3=11
x11=x11+a
y11=y11+jh11
case jh3=12
x12=x12+a
y12=y12+jh11
endcase
skip
l=l+1
if .not. eof()
if l>=20
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
====="
@ prow(),137 say ì
"=================================================================ì
======================================================="
p=p+1
exit
ejec
else
@ prow()+1,1 say ì
"|---------|----|--------|----------|--------|----------|--------|ì
----------|--------|----------|--------|----------|--------|------ì
----|"
@ prow(),137 say ì
"--------|----------|--------|----------|--------|----------|-----ì
---|----------|--------|----------|--------|----------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"|---------|----|--------|----------|--------|----------|--------|ì
----------|--------|----------|--------|----------|--------|------ì
----|"
@ prow(),137 say ì
"--------|----------|--------|----------|--------|----------|-----ì
---|----------|--------|----------|--------|----------|"
a1=.f.
endif
enddo
enddo a1
@ prow()+1,1 say "|║╧     ╝╞|    ì
|"+str(x1,8,1)+"|"+str(y1,10,2)+"|"+str(x2,8,1)+"|"+str(y2,10,2)+"ì
|"+str(x3,8,1)+"|"+str(y3,10,2)+"|"+str(x4,8,1)+"|"+str(y5,10,2)
@ prow(),116 say ì
"|"+str(x6,8,1)+"|"+str(y6,10,2)+"|"+str(x7,8,1)+"|"+str(y7,10,2)+ì
"|"+str(x8,8,1)+"|"+str(y8,10,2)+"|"+str(x9,8,1)+"|"+str(y9,10,2)+ì
str(x10,8,1)+"|"+str(y10,10,2)
@ prow(),216 say ì
"|"+str(x11,8,1)+"|"+str(y11,10,2)+"|"+str(x12,8,1)+"|"+str(y12,10ì
,2)+"|"
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
====="
@ prow(),137 say ì
"=================================================================ì
======================================================="
set print on
? chr(13)
set print off
set device to screen
set cons on
retu