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

Text File | 1980-01-01 | 2.9 KB | 164 lines

clear
set talk off
set device to screen
close database
sele 1
use cr
sele 2
use bj index bj1
sele 3
use dw index dw1
a='         '
c='        '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
@ 5,10 say "╞≡╩╝╚╒╞┌" get c pict 'xx.xx.xx'
@ 6,10 say "╓╒╓╣╚╒╞┌" get d pict 'xx.xx.xx'
read
p1=c
p2=d
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
sele 1
q=0
loca for l5=a .and. l10='c' .and. l2>=c .and. l2<=d
if eof()
clear
@ 4,15 say "┤╦╜╫╢╬├╗╖ó╔·│÷┐Γú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
clos data
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞          ┴∞╙├╚╒╞┌     ┴∞╙├╩²┴┐  ╡Ñ╝█   ì
  ╛¡╩╓╚╦"
l=2
m=0
do while .not. eof()
@ l,1 say " "+l1
f=l1
sele 2
seek f
@ l,11 say " "+b2
sele 1
e=dtoc(l2)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,28 say " "+e
@ l,38 say " "+str(l3,8,2)
@ l,48 say " "+str(l4,8,2)
q=q+l3*l4
@ l,58 say " "+l9
l=l+1
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
l=2
exit
endif
else
a1=.f.
endif
enddo
enddo a1
@ l,1 say "*********:╫▄╝█╬¬:"+str(q,10,2)
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
a1=.t.
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
sele 1
loca for l5=a .and. l10='c' .and. l2>=c .and. l2<=d
p=1
a1=.t.
do while a1
@ prow()+1,25 say " "+p1+"---"+p2+"╞┌╝Σ:"+a+"╔Φ▒╕┴∞╙├▒╕╝■╟Θ┐÷"
@ prow()+1,1 say "                  "
@ prow()+1,80 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
============================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        ì
|┴∞╙├╚╒╞┌|┴∞╙├╩²┴┐|╡Ñ╝█    |┴∞╙├╡Ñ╬╗        |╠ß╗⌡╡Ñ║┼    |╛¡╩╓╚╦  |"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|----------ì
------|------------|--------|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+l1
f=l1
sele 2
seek f
@ prow(),11 say "|"+b2
sele 1
e=dtoc(l2)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ prow(),28 say "|"+e
@ prow(),37 say "|"+str(l3,8,2)
@ prow(),46 say "|"+str(l4,8,2)
f=l6
sele 3
seek f
@ prow(),55 say "|"+dw2
sele 1
@ prow(),72 say "|"+l8
@ prow(),85 say "|"+l9+"|"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
============================"
p=p+1
ejec
exit
else
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|----------ì
------|------------|--------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
============================="
@ prow()+1,1 say "******╫▄╝█╬¬:"+str(q,10,2)
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
close database
set cons on
retu