home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XL1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.2 KB  |  101 lines
  1. clear 
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use sb index sb1
  7. sele 2
  8. use dgm
  9. sele 3
  10. use xl
  11. sele 4
  12. use dw
  13. k1='        '
  14. k2='        '
  15. @ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get k1 pict 'xx.xx.xx'
  16. @ 5,10 say "╓╒╓╣╚╒╞┌" get k2 pict 'xx.xx.xx'
  17. read
  18. j1=substr(k1,4,2)
  19. j2=substr(k1,7,2)
  20. j3=substr(k1,1,2)
  21. k1=j1+'/'+j2+'/'+j3
  22. k1=ctod(k1)
  23. j1=substr(k2,4,2)
  24. j2=substr(k2,7,2)
  25. j3=substr(k2,1,2)
  26. k2=j1+'/'+j2+'/'+j3
  27. k2=ctod(k2)
  28. clear
  29. set device to print 
  30. set print on
  31. set cons off
  32. ? chr(27)+"IJ"
  33. set print off
  34. set cons on
  35. @ 1,30 say "╕≈╡Ñ╬╗╨╣┬⌐╟Θ┐÷"
  36. @ 2,1 say "                      "
  37. @ 3,1 say ì
  38. "=================================================================ì
  39. ============="
  40. @ 4,1 say "|            |╛▓├▄╖Γ╡π╩²|╛▓╨╣┬⌐╡π╩²|╛▓╨╣┬⌐┬╩ ì
  41. %.|╥¬╟≤╡─╛▓╨╣┬⌐┬╩ %.|│¼▓ε╟Θ┐÷ %.|"
  42. @ 5,1 say "|╡Ñ        ì
  43. ╬╗| -------- | -------- | --------- | --------------- | --------- |"
  44. @ 6,1 say "|            |╢»├▄╖Γ╡π╩²|╢»├▄╨╣┬⌐╩²|╢»╨╣┬⌐┬╩ ì
  45. %.|╥¬╟≤╡─╢»╨╣┬⌐┬╩ %.|│¼▓ε╟Θ┐÷ %.|"
  46. @ 7,1 say ì
  47. "|------------|----------|----------|-----------|-----------------|---ì
  48. --------|"
  49. sele 4
  50. do while .not. eof()
  51. a=dw1
  52. sele 1
  53. sum sb35,sb36 to x1,y1 for sb28=a
  54. sele 2
  55. loca for dgm1=a
  56. x2=dgm2
  57. x=dgm3
  58. y=dgm4
  59. x1=x1+x2
  60. sele 3
  61. sum xl3,xl4 to x2,y2 for xl2=a .and. xl1>=k1 .and. xl1<=k2
  62. sele 4
  63. k3=dw2
  64. @ prow()+1,1 say "|            "
  65. @ prow(),14 say "|"+str(x1,4)
  66. @ prow(),25 say "|"+str(x2,4)
  67. a=x2/x1*1000
  68. @ prow(),36 say "|"+str(a,8,3)
  69. @ prow(),48 say "|"+str(x,5,2)
  70. a=a-x
  71. @ prow(),66 say "|"+str(a,8,3)+"   |"     
  72. @ prow()+1,1 say "|"+k3
  73. @ prow(),14 say ì
  74. "| -------- | -------- | --------- | --------------- | --------- |"
  75. @ prow()+1,1 say "|            "
  76. @ prow(),14 say "|"+str(y1,4)
  77. @ prow(),25 say "|"+str(y2,4)
  78. a=y2/y1*1000
  79. @ prow(),36 say "|"+str(a,8,3)
  80. @ prow(),48 say "|"+str(y,5,2)
  81. a=a-y
  82. @ prow(),66 say "|"+str(a,8,3)+"   |"
  83. sele 4
  84. skip
  85. if .not. eof()
  86. @ prow()+1,1 say ì
  87. "|------------|----------|----------|-----------|-----------------|-ì
  88. ----------|"
  89. else
  90. @ prow()+1,1 say ì
  91. "=================================================================ì
  92. =============" 
  93. endif
  94. enddo 
  95. set print on
  96. ? chr(13)
  97. set print off
  98. set device to screen
  99. a1=.t.
  100. retu
  101.