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

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

clear
set talk off
sele 1
use sb index sb1
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
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
p=a
sele 3
use dw
loca for dw1=a
a1=dw2
clear
@ prow()+1,1 say "     "+dw2+"  "+b+"---"+c+"╣╩╒╧═│╝╞╖╓╬÷"
@ prow()+1,1 say "                      "
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)
sele 2
use gz
sum gz6,gz15 to x,y for gz14=a .and. b<=gz3 .and. gz3<=c
@ prow()+1,1 say "╫▄═ú╗·┤╬╩²:"+str(y,5)+"   ì
"+"╫▄═ú╗·╩▒╝Σ:"+str(x,10,2)
@ prow()+1,1 say ì
"==========================================================="
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ |═ú╗·┤╬╩²|═ú╗·╩▒╝Σ|╒╝╫▄═ú╗·┤╬╩² ì
%|╒╝╫▄═ú╗·╩▒╝Σ %|"
@ prow()+1,1 say ì
"|---------|--------|--------|--------------|--------------|"
sele 1
loca for sb28=p
pp=5
do while .not. eof()
a1=sb1
sele 2
sum gz6,gz15 to x1,y1 for gz1=a1 .and. b<=gz3 .and. gz3<=c
@ prow()+1,1 say "|"+a1
@ prow(),11 say "|"+str(y1,5)
@ prow(),20 say "|"+str(x1,8,1)
if y1<>0
m=y1/y*100
@ prow(),29 say "|"+str(m,6,2)
n=x1/x*100
@ prow(),44 say "|"+str(n,6,2)+"        |"
pp=1
else
@ prow(),29 say "|      0       |      0       |"
endif
sele 1
cont
if .not. eof()
@ prow()+1,1 say ì
"|---------|--------|--------|--------------|--------------|"
endif
if eof()
@ prow()+1,1 say ì
"==========================================================="
endif
pp=5
enddo
set print on
? chr(13)
set talk on
set print off
set device to screen
a1=.t.
clos data
retu