home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / B7.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.1 KB  |  126 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use ygz
  7. sele 2
  8. use ysg index ysg1
  9. sele 3
  10. use bjh           
  11. a='     '
  12. @ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌:" get a pict 'xx.xx'
  13. read
  14. clear
  15. set exac off
  16. y=0
  17. loca for bjh18<>'f'
  18. do while .not. eof()
  19. do case 
  20. case bjh17=2
  21. x=15.5*25
  22. case bjh17=3
  23. x=24*30
  24. otherwise
  25. x=25*7.5
  26. endcase
  27. y=y+x
  28. cont
  29. enddo
  30. sele 1
  31. loca for g1=a
  32. if eof()
  33. appe blank
  34. repl g1 with a,g7 with y
  35. else
  36. repl g7 with y
  37. endif
  38. loca for g1<=a
  39. a1=.t.
  40. do while a1
  41. clear
  42. @ 1,1 say "─Ω.╘┬    ╚╒└·╝╞╗«╘╦╫¬╠¿╩▒    ╩┬╣╩,╣╩╒╧═ú╗·╩▒╝Σ    ì
  43. ┐╔└√╙├┬╩"
  44. l=2
  45. do while .not. eof()
  46. @ l,1 say " "+g1
  47. @ l,8 say " "+str(g7,8,1)
  48. c=g1
  49. sele 2
  50. seek c        
  51. e=y3
  52. sele 1
  53. e=e+g3
  54. @ l,30 say " "+str(e,8,1)
  55. e=(g7-e)/g7*100
  56. @ l,50 say " "+str(e,8,2)
  57. l=l+1
  58. cont 
  59. if .not. eof()
  60. if l>=8
  61. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
  62. exit
  63. endif
  64. else
  65. a1=.f.
  66. endif
  67. enddo
  68. enddo 
  69. wait '┤≥╙í┬≡(Y/N)' to w
  70. if w<>'y'
  71. close database
  72. a1=.t.
  73. retu
  74. endif
  75. clear
  76. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  77. set device to print 
  78. set cons off
  79. set print on
  80. ? chr(27)+"IJ"
  81. set print off
  82. @ prow()+1,20 say "╓≈╥¬╔Φ▒╕┐╔└√╙├┬╩"
  83. @ prow()+1,1 say "                             "
  84. @ prow()+1,1 say ì
  85. "=============================================================="
  86. @ prow()+1,1 say "|─Ω.╘┬     |╚╒└·╝╞╗«╘╦╫¬╠¿╩▒  ì
  87. |╩┬╣╩,╣╩╒╧═ú╗·╩▒╝Σ|╔Φ▒╕┐╔└√╙├┬╩|"
  88. @ prow()+1,1 say ì
  89. "|----------|------------------|-----------------|------------|"
  90. sele 1
  91. loca for g1<=a
  92. do while .not. eof()
  93. @ prow()+1,1 say "|"+g1
  94. @ prow(),12 say "|"+str(g7,8,1)
  95. c=g1
  96. sele 2
  97. loca for y1=c
  98. e=y3
  99. sele 1
  100. e=e+g3
  101. @ prow(),31 say "|"+str(e,8,1)
  102. e=(g7-e)/g7*100
  103. @ prow(),49 say "|"+str(e,8,2)+"    |"
  104. cont 
  105. if .not. eof()
  106. @ prow()+1,1 say  ì
  107. "|----------|------------------|-----------------|------------|"
  108. else
  109. @ prow()+1,1 say ì
  110. "=============================================================="
  111. endif
  112. enddo 
  113. @ prow()+1,1 say ì
  114. "╔Φ▒╕┐╔└√╙├┬╩ú╜(╚╒└·╝╞╗«╘╦╫¬╠¿╩▒-╩┬╣╩,╣╩╒╧═ú╗·╩▒╝Σ)ú»╚╒└·╝╞╗«╘╦╫¬╠¿ì
  115. ╩▒"
  116. set print on
  117. ? chr(13)
  118. set print off
  119. set device to screen 
  120. close database
  121. a1=.t.
  122. set cons on
  123. retu
  124.  
  125.  
  126.