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

Text File | 1979-12-31 | 3.0 KB | 139 lines

clear
set talk off
set device to screen
close database
a='        '
@ 4,20 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get a pict 'xx.xx.xx'
read
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
use yl
loca for (a-yl9)/365>=yl10
c=recno()
if eof()
clear
@ 4,20 say "├╗╙╨╙ª╠╘╠¡╡─╚▌╞≈"
@ 6,20 clear
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "╚▌╞≈▒α║┼  ╚▌╞≈├√│╞   └α▒≡  ╩╣╙├╚╒╞┌  ╥╤╩╣╙├─Ω╧▐  ì
╔Φ╝╞╩╣╙├─Ω╧▐"
l=2
goto c
do while .not. eof()
@ l,1 say " "+yl1
@ l,8 say " "+yl2
@ l,22 say " "+yl3
b=dtoc(yl9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,28 say " "+b
b=(a-yl9)/365
@ l,40 say " "+str(b,2)
@ l,52 say " "+str(yl10,2)
l=l+1
cont
if .not. eof()
if l>=9
c=recno()
goto bott
skip
a1=.t.
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
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 (a-yl9)/365>=yl10
c=recno()
p=1
a1=.t.
do while a1
clear
@ 1,55 say "╥╤╡╜╩╣╙├─Ω╧▐╡─╚▌╞≈"
@ 2,1 say "             "
@ 3,114 say "╡┌"+str(p,2)+"╥│"
@ 4,1 say ì
"=========================================================================ì
===================================================="
@ 5,1 say "|╚▌╞≈▒α║┼ |╚▌╞≈├√│╞    ì
|└α▒≡|╫▄╓╪(╣½╜∩)|╤╣┴ª(╣½╜∩┴ª/cm*cm)|╬┬╢╚ C|╜Θ╓╩        |░▓╫░╡╪╡π  ì
  |╩╣╙├╚╒╞┌|╥╤╩╣╙├─Ω╧▐|╔Φ╝╞╩╣╙├─Ω╧▐|"
@ 6,1 say ì
"|---------|------------|----|----------|------------------|------|ì
------------|------------|--------|----------|------------|"
l=7
goto c
do while .not. eof()
@ prow()+1,1 say "|"+yl1
@ prow(),11 say "|"+yl2
@ prow(),24 say "|"+yl3
@ prow(),29 say "|"+str(yl15,6)
@ prow(),40 say "|"+str(yl21,3)
@ prow(),59 say "|"+str(yl22,3)
@ prow(),66 say "|"+yl23
@ prow(),79 say "|"+yl29
b=dtoc(yl9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),92 say "|"+b
b=(a-yl9)/365
@ prow(),101 say "|"+str(b,2)
@ prow(),112 say "|"+str(yl10,2)+"          |"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"==================================================================ì
==========================================================="
c=recno()
p=p+1
goto bott
skip
a1=.t.
else
@ prow()+1,1 say ì
"|---------|------------|----|----------|------------------|------|ì
------------|------------|--------|----------|------------|"
l=l+1
endif
else
a1=.f.
@ prow()+1,1 say ì
"==================================================================ì
==========================================================="
endif
enddo
enddo a1
set prin on
? chr(13)
set print off
set device to screen
a1=.t.
retu