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

Text File | 1979-12-31 | 5.0 KB | 250 lines

clear
set talk off
set device to screen
a='        '
@ 4,20 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌:" get a picture '99.99.99'
read
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
sele 1
use gd
sele 2
use gdf
sele 1
a2=.t.
do while a2
clear
? "╣▄╡└▒α║┼ ╔╧┤╬╝∞▓Γ╞┌ ═╢▓·╚╒╞┌  ╙ª╕ⁿ╗╗╗≥╙ª╝∞▓Γ╚╒╞┌    ╣²╞┌╠∞╩²ì
  ╝∞▓Γ╗≥╕ⁿ╗╗"
l=2
do while .not. eof()
d=gd15
b=gd1
sele 2
loca for gdf1=b .and. gdf4='1'
p=0
do while .not. eof()
c=gdf2
cont
p=1
enddo
if p<>1
sele 1
c=gd4
endif
sele 1
w='s'
if gd20-(a-gd4)/365*gd11<=gd17
ff=365*(gd20-gd17)/gd11+gd4
dd=a-ff
ff=dtoc(ff)
j1=substr(ff,7,2)
j2=substr(ff,1,2)
j3=substr(ff,4,2)
ff=j1+'.'+j2+'.'+j3
@ l,1 say " "+b
g=dtoc(c)
j1=substr(g,7,2)
j2=substr(g,1,2)
j3=substr(g,4,2)
g=j1+'.'+j2+'.'+j3
@ l,10 say " "+g
f=dtoc(gd4)
j1=substr(f,7,2)
j2=substr(f,1,2)
j3=substr(f,4,2)
f=j1+'.'+j2+'.'+j3
@ l,19 say " "+f
@ l,34 say " "+ff
@ l,48 say " "+str(dd,8)
@ l,67 say " "+"╕ⁿ╗╗"
l=l+1
w='d'
endif
if a>=d+c .and. w<>'d'
@ l,1 say " "+b
ee=d+c
gg=a-ee
ee=dtoc(ee)
j1=substr(ee,7,2)
j2=substr(ee,1,2)
j3=substr(ee,4,2)
ee=j1+'.'+j2+'.'+j3
c=dtoc(C)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ l,10 say " "+c
f=dtoc(gd4)
j1=substr(f,7,2)
j2=substr(f,1,2)
j3=substr(f,4,2)
f=j1+'.'+j2+'.'+j3
@ l,19 say " "+f
@ l,34 say " "+ee
@ l,48 say " "+str(gg,8)
@ l,65 say " "+"  ╝∞▓Γ"
l=l+1
endif
skip
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°'
exit
endif
else
a2=.f.
exit
endif
enddo
enddo a1
wait "┤≥╙í┬≡(y/n) " to w
if w $ 'y'
clear
set device to print
set print on
set cons off
? chr(27)+"II"
set print off
set cons on
@ 1,30 say "                                        ╙ª╝∞▓Γ╗≥╙ª╕ⁿ╗╗╡─╣▄╡└"
@ 2,1 say "           "
@ 3,1 say ì
"=================================================================ì
==================================================================ì
======================================================================================"
@ 4,1 say "|╣▄╡└▒α║┼ |╣▄╡└├√│╞    |╣µ╕±╨═║┼    |▓─╓╩        ì
|═╝╓╜║┼    |╣ñ╫≈╤╣┴ª|╣ñ╫≈╬┬╢╚|╣ñ╫≈╜Θ╓╩    |╖└╕»▓─┴╧    |▒ú╬┬▓─┴╧    ì
|╤╒╔½|╔╧┤╬╝∞▓Γ╚╒╞┌|═╢▓·╚╒╞┌|╝∞▓Γ╓▄╞┌|─Ω╕»╩┤┴┐|╙ª╕ⁿ╗╗╗≥╙ª╝∞▓Γ╚╒╞┌|ì
╣²╞┌╠∞╩²|╜ß┬█|      ░▓╫░╡╪╡π      |"
@ 5,1 say ì
"|---------|------------|------------|------------|----------|----ì
----|--------|------------|------------|------------|----|--------ì
----|--------|--------|--------|------------------|--------|----|--------------------|"
sele 1
goto top
do while .not. eof()
q1=1
d=gd15
b=gd1
sele 2
loca for gdf1=b .and. gdf4='1'
p=0
do while .not. eof()
c=gdf2
cont
p=1
enddo
if p<>1
sele 1
c=gd4
endif
sele 1
w='s'
if gd20-(a-gd4)/365*gd11<=gd17
ee=gd4+365*(gd20-gd17)/gd11
q1=2
@ prow()+1,1 say "|"+b
@ prow(),11 say "|"+gd2
@ prow(),24 say "|"+gd3
@ prow(),37 say "|"+gd5
@ prow(),50 say "|"+gd6
@ prow(),61 say "|"+str(gd7,3)
@ prow(),70 say "|"+str(gd8,3)
@ prow(),79 say "|"+gd9
@ prow(),92 say "|"+gd10
@ prow(),105 say "|"+gd12
@ prow(),118 say "|"+gd13
ww=dtoc(c)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),123 say "|"+ww
ww=dtoc(gd4)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),136 say "|"+ww
@ prow(),145 say "|"+str(gd15,6,1)
@ prow(),154 say "|"+str(gd11,6,2)
ww=dtoc(ee)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),163 say "|"+ww
ff=a-ee
@ prow(),182 say "|"+str(ff,8)
@ prow(),191 say "|"+"╕ⁿ╗╗|"+gd19+"|"
w='d'
endif
if a>=d+c .and. w<>'d'
ee=d+c
q1=2
@ prow()+1,1 say "|"+b
@ prow(),11 say "|"+gd2
@ prow(),24 say "|"+gd3
@ prow(),37 say "|"+gd5
@ prow(),50 say "|"+gd6
@ prow(),61 say "|"+str(gd7,3)
@ prow(),70 say "|"+str(gd8,3)
@ prow(),79 say "|"+gd9
@ prow(),92 say "|"+gd10
@ prow(),105 say "|"+gd12
@ prow(),118 say "|"+gd13
ww=dtoc(c)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),123 say "|"+ww
ww=dtoc(gd4)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),136 say "|"+ww
@ prow(),145 say "|"+str(gd15,6,1)
@ prow(),154 say "|"+str(gd11,6,2)
ww=dtoc(ee)
j1=substr(ww,7,2)
j2=substr(ww,1,2)
j3=substr(ww,4,2)
ww=j1+'.'+j2+'.'+j3
@ prow(),163 say "|"+ww
ff=a-ee
@ prow(),182 say "|"+str(ff,8)
@ prow(),191 say "|"+"╝∞▓Γ|"+gd19+"|"
endif
skip
if .not. eof()
if q1=2
@ prow()+1,1 say ì
"|---------|------------|------------|------------|----------|----ì
----|--------|------------|------------|------------|----|--------ì
----|--------|--------|--------|------------------|--------|----|--------------------|"
q1=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