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

Text File | 1980-01-01 | 4.6 KB | 270 lines

clear
set talk off
set device to screen
close database
sele 1
use sb index sb1
sele 2
use dq
a='        '
@ 4,10 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)
p11=a
clear
@ 1,1 say "╔Φ▒╕▒α║┼     ╝∞╨▐ú▒    ╝∞╨▐ú▓   ╝∞╨▐ú│   ╩╘╤Θú▒   ╩╘╤Θú▓   ì
 ╩╘╤Θú│ "
l=2
loca for dq2+dq10<=a .or. dq3+dq11<=a .or. dq4+dq12<=a .or. ì
dq5+dq13<=a .or. dq6+dq14<=a .or. dq7+dq15<=a
if eof()
clear
@ 4,18 say "╬▐╙ª╝∞╤Θ╗≥╙ª╝∞╨▐╡─╔Φ▒╕ú¼░┤╚╬╥Γ╖╡╗╪úí"
wait '  '
retu
endif
do while .not. eof()
if dq10+dq2<=a
@ l,1 say dq1
b=dtoc(dq10+dq2)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,10 say " "+b
l=l+1
endif
if dq11+dq3<=a .and. dq3<>0
@ l,1 say dq1
b=dtoc(dq11+dq3)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,20 say " "+b
l=l+1
endif
if dq12+dq4<=a .and. dq4<>0
@ l,1 say dq1
b=dtoc(dq12+dq4)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,30 say " "+b
l=l+1
endif
if dq13+dq5<=a .and. dq5<>0
@ l,1 say dq1
b=dtoc(dq13+dq5)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,40 say " "+b
l=l+1
endif
if dq14+dq6<=a .and. dq6<>0
@ l,1 say dq1
b=dtoc(dq14+dq6)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,50 say " "+b
l=l+1
endif
if dq15+dq7<=a .and. dq7<>0
@ l,1 say dq1
b=dtoc(dq15+dq7)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,60 say " "+b
l=l+1
endif
cont
enddo
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
a=p11
p=1
loca for dq2+dq10<=a .or. dq3+dq11<=a .or. dq4+dq12<=a .or. ì
dq5+dq13<=a .or. dq6+dq14<=a .or. dq7+dq15<=a
if eof()
set print off
retu
endif
d=recno()
ddd='1'
a1=.t.
do while a1
@ 1,40 say "╙ª╝∞╨▐╗≥╩╘╤Θ╡─╢»┴ª╔Φ▒╕"
@ 2,1 say "                     "
@ 3,70 say "╡┌"+str(p,2)+"╥│"
@ 4,1 say ì
"=================================================================ì
================="
@ 5,1 say "|         |                |        ╝∞╨▐╚╒╞┌          ì
|        ╩╘╤Θ╚╒╞┌          |"
@ 6,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        ì
|--------------------------|--------------------------|"
@ 7,1 say "|         |                |╝∞╨▐ú▒  |╝∞╨▐ú▓  |╝∞╨▐ú│ ì
 |╩╘╤Θú▒  |╩╘╤Θú▓  |╩╘╤Θú│  |"
@ 8,1 say ì
"|---------|----------------|--------|--------|--------|--------|-ì
-------|--------|"
l=9
goto d
do while .not. eof()
if dq2+dq10<=a .and. dq2<>0
@ prow()+1,1 say "|"+dq1
c=dq1
sele 1
seek c
c=sb3
ddd='0'
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq2+dq10)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),28 say "|"+b
sele 2
endif
if dq3+dq11<=a .and. dq3<>0
@ prow()+1,1 say "|"+dq1
c=dq1
ddd='0'
sele 1
seek c
c=sb3
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq3+dq11)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),37 say "|"+b
endif
if dq4+dq12<=a .and. dq4<>0
@ prow()+1,1 say "|"+dq1
ddd='0'
c=dq1
sele 1
seek c
c=sb3
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq4+dq12)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),46 say "|"+b
endif
if dq5+dq13<=a .and. dq5<>0
@ prow()+1,1 say "|"+dq1
ddd='0'
c=dq1
sele 1
seek c
c=sb3
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq5+dq13)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),55 say "|"+b
endif
if dq6+dq14<=a .and. dq6<>0
@ prow()+1,1 say "|"+dq1
c=dq1
ddd='0'
sele 1
seek c
c=sb3
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq6+dq14)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),64 say "|"+b
endif
if dq7+dq15<=a .and. dq7<>0
@ prow()+1,1 say "|"+dq1
ddd='0'
c=dq1
sele 1
seek c
c=sb3
@ prow(),11 say "|"+c
sele 2
b=dtoc(dq7+dq15)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),73 say "|"+b+"|"
endif
if ddd='0'
l=l+1
endif
cont
if .not. eof()
if l>=50
d=recno()
p=p+1
a1=.t.
@ prow()+1,1 say ì
"=================================================================ì
================="
goto bott
skip
ejec
else
if ddd='0'
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|-ì
-------|--------|"
l=l+1
endif
endif
else
@ prow()+1,1 say ì
"=================================================================ì
================="
a1=.f.
endif
ddd='1'
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
retu