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

Text File | 1979-12-31 | 4.1 KB | 152 lines

clear
set talk off
set device to screen
close database
sele 1
use sb index sb1
sele 2
use xx
sele 3
use sm
sele 4
use ngz
acce "╟δ╩Σ╚δ╔Φ▒╕▒α║┼:" to a
sele 1
seek a
if eof()
@ 4,0 clea
wait '╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
retu
endif
b=sb4
sele 2
loca for xx2=b .and. xx13='y'
if eof()
b=0
else
b=1
endif
clear
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
@ 1,1 say "                          "+a+"╔Φ▒╕▒¿╖╧╦∙╨Φ╡─╨┼╧ó"
@ 2,1 say "           "
@ 3,1 say ì
"=================================================================ì
===================================================================="
@ 4,1 say "| ╔Φ  ▒╕  ├√  │╞ |╞⌠╙├╩▒╝Σ|╥╤╩╣╙├─Ω╧▐|  ╘¡  ╓╡  ì
| ╥╤╠ß╒█╛╔ |  ╛╗  ╓╡  |  ╛╗▓╨╓╡  ì
|└█╝╞┐¬╢»╠¿╩▒|┤≤╨▐└φ┤╬╩²|      ╩╟╖±╠╘╠¡╗·╨═        |"
@ 5,1 say ì
"|----------------|--------|----------|----------|----------|-----ì
-----|----------|------------|----------|--------------------------|"
sele 1
@ 6,1 say "|"+sb3
d=dtoc(sb12)
@ 6,18 say "|"+d
e=10
@ 6,27 say "|"+str(e,2)
@ 6,38 say "|"+str(sb15,10,2)
@ 6,49 say "|"+str(sb18,10,2)
@ 6,60 say "|"+str(sb17,10,2)
@ 6,71 say "|"+str(sb26,10,2)
@ 6,82 say "|"+str(sb30,8)
@ 6,95 say "|"+str(sb50,1)
if b=0
c='         ▓╗╩╟'
else
c='           ╩╟'
endif
@ 6,106 say "|"+c+"             |"
@ 7,1 say ì
"|================|========|==========|==========|==========|=====ì
=====|==========|============|==========|==========================|"
@ 8,1 say "|╩┘├ⁿ╓▄╞┌╖╤╙├╟Θ┐÷:                                ì
                                                                ì
                  |"
@ 9,1 say ì
"|================================================================ì
===================================================================|"
@ 10,1 say "|╡≈  ╤╨  ╖╤|╔Φ  ╝╞  ì
╖╤|╣║╓├╓╞╘∞╖╤|░▓╫░╡≈╩╘╖╤|╣╩╒╧╨▐╕┤╖╤|╩┬╣╩╨▐╕┤╖╤|▒ú╤°╖╤    ì
|    ╨▐└φ╖╤|╕─╘∞╖╤    |╞Σ╦ⁿ╬¼│╓╖╤|─▄╘┤╖╤    |╫▄╖╤╙├    |"
@ 11,1 say ì
"|----------|----------|----------|----------|----------|-------ì
---|----------|----------|----------|----------|----------|-----ì
-----|"
sele 3
loca for sm1=a
@ 12,1 say "|"+str(sm2,10,2)
@ 12,12 say "|"+str(sm3,10,2)
@ 12,23 say "|"+str(sm4,10,2)
@ 12,34 say "|"+str(sm5,10,2)
@ 12,45 say "|"+str(sm6,10,2)
@ 12,56 say "|"+str(sm7,10,2)
@ 12,67 say "|"+str(sm8,10,2)
@ 12,78 say "|"+str(sm9,10,2)
@ 12,89 say "|"+str(sm10,10,2)
@ 12,100 say "|"+str(sm11,10,2)
@ 12,111 say "|"+str(sm12,10,2)
c=sm2+sm3+sm4+sm5+sm6+sm7+sm8+sm9+sm10+sm11+sm12
@ 12,122 say "|"+str(c,10,2)+"|"
@ 13,1 say ì
"|==========|==========|==========|==========|==========|=========ì
=|==========|==========|==========|==========|==========|=========ì
=|"
@ 14,1 say "|└·─Ω╣╩╒╧╟Θ┐÷:                                        ì
                                                                  ì
            |"
@ 15,1 say ì
"|================================================================ì
==================================================================ì
=|"
@ 16,1 say "| ─Ω╖▌ | ╣╩╒╧┤╬╩² |╣╩╒╧═ú╗·╩▒╝Σ|  ì
┐¬╢»╠¿╩▒  |╬¼╨▐╡╚┤²╩▒╝Σ|╞╜╛∙╬¼╨▐╡╚┤²╩▒╝Σ|╞╜╛∙╨▐└φ╩▒╝Σ|╞╜╛∙│÷╣╩╒╧╩▒╝Σ|╞╜╛∙═ú╗·╩▒╝Σ ì
|┐╔└√╙├┬╩       |"
@ 17,1 say ì
"|------|----------|------------|------------|------------|-------ì
---------|------------|--------------|-------------|--------------ì
-|"
sele 4
loca for ngz2=a
do while .not. eof()
@ prow()+1,1 say "|"+ngz1
@ prow(),8 say "|"+str(ngz3,4)
@ prow(),19 say "|"+str(ngz4,6,1)
@ prow(),32 say "|"+str(ngz5,5)
@ prow(),45 say "|"+str(ngz6,6,1)
b=ngz6/ngz3
@ prow(),58 say "|"+str(b,6,1)
c=(ngz4-ngz6)/ngz3
@ prow(),75 say "|"+str(c,6,1)
d=ngz5/ngz3
@ prow(),88 say "|"+str(d,6,1)
e=ngz4/ngz3
@ prow(),103 say "|"+str(e,6,1)
f=ngz5/(ngz5+ngz4)*100
@ prow(),117 say "|"+str(f,6,2)+"         |"
cont
if .not. eof()
@ prow()+1,1 say ì
"|------|----------|------------|------------|------------|-------ì
---------|------------|--------------|-------------|--------------ì
-|"
else
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
=="
endif
enddo
set print on
? chr(13)
set print off
set device to screen
a1=.t.
retu