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

Text File | 1980-01-01 | 2.4 KB | 128 lines

clear
set talk off
set device to screen
close database
use yjh
if eof() .and. bof()
clear
@ 4,10 say "╗╣├╗┼┼─Ω╗╗╙═╝╞╗«ú¼╟δ╖╡╗╪┼┼─Ω╗╗╙═╝╞╗«"
@ 6,1 clear
wait "░┤╚╬╥Γ╝ⁿ╖╡╗╪" to w
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕▒α║┼  ╚≤╗¼╡π▒α║┼   ╚≤╗¼╡π▓┐╬╗           ╗╗╙═╩▒╝Σ  ╗¼╙═├√│╞    ì
╗╗╙═┴┐(Kg)"
l=2
do while .not. eof()
@ l,1 say " "+y1
@ l,12 say " "+y2
@ l,24 say " "+y6
e=dtoc(y3)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,44 say " "+e
@ l,56 say " "+y4
@ l,67 say " "+str(y5,6,2)
l=l+1
skip
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
a1=.t.
retu
endif
close database
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
sele 1
use sb index sb1
sele 2
use yjh
p=1
a1=.t.
do while a1
a=dtoc(y3)
a=substr(a,7,2)
@ prow()+1,40 say "  "+a+"─Ω╔Φ▒╕╗╗╙═╝╞╗«"
@ prow()+1,40 say "  "+"~~~~~~~~~~~~~~~~~~"
@ prow()+1,1 say "                                                  ì
                                                   "
@ prow()+1,90 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
==================================="
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |░▓╫░╡╪╡π    ì
|╚≤╗¼╡π▒α║┼|╚≤╗¼▓┐╬╗        |╚≤╗¼╙═├√│╞|╙ª╗╗╙═╚╒╞┌|╙ª╗╗╙═┴┐|"
@ prow()+1,1 say ì
"|---------|----------------|------------|----------|-------------ì
---|----------|----------|--------|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+y1
a=y1
sele 1
seek a
@ prow(),11 say "|"+sb3
@ prow(),28 say "|"+sb29
sele 2
@ prow(),41 say "|"+y2
@ prow(),52 say "|"+y6
@ prow(),69 say "|"+y4
e=dtoc(y3)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ prow(),80 say "|"+e
@ prow(),91 say "|"+str(y5,6,2)+"  |"
l=l+1
skip
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
==================================="
p=p+1
ejec
exit
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.
retu