home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZ1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  86 lines
  1. clear
  2. set talk off
  3. close database
  4. set device to screen 
  5. b='        '
  6. c='        '
  7. @ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get b pict '99.99.99'
  8. @ 5,10 say "╓╒╓╣╚╒╞┌:" get c pict '99.99.99'
  9. read
  10. www=b
  11. a=b
  12. d=c
  13. j1=substr(b,4,2)
  14. j2=substr(b,7,2)
  15. j3=substr(b,1,2)
  16. b=j1+'/'+j2+'/'+j3
  17. b=ctod(b)
  18. j1=substr(c,4,2)
  19. j2=substr(c,7,2)
  20. j3=substr(c,1,2)
  21. c=j1+'/'+j2+'/'+j3
  22. c=ctod(c)
  23. sele 1
  24. use dw
  25. sele 2
  26. use gz
  27. w='q'
  28. do gz9
  29. if w<>'y'
  30. clos data
  31. retu
  32. endif
  33. set device to print 
  34. set print on
  35. set cons off
  36. ? chr(27)+"IJ"
  37. set print off
  38. set cons on
  39. sele 2
  40. sum gz6,gz15 to x1,y1 for b<=gz3 .and. gz3<=c
  41. clear
  42. @ prow()+1,1 say "        "+www+"---"+d+" ╚½│º╣╩╒╧═│╝╞▒φ"
  43. @ prow()+1,1 say "               "
  44. @ prow()+1,1 say "                              "
  45. @ prow()+1,1 say "╫▄═ú╗·┤╬╩²:"+str(y1,4)+"╫▄═ú╗·╩▒╝Σ(╨í╩▒):"+str(x1,6,1)
  46. @ prow()+1,1 say ì
  47. "=============================================================="
  48. @ prow()+1,1 say "|╡Ñ ╬╗ ├√ │╞ |═ú╗·┤╬╩²|═ú╗·╩▒╝Σ|╒╝╫▄═ú╗·┤╬╩² %|╒╝╫▄═ú╗·╩▒╝Σ ì
  49. %|"
  50. @ prow()+1,1 say ì
  51. "|------------|--------|--------|--------------|--------------|"
  52. sele 1
  53. goto top
  54. do while .not. eof()
  55. a=dw1
  56. a2=dw2
  57. sele 2
  58. sum gz6,gz15 to x,y for gz14=a .and. b<=gz3 .and. gz3<=c
  59. @ prow()+1,1 say "|"+a2
  60. @ prow(),14 say "|"+str(y,3,0)
  61. @ prow(),23 say "|"+str(x,6,1)
  62. m=y/y1*100
  63. @ prow(),32 say "|"+str(m,6,2)
  64. n=x/x1*100
  65. @ prow(),47 say "|"+str(n,6,2)+"        |"
  66. sele 1
  67. skip
  68. if .not. eof()
  69. @ prow()+1,1 say ì
  70. "|------------|--------|--------|--------------|--------------|"
  71. else  
  72. @ prow()+1,1 say ì
  73. "=============================================================="
  74. endif
  75. enddo
  76. set print on
  77. ? chr(13)
  78. set talk on
  79. set print off
  80. set device to screen
  81. a1=.t.
  82. retu
  83.  
  84.  
  85.  
  86.