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

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

clear
set talk off
set device to screen
clos data
sele 1
use gzl1
set index to gzl11
sele 2
use dm
sele 3
use wx
sele 4
use sb
set index to sb1
sele 1
j1=substr(p100,4,2)
j2=substr(p100,7,2)
j3=substr(p100,1,2)
aa=j1+'/'+j2+'/'+j3
aa=ctod(aa)
loca for gzl17<=aa
if eof()
@ 4,0 clear
wait '                 ╬▐╤╙╞┌═Ω╣ñ╡─╣ñ╫≈┴εú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "╣ñ╫≈┴ε║┼    ╔Φ▒╕▒α║┼    ╔Φ▒╕├√│╞     │╨╨▐╡Ñ╬╗  ╜⌠╝▒│╠╢╚  ì
╣ñ╫≈└α╨═  ╝╞╗«═Ω╣ñ╚╒"
l=2
do while .not.eof()
bb=gzl12
cc=gzl13
dd=gzl14
ee=gzl18
sele 4
seek bb
k1=sb1
k2=sb3
sele 3
loca for wx1=ee
k3=wx2
sele 2
loca for dm1='y' .and. dm2=cc
k4=dm3
loca for dm1='x' .and. dm2=dd
k5=dm3
sele 1
k6=dtoc(gzl17)
j1=substr(k6,7,2)
j2=substr(k6,1,2)
j3=substr(k6,4,2)
k6=j1+'.'+j2+'.'+j3
@ l,1 say str(gzl11,10)+'  '+k1+k2+k3+'   '+k4+k5+k6
l=l+1
cont
if l>=9 .and. .not. eof()
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
if w='r'
clos data
retu
endif
exit
endif
enddo
if eof()
exit
endif
enddo
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
clos data
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print  on
? chr(27)+"II"
set print off
p=1
sele 1
loca for gzl17<=aa
a1=.t.
do while a1
@ prow()+1,90 say "╤╙╞┌═Ω╣ñ╡─╣ñ╫≈┴ε"
@ prow()+1,1 say "      "
@ prow()+1,135 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=======================================================================ì
=============================================================================="
@ prow()+1,1 say "|╣ñ╫≈┴ε║┼  |╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        ì
|╔Φ▒╕╨═║┼        |░▓╫░╡╪╡π    ì
|╜⌠╝▒│╠╢╚  |╣ñ╫≈└α╨═  |│╨╨▐╡Ñ╬╗|┐¬╣ñ╚╒╞┌|═Ω╣ñ╚╒╞┌|╬¼╨▐─┌╚▌            ì
          |"
@ prow()+1,1 say ì
"|----------|---------|----------------|---------ì
-------|------------|----------|----------|--------|--------|--------ì
|------------------------------|"
l=1
do while .not. eof()
bb=gzl12
cc=gzl13
dd=gzl14
ee=gzl18
sele 4
seek bb
k1=sb1
k2=sb3
k3=sb4
k0=sb29
sele 3
loca for wx1=ee
k4=wx2
sele 2
loca for dm1='y' .and. dm2=cc
k5=dm3
loca for dm1='x' .and. dm2=dd
k6=dm3
sele 1
k7=dtoc(gzl16)
j1=substr(k7,7,2)
j2=substr(k7,1,2)
j3=substr(k7,4,2)
k7=j1+'.'+j2+'.'+j3
k8=dtoc(gzl17)
j1=substr(k8,7,2)
j2=substr(k8,1,2)
j3=substr(k8,4,2)
k8=j1+'.'+j2+'.'+j3
@ prow()+1,1 say ì
"|"+str(gzl11,10)+"|"+k1+"|"+k2+"|"+k3+"|"+k0+"|"+k6+"|"+k5+"|"+k4ì
+"|"+k7+"|"+k8+"|"+gzl10+"|"
l=l+1
cont
if .not. eof()
if l>=4
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
=================="
ejec
@ prow()+1,1 say "      "
p=p+1
exit
else
@ prow()+1,1 say ì
"|----------|---------|----------------|----------------|---------ì
---|----------|----------|--------|--------|--------|-----------------ì
-------------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
==================================================================ì
=================="
endif
enddo
if eof()
exit
endif
enddo
set print on
? chr(13)
set print off
set device to screen
clos data
retu