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

Text File | 1979-12-31 | 4.5 KB | 210 lines

clear
set talk off
set device to screen
close database
sele 3
use dw
sele 1
use sb index sb1
sele 2
use bfm
a='         '
t1='        '
clear
a1=.t.
do while a1
@ 1,1 say "╔Φ▒╕▒α║┼:" get a
@ 2,1 say "╜±╠∞╡─╚╒╞┌" get t1 pict 'xx.xx.xx'
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(y/n) ' to w
if w<>'y'
loop
endif
a1=.f.
enddo a1
j1=substr(t1,4,2)
j2=substr(t1,7,2)
j3=substr(t1,1,2)
t1=j1+'/'+j2+'/'+j3
t1=ctod(t1)
repl all bfm3 with 'n'
goto top
@ 3,0 clear
q=1
l=2
a1=.t.
do while a1
@ 8,0 clear
b='  '
if l>=8
@ q+1,40 clear
@ q,40 say "▒¿╖╧╘¡╥≥┬δ:" get b
read
q=q+1
else
@ l,1 say "▒¿╖╧╘¡╥≥┬δ:" get b
read
endif
if b='h'
t=l
sele 2
do hel3
a1=.t.
l=t
@ l,1 clear
loop
else
loca for bfm1=b
repl bfm3 with 'y'
endif
@ 8,0 clear
wait '╗╣╙╨▒≡╡─╘¡╥≥┬≡(y/n)' to w
if w='y'
l=l+1
loop
endif
a1=.f.
enddo a1
sele 1
seek a
repl sb32 with 'y'
clear
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
@ 0,10 say "                    ╔Φ▒╕▒¿╖╧╔Ω╟δ╡Ñ"
@ 1,1 say "              "
t2=dtoc(t1)
j1=substr(t2,7,2)
j2=substr(t2,4,2)
j3=substr(t2,1,2)
t2=j1+'.'+j3+'.'+j2
@ 2,55 say "╠ε▒φ╚╒╞┌:"+t2
@ 3,1 say ì
"=================================================================ì
========="
@ 4,1 say "|╔Φ▒╕▒α║┼|"+sb1
@ 4,21 say "|╔Φ▒╕├√│╞|"+sb3
@ 4,48 say "|╨═    ║┼|"+sb4+"|"
@ 5,1 say ì
"|--------|----------|--------|-----------------|--------|--------------ì
--|"
a1=dtoc(sb12)
j1=substr(a1,7,2)
j2=substr(a1,4,2)
j3=substr(a1,1,2)
a1=j1+'.'+j3+'.'+j2
@ 6,1 say "|╩╣╙├╚╒╞┌|"+a1
t1=t1-sb12
t1=t1/365
@ 6,21 say "|╥╤╙├─Ω╧▐|"+str(t1,2)
@ 6,48 say "|╓╪    ┴┐|"+str(sb6,6,2)+"          |"
@ 7,1 say ì
"|--------|----------|--------|-----------------|--------|----------ì
------|"
@ 8,1 say "|ԭ    ֵ|"+str(sb15,10,2)
@ 8,21 say "|╥╤╠ß╒█╛╔|"+str(sb18,10,2)
@ 8,48 say "|╛╗    ╓╡|"+str(sb17,10,2)+"      |"
@ 9,1 say ì
"|--------|----------|--------|-----------------|--------|---------ì
-------|"
@ 10,1 say "|╛╗ ▓╨ ╓╡|"+str(sb26,8,2)
@ 10,21 say "|╒█╛╔─Ω╧▐|"+str(sb16,2)
a5=sb28
sele 3
loca for dw1=a5
@ 10,48 say "|╩╣╙├╡Ñ╬╗|"+dw2+"    |"
@ 11,1 say ì
"|----------------------------------------------------------------ì
--------|"
sele 2
loca for bfm3='y'
p=1
@ 12,1 say "|▒¿╖╧|"+str(p,2)+".  "+bfm2+"                          ì
      |"
cont
p=p+1
l=13
do while .not. eof()
@ l,1 say "|    |"+str(p,2)+".  "+bfm2+"                          ì
      |"
l=l+1
cont
p=p+1
enddo
do while l<18
@ l,1 say "|    |                                                ì
                   |"
l=l+1
enddo
@ prow()+1,1 say "|╘¡╥≥|                                                ì
                   |"
@ prow()+1,1 say ì
"|----------------------------------------------------------------ì
--------|"
@ prow()+1,1 say "|╩╣╙├╡Ñ|                                      ì
                           |"
l=1
do while l<5
@ prow()+1,1 say "|      |                                              ì
                   |"
l=l+1
enddo
@ prow()+1,1 say "|╬╗╥Γ╝√|                                              ì
 ╟⌐╫╓:             |"
@ prow()+1,1 say ì
"|----------------------------------------------------------------ì
--------|"
@ prow()+1,1 say "|╗·╢»▓┐|                                          ì
                       |"
l=1
do while l<5
@ prow()+1,1 say "|      |                                              ì
                   |"
l=l+1
enddo
@ prow()+1,1 say "|├┼╥Γ╝√|                                          ì
     ╟⌐╫╓:             |"
@ prow()+1,1 say ì
"|----------------------------------------------------------------ì
--------|"
@ prow()+1,1 say "|│º╔≤┼·|                                              ì
                   |"
l=1
do while l<5
@ prow()+1,1 say "|      |                                              ì
                   |"
l=l+1
enddo
@ prow()+1,1 say "|╥Γ  ╝√|                                              ì
 ╟⌐╫╓:             |"
@ prow()+1,1 say ì
"|----------------------------------------------------------------ì
--------|"
@ prow()+1,1 say "|╔╧╝╢╔≤|                                              ì
                   |"
l=1
do while l<5
@ prow()+1,1 say "|      |                                              ì
                   |"
l=l+1
enddo
@ prow()+1,1 say "|┼·╥Γ╝√|                                              ì
 ╟⌐╫╓:             |"
@ prow()+1,1 say ì
"=================================================================ì
========="
set print on
? chr(13)
set print off
sele 2
set device to screen
a1=.t.
clos data
retu