home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / B9.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.2 KB  |  114 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 3
  6. use jdx
  7. loca for jdx2='╛½├▄'
  8. tt=jdx1
  9. loca for jdx2='┤≤╨═'
  10. rr=jdx1
  11. loca for jdx2='╧í╙╨'
  12. qq=jdx1
  13. sele 1
  14. use bjh
  15. sele 2
  16. use ygz
  17. clear
  18. a='     '
  19. @ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict '99.99'
  20. read
  21. clear
  22. sele 1
  23. set exac off
  24. count to x for bjh16=tt .or. bjh16=rr .or. bjh16=qq
  25. count to y for (bjh16=tt .or. bjh16=rr .or. bjh16=qq) .and. ì
  26. bjh14='0'
  27. sele 2
  28. set exac on
  29. loca for g1=a
  30. if eof()
  31. appe blank
  32. repl g1 with a,g8 with x,g9 with y
  33. else
  34. repl g10 with x,g11 with y
  35. endif
  36. loca for g1<=a
  37. a1=.t.
  38. do while a1
  39. clear
  40. @ 1,6 say "─Ω.╘┬    ╛½,┤≤,╧í╔Φ▒╕╫▄╠¿╩²       ═Ω║├╠¿╩²    ì
  41. ╩╡╝╩═Ω║├┬╩"
  42. l=2
  43. do while .not. eof()
  44. @ l,6 say " "+g1
  45. @ l,15 say " "+str(g10,5)
  46. @ l,35 say " "+str(g11,5)
  47. e=g11/g10*100
  48. @ l,50 say " "+str(e,8,2)
  49. l=l+1
  50. cont
  51. if .not. eof()
  52. if l>=8
  53. wait '      ░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
  54. exit 
  55. endif
  56. else 
  57. a1=.f.
  58. endif
  59. enddo
  60. enddo a1
  61. wait '      ┤≥╙í┬≡(Y/N)' to w
  62. if w<>'y'
  63. close database
  64. a1=.t.
  65. retu
  66. endif
  67. clear
  68. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  69. set device to print 
  70. set cons off
  71. set print on
  72. ? chr(27)+"IJ"
  73. set print off
  74. loca for g1<=a
  75. @ prow()+1,20 say "╛½,┤≤,╧í╔Φ▒╕═Ω║├┬╩"
  76. @ prow()+1,1 say "                      "
  77. @ prow()+1,1 say ì
  78. "============================================================"    
  79. @ prow()+1,1 say "|   ─Ω.╘┬   ì
  80. |╛½,┤≤,╧í╔Φ▒╕╫▄╠¿╩²|╘┬═Ω║├╔Φ▒╕╠¿╩²  |╩╡╝╩═Ω║├┬╩|"
  81. @ prow()+1,1 say ì
  82. "|-----------|------------------|----------------|----------|"
  83. do while .not. eof()
  84. @ prow()+1,1 say "|"+g1
  85. @ prow(),13 say "|"+str(g10,5)
  86. @ prow(),32 say "|"+str(g11,5)
  87. e=g11/g10*100
  88. @ prow(),49 say "|"+str(e,8,2)+"  |"
  89. cont
  90. if .not. eof()
  91. @ prow()+1,1 say ì
  92. "|-----------|------------------|----------------|----------|"
  93. else
  94. sum g11,g10 to x,y for g1<=a
  95. z=x*100/y
  96. @ prow()+1,1 say ì
  97. "|-----------|------------------|----------------|----------|"
  98. @ prow()+1,1 say "|║╧       ╝╞|     "+str(y,8)+"     |    ì
  99. "+str(x,8)+"    |  "+str(z,6,2)+"  |"
  100. @ prow()+1,1 say ì
  101. "============================================================"
  102. endif
  103. enddo 
  104. @ prow()+1,1 say "╛½,┤≤,╧í╔Φ▒╕═Ω║├┬╩ú╜═Ω║├╔Φ▒╕╠¿╩²ú»╛½,┤≤,╧í╔Φ▒╕╫▄╠¿╩²"
  105. set print on
  106. ? chr(13)
  107. set print off
  108. set device to screen
  109. a1=.t.
  110. close database
  111. set cons on
  112. retu
  113.  
  114.