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

Text File | 1980-01-01 | 3.3 KB | 186 lines

clear
set talk off
set device to screen
close database
a1='   '
@ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╕÷╩²" get a1 pict '999'
read
@ 4,0 clear
wait "╟δ╜½╫┤╠¼╝α▓Γ▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤╚╬╥Γ╝ⁿ╝┤┐╔╩Σ╚δúí"
a1=val(a1)
do while a1<>0
use zj
k1='         '
k2='    '
k3='        '
k4='      '
k7=' '
a2=.t.
do while a2
clear
@ 1,1 say "╔Φ▒╕▒α║┼" get k1
@ 2,1 say "╝α▓Γ╡π▒α║┼" get k2
@ 3,1 say "╝α▓Γ╚╒╞┌" get k3 pict '99.99.99'
@ 4,1 say "╝α▓Γ┤╬╩²" get k7 pict '9'
read
loca for zj1=k1 .and. zj2=k2
if zj10=zj13
k6=' '
@ 5,1 say "╒²│ú╖±ú¿ú┘ú»ú╬ú⌐" get k6
read
if k6<>'y'
k6="111.11"
else
k6="222.22"
endif
else
k6='      '
@ 5,1 say "╩╡▓Γ╓╡" get k6 pict '###.##'
endif
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
if w<>'y'
if zj10=zj13
k6=' '
else
k6='      '
endif
loop
else
a2=.f.
endif
enddo a2
j1=substr(k3,4,2)
j2=substr(k3,7,2)
j3=substr(k3,1,2)
k3=j1+'/'+j2+'/'+j3
k3=ctod(k3)
k0=val(k6)
repl zj5 with k3,zj11 with k0,zj12 with k7
ppp='0'
do while file('a:zj.dbf')
use a:zj
ppp='1'
exit
enddo
clear
do while ppp='0'
@ 4,0 clear
wait '        ú┴┼╠╔╧╬▐╝α▓Γ╡π┐Γú¼╗╗┼╠║≤░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
do while file('a:zj.dbf')
ppp='1'
exit
enddo
enddo
use a:zj
loca for zj1=k1 .and. zj2=k2 .and. zj5=k3
repl zj11 with k0
a1=a1-1
enddo a1
use zj
loca for ((zj11>=zj10 .or. zj11<=zj13) .and. zj10<>zj13) .or. ì
zj11=111.11
clear
if eof()
@ 4,15 say "╜±╠∞╡─╚½▓┐╡π╢╝═Ω║├úí"
wait "░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
retu
endif
b1=recno()
a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕▒α║┼   ╝α▓Γ╡π▒α║┼   ▒Ω╫╝╓╡(╕▀)   ▒Ω╫╝╓╡(╡═)  ì
╩╡▓Γ╓╡  "
l=2
do while .not. eof()
if zj9<>'z'
@ l,1 say zj1+"    "+zj2+"        "+str(zj10,6,2)+"      "+str(zj13,6,2)+" ì
     "+str(zj11,6,2)
else
@ l,1 say zj1+"    "+zj2+"        "+str(zj13,6,2)+"      ì
"+str(zj10,6,2)+"       "+str(zj11,6,2)
endif
cont
l=l+1
if l>=8
wait '              ░┤╚╬╥Γ╝ⁿ╝╠╨°' to q
exit
endif
enddo
if eof()
exit
endif
enddo a1
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
clos data
retu
endif
goto b1
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
p=1
a1=.t.
do while a1
@ prow()+1,24 say p100+"╫┤╝α▓╗║╧╕±╡─▓┐╬╗"
@ prow()+1,24 say "~~~~~~~~~~~~~~~~~~~~~~~~"
@ prow()+1,1 say "               "
@ prow()+1,56 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"================================================================"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ ì
|╝α▓Γ╡π▒α║┼|▒Ω╫╝╓╡(╕▀)|▒Ω╫╝╓╡(╡═)|╩╡▓Γ╓╡|▓Γ┴┐▓╬╩²├√│╞|"
@ prow()+1,1 say ì
"|---------|----------|----------|----------|------|------------|"
l=8
do while .not. eof()
if zj9<>'z'
@ prow()+1,1 say "|"+zj1+"|"+zj2+"    |"+str(zj10,6,2)+"    ì
|"+str(zj13,6,2)+"    |"+str(zj11,6,2)+"|"+zj8+"    |"
else
@ prow()+1,1 say "|"+zj1+"|"+zj2+"    |"+str(zj13,6,2)+"    ì
|"+str(zj10,6,2)+"    |"+str(zj11,6,2)+"|"+zj8+"    |"
endif
cont
l=l+1
if .not. eof()
if l<=16
@ prow()+1,1 say ì
"|---------|----------|----------|----------|------|------------|"
l=l+1
else
@ prow()+1,1 say ì
"================================================================"
p=p+1
ejec
exit
endif
else
@ prow()+1,1 say ì
"================================================================"
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
set cons on
a1=.t.
close database
retu