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

Text File | 1980-01-01 | 1.7 KB | 88 lines

clear
set talk off
close database
sele 1
use sb
sele 2
use gz
sele 3
use gzm
a='         '
b='        '
c='        '
@ 3,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼:" get a
@ 4,10 say "╞≡╩╝╚╒╞┌:" get b pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get c pict '99.99.99'
read
a4=b
a5=c
j1=substr(b,4,2)
j2=substr(b,7,2)
j3=substr(b,1,2)
b=j1+'/'+j2+'/'+j3
b=ctod(b)
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
sele 1
loca for sb1=a
a1=sb4
clear
@ prow()+1,1 say "      "+a4+"---"+a5+"╞┌╝Σ "+a+"╔Φ▒╕╡─╣╩╒╧╖╓▓╝╟Θ┐÷"
@ prow()+1,1 say "                      "
sele 2
sum gz6,gz15 to x,y for gz1=a .and. b<=gz3 .and. gz3<=c
@ prow()+1,1 say "╫▄═ú╗·┤╬╩²:"+str(y,5)+"       ì
╫▄═ú╗·╩▒╝Σ:"+str(x,8,2)
@ prow()+1,1 say ì
"=============================================================="
@ prow()+1,1 say "|▓┐        ╬╗|═ú╗·┤╬╩²|═ú╗·╩▒╝Σ|╒╝╫▄═ú╗·┤╬╩² ì
%|╒╝╫▄═ú╗·╩▒╝Σ %|"
@ prow()+1,1 say ì
"|------------|--------|--------|--------------|--------------|"
sele 3
loca for gzm1=a1
do while .not. eof()
a2=gzm2
a3=gzm3
sele 2
sum gz6,gz15 to x1,y1 for gz1=a .and. gz2=a2 .and. b<=gz3 .and. ì
gz3<=c
if y1<>0
@ prow()+1,1 say "|"+a3
@ prow(),14 say "|"+str(y1,5)
@ prow(),23 say "|"+str(x1,6,1)
m=y1/y*100
@ prow(),32 say "|"+str(m,6,2)
n=x1/x*100
@ prow(),47 say "|"+str(n,6,2)+"        |"
sele 3
cont
if .not. eof() .and. y1<>0
@ prow()+1,1 say ì
"|------------|--------|--------|--------------|--------------|"
else
@ prow()+1,1 say ì
"=============================================================="
endif
endif
enddo
set print on
? chr(13)
set print off
set device to screen
a1=.t.
retu