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

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

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 2,10 say "***************╝∞╨▐╗≥╩╘╤Θ╖┤└í**************"
@ 3,10 say "  ú░ú«═╦│÷                   ú▒ú«╝∞╨▐ú▒ "
@ 4,10 say "  ú▓ú«╝∞╨▐ú▓                 ú│ú«╝∞╨▐ú│"
@ 5,10 say "  ú┤ú«╩╘╤Θú▒                 ú╡ú«╩╘╤Θú▓"
@ 6,10 say "  ú╢ú«╩╘╤Θú│"
@ 7,10 say "*******************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
do case
case w='0'
retu
case w='1'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╝∞╨▐╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
if p<>'y'
loop
endif
exit
enddo a3
p1=substr(k2,1,5)
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq10 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait '╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
case w='2'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╝∞╨▐╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
if p<>'y'
loop
endif
exit
enddo a3
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq11 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait '╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
case w='3'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╝∞╨▐╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
if p<>'y'
loop
endif
exit
enddo a3
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq12 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait '╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
case w='4'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╩╘╤Θ╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
if p<>'y'
loop
endif
exit
enddo a3
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq13 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait' ╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
case w='5'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╩╘╤Θ╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to p
if p<>'y'
loop
endif
exit
enddo a3
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq14 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait '╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
case w='6'
a2=.t.
do while a2
clear
k1='         '
k2='        '
k3='          '
k4='          '
k5='          '
k6='          '
k7='          '
k8='          '
a3=.t.
do while a3
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 2,1 say "╔Φ▒╕▒α║┼" get k1
@ 3,1 say "╩╘╤Θ╚╒╞┌" get k2 pict '99.99.99'
do dq5.fmt
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N) 'to p
if p<>'y'
loop
endif
exit
enddo a3
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
use dq
loca for dq1=k1
repl dq15 with k2
k3=val(k3)
use gzl1 index gzl11
seek k3
repl gzl1a with 'y'
do dq5.prg
wait '╗╣╩Σ╚δ┬≡(Y/N)' to p
if p<>'y'
a2=.f.
else
a2=.t.
endif
enddo a2
endcase
enddo a1
retu