home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / FX9.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.6 KB  |  165 lines
  1. clear
  2. set talk off
  3. clos data
  4. set device to screen
  5. a='        '
  6. b='        '
  7. @ 4,20 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get a pict '99.99.99'
  8. @ 5,20 say "╓╒╓╣╚╒╞┌" get b pict '99.99.99'
  9. read
  10. pp=a
  11. dd=b
  12. clear
  13. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
  14. set cons off
  15. j1=substr(a,4,2)
  16. j2=substr(a,7,2)
  17. j3=substr(a,1,2)
  18. a=j1+'/'+j2+'/'+j3
  19. a=ctod(a)
  20. j1=substr(b,4,2)
  21. j2=substr(b,7,2)
  22. j3=substr(b,1,2)
  23. b=j1+'/'+j2+'/'+j3
  24. b=ctod(b)
  25. dele file www.ndx
  26. dele file hz.dbf
  27. use cr 
  28. index on l1 to www
  29. total for l2>=a .and. L2<=b .and. l10=c on l1 to hz fields l3
  30. sele 1
  31. use hz
  32. sele 2
  33. use bj index bj1
  34. if c='c'
  35. d='│÷┐Γ'
  36. else
  37. d='╚δ┐Γ'
  38. endif
  39. sele 1
  40. if eof() .and. bof()
  41. set cons on
  42. @ 4,0 clear
  43. wait '                       ┤╦╞┌╝Σ╬▐'+d+'╗ε╢»ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  44. clos data 
  45. retu
  46. endif
  47. set cons on
  48. a1=.t.
  49. do while a1
  50. clear
  51. @ 1,1 say "▒╕╝■▒α║┼      ▒╕╝■├√│╞            ╡Ñ╝█    "+d+"╩²┴┐"
  52. l=2
  53. do while .not. eof()
  54. sele 1 
  55. a=l1
  56. sele 2
  57. seek a
  58. a=b2
  59. sele 1
  60. @ l,1 say l1+'   '+a+'   '+str(l4,8,2)+'   '+str(l3,8,2)
  61. skip
  62. l=l+1
  63. if l>=9 .and. .not. eof()
  64. wait '░┤ú╥╝ⁿ╖╡╗╪ú¼░┤╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
  65. if w='r'
  66. clos data
  67. retu
  68. endif
  69. exit
  70. endif
  71. enddo 
  72. if eof()
  73. exit      
  74. endif
  75. enddo
  76. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  77. if w<>'y'
  78. wait '┤µ╡╡╖±ú¿ú┘ú»ú╬ú⌐' to w
  79. pp=2
  80. if w='y'
  81. clos data
  82. do while .not. file('a:hz.dbf')
  83. copy file hz.dbf to a:hz.dbf
  84. pp=1
  85. enddo
  86. if pp<>1
  87. use a:hz
  88. appe from hz
  89. endif
  90. endif
  91. clos data
  92. retu
  93. endif
  94. clear
  95. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  96. set cons off
  97. set device to print 
  98. set print on
  99. ? chr(27)+"IJ"
  100. set print off
  101. sele 1
  102. goto top
  103. p=1 
  104. a1=.t.
  105. do while a1
  106. @ prow()+1,5 say pp+'---'+dd+"╝Σ"+"╕≈▒╕╝■"+d+"╟Θ┐÷╗π╫▄"
  107. @ prow()+1,1 say "       "
  108. @ prow()+1,40 say "╡┌"+str(p,2)+"╥│"
  109. @ prow()+1,1 say ì
  110. "=============================================="
  111. @ prow()+1,1 say "|▒╕╝■▒α║┼ |  ▒╕╝■├√│╞      |  ╡Ñ╝█  |  ╩²┴┐  |"
  112. @ prow()+1,1 say "|---------|----------------|--------|--------|"
  113. l=1
  114. do while .not. eof()
  115. sele 1
  116. a=l1
  117. sele 2
  118. seek a
  119. a=b2
  120. sele 1
  121. @ prow()+1,1 say "|"+l1+"|"+a+"|"+str(l4,8,2)+"|"+str(l3,8,2)+"|"
  122. l=l+1
  123. skip
  124. if .not. eof()              
  125. if l>=10
  126. ejec
  127. p=p+1
  128. @ prow()+1,1 say "=============================================="
  129. exit
  130. else
  131. @ prow()+1,1 say "|---------|----------------|--------|--------|"
  132. l=l+1
  133. endif
  134. else
  135. @ prow()+1,1 say "=============================================="
  136. endif
  137. enddo 
  138. if eof()
  139. exit
  140. endif
  141. enddo
  142. set print on
  143. ? chr(13)
  144. set print off
  145. set cons on
  146. set device to screen 
  147. wait '┤µ╡╡╖±ú¿ú┘ú»ú╬ú⌐' to w
  148. clos data
  149. if w<>'y'
  150. retu
  151. endif
  152. pp=1
  153. do while .not. file('a:hz.dbf')
  154. copy file hz.dbf to a:hz.dbf
  155. pp=2
  156. enddo 
  157. if pp<>2
  158. use a:hz
  159. appe from hz
  160. endif
  161. clos data
  162. retu
  163.  
  164.  
  165.