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

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

clear
set talk off
set device to screen
close database
use yjh
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict '99.99'
read
j1=substr(a,4,2)
j2='01'
j3=substr(a,1,2)
b=j1+'/'+j2+'/'+j3
b=ctod(b)
t=month(b)
if t>=1 .and. t<=7
t1=t/2
t2=int(t1)
if t1-t2<>0
c=b+30
else
c=b+29
endif
else
t1=t/2
t2=int(t1)
if t1-t2<>0
c=b+29
else
c=b+30
endif
endif
if t=2
c=b+27
endif
loca for y3>=b .and. y3<=c
if eof()
clear
@ 4,10 say "▒╛╘┬╖▌├╗╙╨╙ª╗╗╙═╡─╔Φ▒╕"
@ 7,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
cont
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
loca for y3>=b .and. y3<=c
p=1
a1=.t.
do while a1
@ prow()+1,30 say "  "+a+"  ╔Φ▒╕╗╗╙═╝╞╗«"
@ prow()+1,30 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 "|"+y1
@ 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
cont
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