home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZ9.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  644 b   |  35 lines
  1. sele 2
  2. sum gz6,gz15 to x1,y1 for b<=gz3 .and. gz3<=c
  3. a1=.t.
  4. do while a1
  5. clear
  6. @ 1,1 say "╡Ñ ╬╗ ├√ │╞   ═ú╗·┤╬╩²  ═ú╗·╩▒╝Σ   ╒╝╫▄═ú╗·┤╬╩² %   ╒╝╫▄═ú╗·╩▒╝Σ ì
  7. %"
  8. l=2
  9. sele 1
  10. do while .not. eof()
  11. a=dw1
  12. a2=dw2
  13. sele 2
  14. sum gz6,gz15 to x,y for gz14=a .and. b<=gz3 .and. gz3<=c
  15. m=y/y1*100
  16. n=x/x1*100
  17. @ l,1 say a2+"    "+str(y,3,0)+"      "+str(x,6,1)+"        ì
  18. "+str(m,6,2)+"        "+str(n,6,2)
  19. sele 1
  20. skip
  21. l=l+1
  22. if .not. eof() .and. l>=9
  23. wait  '░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
  24. exit
  25. endif
  26. enddo 
  27. if eof()
  28. exit
  29. endif
  30. enddo 
  31. @ l,1 say "╚½│º╫▄═ú╗·┤╬╩²ú║"+str(y1,4)+"    ì
  32. ╫▄═ú╗·╩▒╝Σú║"+str(x1,6,1)+"╨í╩▒"
  33. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  34. retu
  35.