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

Text File | 1980-01-01 | 2.6 KB | 144 lines

clear
set talk off
set device to screen
close database
sele 1
use bj
sele 2
use bh
sele 1
loca for b5-b6>0
if eof()
@ 4,15 say "╬▐╣²╩ú▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait ' ' to w
retu
endif
? "▒╕╝■▒α║┼   ▒╕╝■├√│╞      ╡▒╟░┐Γ┤µ ╬┤╜╗╢⌐╗⌡  ╫ε╕▀┐Γ┤µ   ╡Ñ╝█    ╣²╩ú╩²ì
┴┐   ╝█╓╡"
l=2
x=0
do while .not. eof()
y=0
j=b1
sele 2
loca for h1=j .and. h7>h10
if .not. eof()
y=h7-h10
endif
sele 1
a=b5-b6+y
if a>0
@ l,1 say " "+b1
@ l,11 say " "+b2
@ l,24 say " "+str(b5,8,2)
@ l,33 say " "+str(y,8,2)
@ l,42 say " "+str(b6,8,2)
@ l,51 say " "+str(b4,8,2)
@ l,60 say " "+str(a,8,2)
b=a*b4
@ l,69 say " "+str(b,8,2)
x=x+b
l=l+1
endif
if l=9
l=0
wait '                                                             ░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
clear
@ l,1 say "▒╕╝■▒α║┼   ▒╕╝■├√│╞     ╡▒╟░┐Γ┤µ ╬┤╜╗╢⌐╗⌡   ╫ε╕▀┐Γ┤µ   ╡Ñ╝█    ì
╣²╩ú╩²┴┐  ╝█╓╡"
l=l+1
endif
cont
enddo
@ l,1 say "╫▄╝█╓╡╬¬ "+str(x,8,2)+"╘¬"
wait '            ┤≥╙í┬≡(y/n)  ' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
r=1
sele 1
loca for b5>b6
a1=.t.
do while a1
@ prow()+1,1 say "                        ╣² ╩ú ▒╕ ╝■ ╡Ñ                 ì
"
@ prow()+1,1 say "                          "
@ prow()+1,70 say "(╡┌"+str(r,2)+"╥│)"
@ prow()+1,1 say "===================================================================================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕  ╝■  ├√  │╞  |╡▒╟░┐Γ┤µ|╢⌐╗⌡╬┤╜╗|╫ε╕▀┐Γ┤µ|╡Ñ  ╝█ ì
 |╣²ì
  ╩ú┴┐|╝█      ╕±|"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|-----ì
---|-------ì
---|"
l=5
a=0
do while .not. eof()
y=0
j=b1
sele 2
loca for h1=j .and. h7>h10
y=h7-h10
sele 1
z=b4
a1=b5-b6+y
if a1>0
b=z*a1
a=a+b
@ prow()+1,1 say "|"+b1
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+str(b5,8,2)
@ prow(),37 say "|"+str(y,8,2)
@ prow(),46 say "|"+str(b6,8,2)
@ prow(),55 say "|"+str(b4,8,2)
@ prow(),64 say "|"+str(a1,8,2)
@ prow(),73 say "|"+str(b,10,2)+"|"
l=l+1
cont
endif
if .not. eof()
if l>=54
@ prow()+1,1 say ì
"=================================================================ì
==================="
ejec
r=r+1
exit
else
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|-ì
----ì
---|----------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
==================="
a1=.f.
endif
enddo
enddo a1
@ prow()+1,1 say "╫▄╝█╓╡╬¬ "+str(a,8,2)+"╘¬"
set print on
? chr(13)
close database
set print off
set device to screen
a1=.t.
set cons on
return