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

Text File | 1979-12-31 | 3.1 KB | 144 lines

clear
set talk off
set device to screen
close database
use gd
a='        '
clear
@ 4,20 say "╟δ╚δ╓╒╓╣╚╒╞┌:" get a pict '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)
loca for gd20-gd11*(a-gd4)/365<=gd17
a2=.t.
do while a2
clear
@ 1,1 say "╣▄╡└▒α║┼  ╣▄╡└├√│╞     ╔Φ╝╞▒┌║±  ═╢▓·╚╒╞┌  ─Ω╕»╩┤┴┐  ░▓╚½▒┌║±  ì
╙ª╕ⁿ╗╗╚╒╞┌"
l=2
do while .not. eof()
x=gd4+(gd20-gd17)*365/gd11
@ l,1 say " "+gd1
@ l,11 say " "+gd2
@ l,24 say " "+str(gd20,8,2)
b=dtoc(gd4)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,34 say " "+b
@ l,44 say " "+str(gd11,6,2)
@ l,54 say " "+str(gd17,8,2)
c=dtoc(x)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ l,64 say " "+c
cont
l=l+1
if l>=9 .and. .not. eof()
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
l=2
exit
endif
enddo
if eof()
exit
endif
enddo a2
wait '┤≥╙í┬≡(Y/N) ' to w
if w<>'y'
close database
retu
endif
set device to print
set print on
set cons off
? chr(27)+"II"
set print off
set cons on
goto top
p=1
loca for gd20-gd11*(a-gd4)/365<=gd17
b=recno()
a1=.t.
do while a1
@ prow()+1,55 say "                       ─Γ╕ⁿ╗╗╡─╣▄╡└"
@ prow()+1,1 say "                 "
@ prow()+1,144 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
================================================================================ì
============="
@ prow()+1,1 say "|╣▄╡└▒α║┼ |╣▄╡└├√│╞    |╣µ╕±╨═║┼    ì
|▓─        ╓╩|╣ñ╫≈╤╣┴ª|╣ñ╫≈╬┬╢╚|╣ñ╫≈╜Θ╓╩    |╣▄╡└│ñ╢╚|ì
╔Φ╝╞▒┌║±|═╢▓·╚╒╞┌|─Ω╕»╩┤┴┐|░▓╚½▒┌║±|─Γ╕ⁿ╗╗╚╒╞┌|      ░▓╫░╡╪╡π     ì
 |"
@ prow()+1,1 say ì
"|---------|------------|------------|------------|--------|--------|----------ì
--|--------|--------|--------|--------|--------|----------|-------ì
-------------|"
l=7
do while .not. eof()
x=gd4+(gd20-gd17)*365/gd11
@ prow()+1,1 say "|"+gd1
@ prow(),11 say "|"+gd2
@ prow(),24 say "|"+gd3+"|"+gd5
@ prow(),50 say "|"+str(gd7,3)
@ prow(),59 say "|"+str(gd8,3)
@ prow(),68 say "|"+gd9
@ prow(),81 say "|"+str(gd14,8,2)
@ prow(),90 say "|"+str(gd20,8,2)
c=dtoc(gd4)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ prow(),99 say "|"+c
@ prow(),108 say "|"+str(gd11,6,2)
@ prow(),117 say "|"+str(gd17,8,2)
y=dtoc(x)
j1=substr(y,7,2)
j2=substr(y,1,2)
j3=substr(y,4,2)
y=j1+'.'+j2+'.'+j3
@ prow(),126 say "|"+y+"  |"+gd19+"|"
cont
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
============================================================================================="
ejec
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
close database
set device to screen
a1=.t.
retu