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

Text File | 1979-12-31 | 3.5 KB | 186 lines

clear
set talk off
set device to screen
close database
sele 1
use dw index dw1
sele 2
use ylf
loca for ylf5<>'y'
c=recno()
a1=.t.
do while a1
clear
@ 1,1 say "╚▌╞≈▒α║┼   ╝∞╤Θ╚╒╞┌  ╝∞╤Θ└α▒≡           ╝∞╤Θ─┌╚▌      ì
           ╝∞╤Θ╡Ñ╬╗"
if .not. eof()
goto c
else
clear
@ 4,10 say "╚½▓┐╚▌╞≈╢╝├╗╬╩╠Γ"
@ 7,50 clear
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
l=2
do while .not. eof()
@ l,1 say " "+ylf1
b=dtoc(ylf2)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,10 say " "+b
if ylf3='1'
@ l,21 say " "+"═Γ╝∞"
endif
if ylf3='2'
@ l,21 say " "+"─┌╝∞"
endif
if ylf3='3'
@ l,21 say " "+"╚½├µ╝∞╤Θ"
endif
@ l,33 say " "+ylf4
a=ylf6
sele 1
seek a
@ l,63 say " "+dw2
sele 2
cont
l=l+1
if .not. eof()
if l>=9
@ 8,50 clear
wait "░┤╚╬╥Γ╝ⁿ╝╠╨°" to w
c=recno()
goto bott
skip
clear
a1=.t.
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
retu
endif
close database
sele 1
use ylf
sele 2
use yl
sele 3
use dw index dw1
set device to print
set print on
clear
sele 1
loca for ylf5<>'y'
if .not. eof()
t=recno()
else
set print off
set device to screen
retu
endif
set cons off
? chr(27)+"IJ"
set print off
set cons on
p=1
a1=.t.
do while a1
goto t
@ 1,45 say "╝∞╤Θ║≤╙╨╬╩╠Γ╡─╤╣┴ª╚▌╞≈"
@ 2,1 say "                   "
@ 3,115 say "╡┌"+str(p,2)+"╥│"
@ 4,0 say ì
"=================================================================ì
================================================================="
@ 5,0 say "|╚▌╞≈▒α║┼ |└α▒≡|░▓╫░╡╪╡π  ì
  |╤╣┴ª(Kg/cm*cm)|╬┬╢╚ C|╜Θ╓╩        |╝∞╤Θ╚╒╞┌|╝∞╤Θ└α▒≡|╝∞╤Θ─┌╚▌                      |╝∞╤Θ╡Ñ╬╗       ì
 |"
@ 6,0 say ì
"|---------|----|------------|--------------|------|------------|---ì
-----|--------|------------------------------|----------------|"
l=7
do while .not. eof()
@ prow()+1,0 say "|"+ylf1
a=ylf1
sele 2
loca for yl1=a
*do case
*case yl3='1'
*@ prow(),9 say "|"+"1 └α"
*case yl3='2'
*@ prow(),9 say "|"+"2 └α"
*case yl3='3'
*@ prow(),9 say "|"+"3 └α"
*otherwise
*@ prow(),9 say "|"
*endcase
@ prow(),pcol() say "|"+yl3
@ prow(),pcol() say "|"+yl29
@ prow(),pcol() say "|"+str(yl21,3)+"           "
@ prow(),pcol() say "|"+str(yl22,3)+"   "
@ prow(),pcol() say "|"+yl23
sele 1
k=dtoc(ylf2)
j1=substr(k,7,2)
j2=substr(k,1,2)
j3=substr(k,4,2)
k=j1+'.'+j2+'.'+j3
@ prow(),pcol() say "|"+k
if ylf3='1'
@ prow(),pcol() say "|"+"═Γ╝∞    "
endif
if ylf3='2'
@ prow(),pcol() say "|"+"─┌╝∞    "
endif
if ylf3='3'
@ prow(),pcol() say "|"+"╚½├µ╝∞╤Θ"
endif
@ prow(),pcol() say "|"+ylf4
a=ylf6
sele 3
seek a
@ prow(),pcol() say "|"+dw2+"    |"
sele 1
cont
l=l+1
if .not. eof()
if l>=50
t=recno()
p=p+1
@ prow()+1,0 say ì
"=================================================================ì
================================================================="
ejec
goto bott
skip
else
@ prow()+1,0 say ì
"|---------|----|------------|--------------|------|------------|--------|--------|------------------------------|------------ì
----|"
l=l+1
endif
else
@ prow()+1,0 say ì
"==================================================================ì
================================================================"
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
close database
a1=.t.
retu