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

Text File | 1980-01-01 | 2.8 KB | 139 lines

clear
set talk off
set device to screen
close database
use bh
a='        '
@ 4,10 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get a pict '99.99.99'
read
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
loca for h7>h10 .and. h9<=a
if eof()
clear
@ 4,10 say "├╗╙╨╤╙╞┌╜╗╗⌡╡─║╧═¼"
@ 8,50 clear
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,0 say "╢⌐╗⌡╡Ñ║┼  ▒╕╝■├√│╞        ╢⌐╗⌡╩²┴┐  ╥╤╡╜╗⌡┴┐  ╙ª╜╗╗⌡╞┌  ╣²╞┌╠∞╩² ì
    │º╖╜"
l=2
do while .not. eof()
@ l,0 say " "+h1
@ l,9 say " "+h4
@ l,26 say " "+str(h7,8,2)
@ l,36 say " "+str(h10,8,2)
b=dtoc(h9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,45 say " "+b
c=a-h9
@ l,54 say " "+str(c,6)
@ l,63 say " "+h3
l=l+1
cont
if .not. eof()
if l>=9
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
loca for h7>h10 .and. h9<=a
d=recno()
p=1
a1=.t.
do while a1
@ prow()+1,55 say "▒╕╝■║╧═¼┤▀╗⌡╡Ñ"
@ prow()+1,1 say "                   "
@ prow()+1,105 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
=========================================================="
@ prow()+1,1 say "|╢⌐╗⌡╡Ñ║┼    |▒╕╝■├√│╞        |╣µ╕±                ì
|╡Ñ╝█    ì
|╢⌐╗⌡╩²┴┐|╥╤╡╜╗⌡┴┐|╢⌐╗⌡╚╒╞┌|╙ª╡╜╗⌡╞┌|╣²╞┌╠∞╩²|╣⌐╙ª│º╖╜        |"
@ prow()+1,1 say ì
"|------------|----------------|--------------------|--------|-------ì
-|--------|--------|--------|--------|-----------ì
-----|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+h1
@ prow(),14 say "|"+h4
@ prow(),31 say "|"+h5
@ prow(),52 say "|"+str(h6,8,2)
@ prow(),61 say "|"+str(h7,8,2)
@ prow(),70 say "|"+str(h10,8,2)
b=dtoc(h8)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),79 say "|"+b
b=dtoc(h9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),88 say "|"+b
c=a-h9
@ prow(),97 say "|"+str(c,6)
@ prow(),106 say "|"+h3+"|"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
=========================================================="
ejec
p=p+1
exit
a1=.t.
else
@ prow()+1,1 say ì
"|------------|----------------|--------------------|--------|-------ì
-|--------|--------|--------|--------|----------------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
=========================================================="
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
retu