home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BJH8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  3.0 KB  |  141 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use jh index jh1
  7. sele 2
  8. use sb index sb1
  9. sele 3
  10. use de index de1
  11. sele 1
  12. loca for jh2=a  
  13. if eof()
  14. @ 4,0 clear
  15. wait "                ╬▐"+d+"╨▐└φ╝╞╗«ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
  16. clos data
  17. retu
  18. endif
  19. a1=.t.
  20. do while a1
  21. clear
  22. @ 1,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞           ╨▐└φ╘┬╖▌   ╨▐└φ╣ñ╩▒  ì
  23. ╨▐└φ╖╤╙├  ═ú╨¬╠∞╩²"
  24. l=2
  25. do while .not. eof()
  26. @ l,1 say " "+jh1 
  27. c=jh1
  28. sele 2
  29. seek c
  30. @ l,10 say " "+sb3
  31. sele 1
  32. @ l,30 say " "+str(jh3,2)
  33. e=jh4+jh5+jh6+jh7+jh8+jh9+jh10
  34. @ l,40 say " "+str(e,8,2)
  35. @ l,50 say " "+str(jh11,10,2)
  36. @ l,60 say " "+str(jh12,5)
  37. l=l+1
  38. cont
  39. if .not. eof()
  40. if l>=8
  41. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
  42. exit
  43. endif
  44. else
  45. a1=.f.
  46. endif
  47. enddo
  48. enddo a1
  49. wait '┤≥╙í┬≡(Y/N)' to w
  50. if w<>'y'
  51. close database
  52. a1=.t.
  53. retu
  54. endif
  55. clear
  56. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  57. set cons off
  58. p=1
  59. loca for jh2=a
  60. a1=.t.
  61. do while a1
  62. set device to print 
  63. set print on
  64. set marg to 20
  65. set cons off
  66. ? chr(27)+"IJ"
  67. @ prow()+1,35 say "─Ω"+d+"╝╞╗«"
  68. ? chr(27)+"II"
  69. set print off
  70. set cons on
  71. @ prow()+1,150 say "╡┌"+str(p,2)+"╥│"
  72. @ prow()+1,1 say ì
  73. "=================================================================ì
  74. ==================================================================ì
  75. ======================================"
  76. @ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |╨▐└φ╘┬╖▌|ú╞╗·  ì
  77. |ú╞╡τ  |ú╞╞≡╓╪|ú╞║╕  |ú╞╣▄  ì
  78. |ú╞╗·╝╙|ú╞╞Σ╦ⁿ|╟»╣ñ╣ñ╩▒|╡τ╣ñ╣ñ╩▒|╞≡╓╪╣ñ╩▒|║╕╣ñ╣ñ╩▒|╣▄╣ñ╣ñ╩▒|╗·╝╙╣ñì
  79. ╩▒|╞Σ╦ⁿ╣ñ╩▒|╨▐└φ╖╤╙├  |═ú╨¬╠∞╩²|"
  80. @ prow()+1,1 say ì
  81. "|---------|----------------|--------|------|------|------|------|ì
  82. ------|------|------|--------|--------|--------|--------|--------|ì
  83. --------|--------|----------|--------|"
  84. l=6
  85. do while .not. eof()
  86. @ prow()+1,1 say "|"+jh1
  87. q=jh3
  88. b=jh1
  89. sele 2
  90. seek b
  91. @ prow(),11 say ì
  92. "|"+sb3+"|"+str(q,2)+"      |"+str(sb13,4,1)+"  |"+str(sb14,5,1)
  93. b=sb4
  94. sele 3
  95. seek b        
  96. @ prow(),51 say "|"+str(de5,5,1)+" |"+str(de6,5,1)+" ì
  97. |"+str(de7,5,1)+" |"+str(de8,5,1)+" |"+str(de11,5,1)
  98. sele 1
  99. @ prow(),86 say ì
  100. "|"+str(jh4,6,1)+"  |"+str(jh5,6,1)+"  |"+str(jh6,6,1)+"  |"+str(jh7,6,1)+"  |"+str(jh8,6,1ì
  101. )+"  |"+str(jh9,6,1)+"  |"+str(jh10,6,1)+"  ì
  102. |"+str(jh11,10,2)+"|"+str(jh12,5ì
  103. )+"   |"
  104. cont
  105. l=l+1
  106. if .not. eof()
  107. if l>=50
  108. @ prow()+1,1 say ì
  109. "=================================================================ì
  110. ==================================================================ì
  111. ====================================="
  112. p=p+1
  113. ejec
  114. exit
  115. else
  116. @ prow()+1,1 say ì
  117. "|---------|----------------|--------|------|------|------|------|ì
  118. ------|------|------|--------|--------|--------|--------|--------|ì
  119. --------|--------|----------|--------|"
  120. l=l+1
  121. endif
  122. else
  123. @ prow()+1,1 say ì
  124. "=================================================================ì
  125. ==================================================================ì
  126. ========================================"           
  127. a1=.f.
  128. endif
  129. enddo
  130. enddo a1
  131. set print on
  132. ? chr(13)
  133. set marg to 0
  134. set print off
  135. set device to screen
  136. close database
  137. a1=.t.
  138. set cons on
  139. retu
  140.  
  141.