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

Text File | 1979-12-31 | 3.0 KB | 134 lines

clear
set talk off
set device to screen
close database
use zj
a='        '
@ 4,10 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get a pict '99.99.99'
read
e=a
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
ppp=a
clear
@ 1,0 say "╔Φ▒╕▒α║┼  ╝α▓Γ╡π║┼  ╝α▓Γ╡π▓┐╬╗     ▓╬╩²├√│╞   ╫ε╕▀╓╡    ╫ε╡═╓╡   ì
  ╙ª╝α▓Γ╚╒╞┌"
goto top
l=2
loca for zj5+zj4<=a
do while .not. eof()
@ l,1 say " "+zj1
@ l,11 say " "+zj2
@ l,20 say " "+zj3
@ l,34 say " "+zj8+'   '+str(zj10,6,2)+'     '+str(zj13,6,2)
bb=zj5+zj4
bb=dtoc(bb)
j1=substr(bb,7,2)
j2=substr(bb,1,2)
j3=substr(bb,4,2)
bb=j1+'.'+j2+'.'+j3
@ l,68 say "  "+bb
l=l+1
cont
enddo
repl all zj5 with zj5+zj4,zj9 with 'y' for zj4+zj5<=a
wait '╟δ╜½╝α▓Γ▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
ww='0'
do while file('a:zj.dbf')
use zj
copy to zj1 for zj5<=a field zj1,zj2,zj11,zj5
use a:zj
appe from zj1
dele file zj1.dbf
ww='1'
exit
enddo
if ww='0'
use zj
copy to a:zj for zj5<=a field zj1,zj2,zj11,zj5
endif
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
p=1
d=1
a1=.t.
use zj
repl all zj5 with zj5-zj4 for zj9='y'
loca for zj5+zj4<=ppp
do while a1
@ 1,35 say "       "+e+"╙ª╜°╨╨╡─╫┤╠¼╝α▓Γ╧ε─┐"
@ 2,1 say "             "
@ 3,105 say "╡┌ "+str(p,2)+"╥│"
@ 4,1 say "=================================================================ì
==========================================================="
@ 5,1 say "|╔Φ▒╕▒α║┼ ì
|╝α▓Γ╡π║┼|╝α▓Γ╡π╬╗╓├  ì
|▓Γ┴┐▓╬╩²├√│╞|╫ε╕▀╓╡|╫ε╡═╓╡|╩╡▓Γ╓╡|╙ª╝α▓Γ╚╒╞┌|       ╝α▓Γ─┌╚▌╝≥╩÷     ì
      |╓╕╡╝╦╡├≈╩Θ┤·║┼|"
@ 6,1 say ì
"|---------|--------|------------|------------|------|------|-----ì
-|----------|------------------------------|--------------|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+zj1
@ prow(),11 say "|"+zj2
@ prow(),20 say "|"+zj3
bb=zj4+zj5
bb=dtoc(bb)
j1=substr(bb,7,2)
j2=substr(bb,1,2)
j3=substr(bb,4,2)
bb=j1+'.'+j2+'.'+j3
@ prow(),33 say "|  "+zj8+"  |"+str(zj10,6,2)+"|"+str(zj13,6,2)+"|    ì
  |"+bb+"  |"+zj7+"|"+zj14+"        |"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"==================================================================ì
============================================================"
eject
p=p+1
exit
else
@ prow()+1,1 say ì
"|---------|--------|------------|------------|------|------|-----ì
-|----------|------------------------------|--------------|"
l=l+1
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
repl all zj5 with zj4+zj5 for zj9='y'
repl all zj9 with ' '
clos data
a1=.t.
retu