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

Text File | 1980-01-01 | 2.8 KB | 170 lines

clear
set talk off
set device to screen
close database
sele 8
use gzl1 index gzl11
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
a2=.t.
do while a2
k1='         '
k2='    '
k3='        '
k4='          '
k5='      '
k6='        '
k7='      '
k8='      '
k9='          '
k10='          '
k11='          '
k12='          '
k13='          '
k14='  '
k15='  '
k16=' '
k20='          '
k21='                              '
k22='                              '
a1=.t.
do while a1
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k20 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
read
a3=.t.
do while a3
@ 3,1 say "╣╩╒╧▓┐╬╗┬δ" get k2
read
if k2='h'
sele 6
seek k1
a=sb4
sele 5
do hel
@ 3,1 clear
loop
endif
exit
enddo a3
a3=.t.
do while a3
@ 4,1 say "╡Ñ╬╗┤·┬δ" get k14
read
if k14='h'
sele 4
do hel1
@ 4,1 clear
loop
endif
exit
enddo a3
@ 5,1 say "╣╩╒╧╖ó╔·╞┌" get k3 pict '99.99.99'
@ 6,1 say "═ú╗·╦≡╩º" get k4 pict '#######.##'
@ 7,1 say "╝╞╗«╣ñ╩▒" get k5 pict '####.#'
@ 8,1 say "═ú╗·╩▒╝Σ" get k6 pict '######.#'
@ 9,1 say "╩╡╝╩╣ñ╩▒" get k7 pict '####.#'
@ 1,34 say "╞Σ╓╨═ú╣ñ┤²┴╧╩▒╝Σ" get k8 pict '####.#'
@ 2,34 say "╣ñ╩▒╖╤" get k9 pict '#######.##'
@ 3,34 say "▒╕╝■╖╤" get k10 pict '#######.##'
@ 4,34 say "▓─┴╧╖╤" get k11 pict '#######.##'
@ 5,34 say "═Γ╬»╝╙╣ñ╖╤" get k12 pict '#######.##'
@ 6,34 say "╞Σ╦ⁿ╖╤" get k13 pict '#######.##'
@ 7,34 say "╦∙╗╗╡─▒╕╝■" get k21
@ 8,34 say "╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θ" get k22
read
wait '╩²╛▌╒²╚╖ú┌ú¼╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
a3=.f.
do case
case w='r'
retu
case w='x'
loop
case w='f'
exit
case w='z'
q1=substr(k3,1,5)
j1=substr(k3,4,2)
j2=substr(k3,7,2)
j3=substr(k3,1,2)
k3=j1+'/'+j2+'/'+j3
k3=ctod(k3)
k4=val(k4)
k9=val(k9)
k10=val(k10)
k11=val(k11)
k12=val(k12)
k13=val(k13)
k5=val(k5)
k6=val(k6)
k7=val(k7)
k8=val(k8)
k15=1
sele 1
appe blank
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,gz16 with k16
a=gz9+gz10+gz11+gz12+gz13
b=gz1
c=dtoc(gz3)
c=substr(c,7,2)
d=gz6
sele 2
loca for sm1=b
repl sm5 with sm5+a
sele 3
loca for ngz1=c .and. ngz2=b
if .not. eof()
repl ngz3 with ngz3+1,ngz4 with ngz4+d,ngz6 with ngz6+k8
else
appe blank
repl ngz1 with c,ngz2 with b,ngz3 with 1,ngz4 with d,ngz6 with k8
endif
sele 7
loca for g1=q1
if eof()
appe blank
repl g1 with q1,g2 with k15,g3 with k6
else
repl g2 with g2+k15,g3 with g3+k6
endif
sele 8
k20=val(k20)
seek k20
repl gzl1a with 'y',gzl1e with k22,gzl1f with k21,gzl1b with ì
k7,gzl1c with k8,gzl1d with a
exit
endcase
enddo a1
clear
@ 4,1 clear
wait '╗╣╩Σ╚δ┬≡(y/n) ' to w
if w='y'
a2=.t.
else
exit
endif
enddo a2
a1=.t.
retu