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

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

clear
set talk off
set device to screen
close database
clear
y='        '
@ 4,20 say "╟δ╩Σ╚δ╓╒╓╣╚╒╞┌" get y pict '99.99.99'
read
j1=substr(y,7,2)
j2=substr(y,1,2)
j3=substr(y,4,2)
y=j3+'/'+j1+'/'+j2
y=ctod(y)
use gd
loca for gd15+gd18<=y
if eof()
clear
@ 4,15 say "╬▐╙ª╝∞▓Γ╡─╣▄╡└ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '   '
clos data
retu
endif
a2=.t.
do while a2
clear
@ 1,1 say "╣▄╡└▒α║┼  ╣▄╡└├√│╞    ╔╧┤╬╝±▓Γ╚╒╞┌   ╝∞▓Γ╓▄╞┌      ╧┬┤╬╝∞▓Γ╚╒╞┌"
l=2
do while .not. eof()
@ l,1 say " "+gd1
@ l,11 say " "+gd2
a=dtoc(gd18)
j1=substr(a,7,2)
j2=substr(a,1,2)
j3=substr(a,4,2)
a=j1+'.'+j2+'.'+j3
@ l,24 say " "+a
@ l,40 say " "+str(gd15,4)
c=gd15+gd18
c=dtoc(c)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ l,55 say " "+c
l=l+1
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°'
exit
endif
else
a2=.f.
exit
endif
enddo
if eof()
exit
endif
enddo a2
wait ' ┤≥╙í┬≡(Y/N) ' to w
if w<>'y'
retu
endif
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
goto top
x=dtoc(y)
j1=substr(x,7,2)
j2=substr(x,1,2)
j3=substr(x,4,2)
x=j1+'.'+j2+'.'+j3
g=1
p=1
loca for gd15+gd18<=y
a1=.t.
do while a1
clear
@ prow()+1,30 say "             "+x+"╥╘╟░╡─╣▄╡└╝∞╨▐╝╞╗«"
@ prow()+1,1 say "                    "
@ prow()+1,120 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"================================================================ì
================================================================="
@ prow()+1,1 say "|╣▄╡└▒α║┼ |╣▄╡└├√│╞    |╣µ╕±╨═║┼    |▓─╓╩        ì
|╣ñ╫≈╤╣┴ª|╣ñ╫≈╬┬╢╚|╣ñ╫≈╜Θ╓╩    ì
|╤╒╔½|╣▄╡└│ñ╢╚|  ╝∞▓Γ╚╒╞┌  |      ░▓╫░╡╪╡π      |"
@ prow()+1,1 say ì
"|---------|------------|------------|------------|--------|------ì
--|------------|----|--------|------------|--------------------|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+gd1
@ prow(),11 say "|"+gd2
@ prow(),24 say "|"+gd3
@ prow(),37 say "|"+gd5
@ prow(),50 say "|"+str(gd7,3)
@ prow(),59 say "|"+str(gd8,3)
@ prow(),68 say "|"+gd9
@ prow(),81 say "|"+gd13
@ prow(),86 say "|"+str(gd14,8,2)
c=gd15+gd18
c=dtoc(c)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ prow(),95 say "|"+c+"    |"+gd19+"|"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
================================================================"
eject
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.
retu