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

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

clear
set talk off
set device to screen
close database
c=p100
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
use yl
loca for yl31+yl26<=c .or. yl32+yl27<=c .or. yl33+yl28<=c
if eof()
clear
@ 4,18 say "╬▐╙ª╝∞╤Θ╡─╤╣┴ª╚▌╞≈ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "╚▌╞≈▒α║┼  ╚▌╞≈├√│╞   ╚▌╞≈└α▒≡  ╔╧┤╬╝∞╤Θ╚╒╞┌  ╝∞╤Θ╓▄╞┌  ì
╝∞╤Θ└α▒≡"
l=2
do while .not. eof()
@ l,1 say " "+yl1
@ l,9 say " "+yl2
@ l,24 say " "+yl3
do case
case yl33+yl28<c
a=dtoc(yl33)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ l,32 say " "+a
@ l,45 say " "+str(yl28,4)
@ l,55 say " "+"╚½├µ╝∞╤Θ"
case yl32+yl27<c
a=dtoc(yl32)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ l,32 say " "+a
@ l,45 say " "+str(yl27,4)
@ l,55 say " "+"─┌▓┐╝∞╤Θ"
case yl31+yl26<c
a=dtoc(yl31)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ l,32 say " "+a
@ l,45 say " "+str(yl26,4)
@ l,55 say " "+"═Γ▓┐╝∞╤Θ"
endcase
l=l+1
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
a1=.t.
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
retu
endif
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
loca for yl31+yl26<=c .or. yl32+yl27<=c .or. yl33+yl28<=c
p=1
a1=.t.
do while a1
clear
@ prow()+1,40 say "╙ª╝∞╤Θ╡─╚▌╞≈"
@ prow()+1,1 say "                       "
@ prow()+1,90 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"==================================================================ì
===================================="
@ prow()+1,1 say "|╚▌╞≈▒α║┼ |╚▌╞≈├√│╞    |╚▌╞≈└α▒≡|╤╣┴ª Mpa|╬┬╢╚ C|╜Θ╓╩  ì
      |╔╧┤╬╝∞╤Θ╚╒╞┌|╝∞╤Θ╓▄╞┌|╝∞╤Θ└α▒≡|╣²╞┌╠∞╩²|"
@ prow()+1,1 say ì
"|---------|------------|--------|--------|------|------------|--------ì
----|--------|--------|--------|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+yl1
@ prow(),11 say "|"+yl2
@ prow(),24 say "|"+yl3
@ prow(),33 say "|"+str(yl21,3)
@ prow(),42 say "|"+str(yl22,3)
@ prow(),49 say "|"+yl23
do case
case yl33+yl28<=c
a=dtoc(yl33)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ prow(),62 say "|"+a
@ prow(),75 say "|"+str(yl28,4)
@ prow(),84 say "|"+"╚½├µ╝∞╤Θ"
a=c-(yl33+yl28)
@ prow(),92 say "|"+str(a,4)+"    |"
case yl32+yl27<=c
a=dtoc(yl32)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ prow(),62 say "|"+a
@ prow(),75 say "|"+str(yl27,3)
@ prow(),84 say "|"+"─┌▓┐╝∞╤Θ"
a=c-(yl27+yl32)
@ prow(),93 say "|"+str(a,4)+"    |"
case yl31+yl26<=c
a=dtoc(yl31)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ prow(),62 say "|"+a
@ prow(),75 say "|"+str(yl26,3)
@ prow(),84 say "|"+"═Γ▓┐╝∞╤Θ"
a=c-(yl26+yl31)
@ prow(),93 say "|"+str(a,4)+"    |"
endcase
cont
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"==================================================================ì
=================================="
ejec
a1=.t.
p=p+1
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.
close database
retu