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

Text File | 1979-12-31 | 2.1 KB | 138 lines

clear
set talk off
set device to screen
close database
sele 7
use ygz
sele 6
use sb index sb1
sele 4
use dw
sele 5
use gzm
sele 3
use ngz
sele 2
use sm
sele 1
use gz
goto y
a2=.t.
do while a2
k1=gz1
k2=gz2
k3=dtoc(gz3)
j1=substr(k3,7,2)
j2=substr(k3,1,2)
j3=substr(k3,4,2)
k3=j1+'.'+j2+'.'+j3
t1=substr(k3,1,5)
k4=gz4
k5=gz5
k6=gz6
t2=k6
j6=k6
k7=gz7
k8=gz8
j8=k8
k9=gz9
k10=gz10
k11=gz11
k12=gz12
k13=gz13
k14=gz14
k15=gz15
j15=k15
p1=gz9+gz10+gz11+gz12+gz13
a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕▒α║┼" get k1
read
a3=.t.
do while a3
@ 2,1 say "╣╩╒╧▓┐╬╗┬δ" get k2
read
if k2='h'
sele 6
seek k1
a=sb4
sele 5
do hel
@ 2,1 clear
loop
endif
exit
enddo a3
a3=.t.
do while a3
@ 3,1 say "╡Ñ╬╗┤·┬δ" get k14
read
if k14='h'
sele 4
do hel1
@ 3,1 clear
loop
endif
exit
enddo a3
@ 4,1 say "╣╩╒╧╖ó╔·╞┌" get k3 pict 'xx.xx.xx'
@ 5,1 say "═ú╗·╦≡╩º" get k4
@ 6,1 say "╝╞╗«╣ñ╩▒" get k5
@ 7,1 say "═ú╗·╩▒╝Σ" get k6
@ 8,1 say "╩╡╝╩╣ñ╩▒" get k7
@ 9,1 say "╞Σ╓╨═ú╣ñ┤²┴╧╩▒╝Σ" get k8
@ 1,50 say "╣ñ╩▒╖╤" get k9
@ 2,50 say "▒╕╝■╖╤" get k10
@ 3,50 say "▓─┴╧╖╤" get k11
@ 4,50 say "═Γ╬»╝╙╣ñ╖╤" get k12
@ 5,50 say "╞Σ╦ⁿ╖╤" get k13
@ 6,50 say "╣╩╒╧┤╬╩²" get k15
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(y/n) ' to w
if w<>'y'
a1=.t.
else
exit
endif
enddo a1
j1=substr(k3,4,2)
j2=substr(k3,7,2)
j3=substr(k3,1,2)
k3=j1+'/'+j2+'/'+j3
k3=ctod(k3)
sele 1
repl gz3 with k3,gz1 with k1,gz2 with k2,gz4 with k4,gz5 with ì
k5,gz6 with k6,gz7 with k7,gz8 with k8,gz9 with k9,gz10 with ì
k10,gz11 with k11,gz12 with k12,gz13 with k13,gz14 with k14
repl gz15 with k15
a=gz9+gz10+gz11+gz12+gz13
b=gz1
c=dtoc(gz3)
c=substr(c,7,2)
d=gz6
sele 2
loca for sm1=b
p=a-p1
repl sm5 with sm5+p
sele 3
loca for ngz1=c .and. ngz2=b
if .not. eof()
f1=k15-j15
f2=k6-j6
f3=k8-j8
repl ngz3 with ngz3+f1,ngz4 with ngz4+f2,ngz6 with ngz6+f3
endif
sele 7
loca for g1=t1
repl g2 with g2+k6-t2,g3 with g3+k15-j15
exit
enddo a2
close database
retu