home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SG2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  4.5 KB  |  168 lines
  1. clear
  2. set talk off
  3. close database
  4. sele 1
  5. use sg
  6. sele 2
  7. use yin
  8. set device to screen
  9. k1='        '
  10. k2='        '
  11. @ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get k1 pict '99.99.99'
  12. @ 5,10 say "╓╒╓╣╚╒╞┌" get k2 pict "99.99.99"
  13. read
  14. d1=k1
  15. d2=k2
  16. j1=substr(k1,4,2)
  17. j2=substr(k1,7,2)
  18. j3=substr(k1,1,2)
  19. k1=j1+'/'+j2+'/'+j3
  20. k1=ctod(k1)
  21. j1=substr(k2,4,2)
  22. j2=substr(k2,7,2)
  23. j3=substr(k2,1,2)
  24. k2=j1+'/'+j2+'/'+j3
  25. k2=ctod(k2)
  26. set device to print 
  27. set print on
  28. set cons off
  29. ? chr(27)+"IJ"
  30. set print off
  31. set cons on
  32. j1=0
  33. j2=0
  34. j3=0
  35. j4=0
  36. j5=0
  37. j6=0
  38. t1=0
  39. t2=0
  40. t3=0
  41. t4=0
  42. t5=0
  43. t6=0
  44. p1=0
  45. p2=0
  46. p3=0
  47. p4=0
  48. p5=0
  49. p6=0
  50. @ 2,40 say " "+d1+"---"+d2+"╔Φ▒╕╩┬╣╩═│╝╞▒¿▒φ"
  51. @ 3,1 say "                     "
  52. @ 4,1 say ì
  53. "=================================================================ì
  54. ================================================"
  55. @ 5,1 say "|                |        |        |                              ╩┬╣╩╦≡╩º  ì
  56.                                     |"      
  57. @ 6,1 say "|╩┬╣╩╘¡╥≥        ì
  58. |╩┬╣╩└α▒≡|╩┬╣╩┤╬╩²|--------------|----------------------|------------|------------|------ì
  59. ------|"
  60. @ 7,1 say "|                |        |        ì
  61. |═ú╗·╠¿╩▒(╨í╩▒)|╞Σ╓╨╙░╧∞╔·▓·╩▒╝Σ(╨í╩▒)|╓▒╜╙╦≡╩º(╘¬)|╝Σ╜╙╦≡╩º(╘¬)|╨▐└φ╖╤╙├(╘¬)|"
  62. @ 8,1 say ì
  63. "|----------------|--------|--------|--------------|------------------ì
  64. ----|------------|------------|------------|"
  65. sele 2
  66. do while .not. eof()
  67. a=yin1
  68. b=yin2
  69. sele 1
  70. sum sg6,sg7,sg9,sg10,sg11 to x1,x2,x3,x4,x5 for sg3='3' .and. ì
  71. sg2>=k1 .and. sg2<=k2 .and. sg4=a
  72. t1=x1+t1
  73. t2=x2+t2
  74. t3=t3+x3
  75. t4=t4+x4
  76. t5=t5+x5
  77. count to x6 for sg3='3' .and. sg2>=k1 .and. sg2<=k2 .and. sg4=a
  78. t6=t6+x6
  79. @ prow()+1,1 say "|                |╥╗░π    |"+str(x6,4)
  80. @ prow(),36 say "|"+str(x1,6,2)
  81. @ prow(),51 say "|"+str(x2,6,2)
  82. @ prow(),74 say "|"+str(x3,10,2)
  83. @ prow(),87 say "|"+str(x4,10,2)
  84. @ prow(),100 say "|"+str(x5,10,2)+"  |"
  85. @ prow()+1,1 say "|                ì
  86. |--------|--------|--------------|----------------------|---------ì
  87. ---|------------|------------|"
  88. sum sg6,sg7,sg9,sg10,sg11 to y1,y2,y3,y4,y5 for sg3='2' .and. ì
  89. sg4=a .and. sg2>=k1 .and. sg2<=k2
  90. count to y6 for sg3='2' .and. sg4=a .and. sg2>=k1 .and. sg2<=k2
  91. j1=j1+y1
  92. j2=j2+y2
  93. j3=j3+y3
  94. j4=j4+y4
  95. j5=j5+y5
  96. j6=j6+y6
  97. @ prow()+1,1 say "|"+b+"|╓╪┤≤    |"+str(y6,4)
  98. @ prow(),36 say "|"+str(y1,6,2)
  99. @ prow(),51 say "|"+str(y2,6,2)
  100. @ prow(),74 say "|"+str(y3,10,2)
  101. @ prow(),87 say "|"+str(y4,10,2)
  102. @ prow(),100 say "|"+str(y5,10,2)+"  |"
  103. @ prow()+1,1 say "|                ì
  104. |--------|--------|--------------|----------------------|---------ì
  105. ---|------------|------------|"
  106. sum sg6,sg7,sg9,sg10,sg11 to z1,z2,z3,z4,z5 for sg3='1' .and.ì
  107.  sg4=a .and. sg2>=k1 .and. sg2<=k2
  108. count to z6 for sg3='1' .and. sg4=a .and. sg2>=k1 .and. sg2<=k2
  109. p1=p1+z1
  110. p2=p2+z2
  111. p3=p3+z3
  112. p4=p4+z4
  113. p5=p5+z5
  114. p6=p6+z6
  115. @ prow()+1,1 say "|                |╠╪┤≤    |"+str(z6,4)
  116. @ prow(),36 say "|"+str(z1,6,2)
  117. @ prow(),51 say "|"+str(z2,6,2)
  118. @ prow(),74 say "|"+str(z3,10,2)
  119. @ prow(),87 say "|"+str(z4,10,2)
  120. @ prow(),100 say "|"+str(z5,10,2)+"  |"
  121. sele 2
  122. skip
  123. if .not. eof()
  124. @ prow()+1,1 say ì
  125. "|----------------|--------|--------|--------------|------------------ì
  126. ----|------------|------------|------------|"
  127. else
  128. @ prow()+1,1 say ì
  129. "|----------------|--------|--------|--------------|--------------ì
  130. --------|------------|------------|------------|"
  131. @ prow()+1,1 say "|                |╥╗░π    |"+str(t6,4)
  132. @ prow(),36 say "|"+str(t1,6,2)
  133. @ prow(),51 say "|"+str(t2,6,2)
  134. @ prow(),74 say "|"+str(t3,10,2)
  135. @ prow(),87 say "|"+str(t4,10,2)
  136. @ prow(),100 say "|"+str(t5,10,2)+"  |"
  137. @ prow()+1,1 say "|                ì
  138. |--------|--------|--------------|----------------------|---------ì
  139. ---|------------|------------|"
  140. @ prow()+1,1 say "|║╧╝╞            |╓╪┤≤    |"+str(j6,4)
  141. @ prow(),36 say "|"+str(j1,6,2)
  142. @ prow(),51 say "|"+str(j2,6,2)
  143. @ prow(),74 say "|"+str(j3,10,2)
  144. @ prow(),87 say "|"+str(t4,10,2)
  145. @ prow(),100 say "|"+str(t5,10,2)+"  |"
  146. @ prow()+1,1 say "|                ì
  147. |--------|--------|--------------|----------------------|---------ì
  148. ---|------------|------------|"
  149. @ prow()+1,1 say "|                |╠╪┤≤    |"+str(p6,4)
  150. @ prow(),36 say "|"+str(p1,6,2)
  151. @ prow(),51 say "|"+str(p2,6,2)
  152. @ prow(),74 say "|"+str(p3,10,2)
  153. @ prow(),87 say "|"+str(p4,10,2)
  154. @ prow(),100 say "|"+str(p5,10,2)+"  |"
  155. @ prow()+1,1 say ì
  156. "=================================================================ì
  157. ================================================"  
  158. endif
  159. enddo 
  160. set print on
  161. ? chr(13)
  162. set print off
  163. set device to screen
  164. retu
  165.  
  166.  
  167.  
  168.