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

Text File | 1980-01-01 | 3.2 KB | 196 lines

clear
set talk off
close database
set device to screen
sele 1
use sb
set index to sb1
sele 2
use yh
set index to yh2
sele 3
use yhf
clear
@ 1,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞     ╚≤╗¼╡π▒α║┼    ╚≤╗¼╡π▓┐╬╗  ì
  ╗¼╙═├√│╞  ╗╗╙═╚╒╞┌  ╗╗╙═╩²┴┐"
l=2
do while .not. eof()
a=yhf1
b=yhf2
c=dtoc(yhf3)
if c='  /  /  '
sele 1
seek a
d=sb12
f=sb3
g=sb4
sele 2
loca for g=yh1 .and. b=yh2
if .not. eof()
e=d+yh12
@ l,1 say " "+a
@ l,11 say " "+f
@ l,28 say " "+b
@ l,38 say " "+yh3
t=month(e)
if 4<=t .and. t<=9
@ l,55 say " "+yh5
else
@ l,55 say " "+yh6
endif
e=dtoc(e)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,61 say " "+e
@ l,72 say " "+str(yh13,3)
l=l+1
endif
else
c=ctod(c)
sele 1
seek a
f=sb3
g=sb4
sele 2
loca for g=yh1 .and. b=yh2
if .not. eof()
e=c+yh12
@ l,1 say " "+a
@ l,11 say " "+f
@ l,28 say " "+b
@ l,38 say " "+yh3
t=month(e)
if 4<=t .and. t<=9
@ l,55 say " "+yh5
else
@ l,55 say " "+yh6
endif
e=dtoc(e)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,61 say " "+e
@ l,72 say " "+str(yh13,3)
l=l+1
endif
endif
sele 3
skip
enddo
wait '   ┤≥╙í┬≡(y/n) ' to w
if w='y'
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
@ 1,1 say "                                       ╔Φ▒╕╗╗╙═╝╞╗«▒φ"
@ 2,1 say "                 "
@ 3,1 say ì
"=================================================================ì
======================================="
@ 4,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |╚≤╗¼╡π▒α║┼|╚≤╗¼╡π▓┐╬╗      ì
|╣µ╢¿╙├╙═├√│╞|╣µ╢¿┤·╙├╙═  |╗╗╙═╚╒╞┌|╗╗╙═╩²┴┐(Kg)|"
@ 5,1 say ì
"|---------|----------------|----------|----------------|---------ì
---|------------|--------|------------|"
sele 3
goto top
do while .not. eof()
q=1
a=yhf1
b=yhf2
c=dtoc(yhf3)
if c='  /  /  '
sele 1
seek a
d=sb12
f=sb3
g=sb4
sele 2
loca for g=yh1 .and. b=yh2
if .not. eof()
e=d+yh12
p=2
@ prow()+1,1 say "|"+a
@ prow(),11 say "|"+f
@ prow(),28 say "|"+b
@ prow(),39 say "|"+yh3
t=month(e)
if 4<=t .and. t<=9
@ prow(),56 say "|"+yh5
@ prow(),69 say "|"+yh7
else
@ prow(),56 say "|"+yh6
@ prow(),69 say "|"+yh8
endif
e=dtoc(e)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ prow(),82 say "|"+e
@ prow(),91 say "|"+str(yh13,3)+"         |"
endif
else
sele 1
seek a
f=sb3
g=sb4
sele 2
loca for g=yh1 .and. b=yh2
if .not. eof()
c=ctod(c)
e=c+yh12
p=2
@ prow()+1,1 say "|"+a
@ prow(),11 say "|"+f
@ prow(),28 say "|"+b
@ prow(),38 say "|"+yh3
t=month(e)
if 4<=t .and. t<=9
@ prow(),56 say "|"+yh5
@ prow(),69 say "|"+yh7
else
@ prow(),56 say "|"+yh6
@ prow(),69 say "|"+yh8
endif
e=dtoc(e)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ prow(),82 say "|"+e
@ prow(),91 say "|"+str(yh13,3)+"         |"
endif
endif
sele 3
skip
if .not. eof()
if p=2
@ prow()+1,1 say ì
"|---------|----------------|----------|----------------|---------ì
---|------------|--------|------------|"
p=1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
======================================="
endif
enddo
set print on
? chr(13)
set print off
endif
set device to screen
a1=.t.
retu