home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BJH11.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  114 lines
  1. clear
  2. set talk off
  3. set device to screen 
  4. sele 1
  5. use sb index sb1
  6. sele 2
  7. use bjh
  8. a2=.t.  
  9. do while a2
  10. clear
  11. @ 0,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞        ╔╧┤╬"+a+"╚╒╞┌"+"  ì
  12. "+a+"║≤└█╝╞┐¬╢»╠¿╩▒"+"  "+a+"╓▄╞┌(╠¿╩▒)"
  13. l=1
  14. do while .not. eof()
  15. c=bjh1
  16. sele 1
  17. seek c
  18. c=sb3
  19. sele 2
  20. do case 
  21. case bjh17=1
  22. f=7.5
  23. case bjh17=2
  24. f=15.5
  25. case bjh17=3
  26. f=24
  27. otherwise 
  28. f=15.5
  29. endcase
  30. f=bjh2*f
  31. @ l,1 say bjh1+"   "+c+"   "+dtoc(bjh6)+"    ì
  32. "+str(bjh7,8,2)+"         "+str(f,8,2)
  33. skip
  34. l=l+1
  35. if .not. eof() 
  36. if l>=9
  37. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
  38. exit
  39. endif
  40. endif
  41. enddo 
  42. if eof()
  43. exit
  44. endif
  45. enddo a2
  46. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  47. if w<>'y'
  48. clos data 
  49. retu
  50. endif
  51. set device to print 
  52. set cons off
  53. set print on
  54. ? chr(27)+"IJ"
  55. set print off
  56. p=1
  57. a2=.t.
  58. sele 2
  59. goto top
  60. do while a2 
  61. @ prow()+1,30 say "╕≈╔Φ▒╕╔╧┤╬"+a+"║≤┐¬╢»╟Θ┐÷"
  62. @ prow()+1,1 say "                  "
  63. @ prow()+1,65 say "╡┌"+str(p,2)+"╥│"
  64. @ prow()+1,1 say ì
  65. "=====================================================================ì
  66. "
  67. @ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞    ì
  68.     |╔╧┤╬"+a+"╚╒╞┌|"+a+"║≤└█╝╞┐¬╢»╠¿╩▒|"+a+"╓▄╞┌|"
  69. @ prow()+1,1 say ì
  70. "|---------|----------------|------------|------------------|-------ì
  71. -------|"
  72. l=6
  73. do while .not. eof()
  74. c=bjh1
  75. sele 1
  76. seek c
  77. a=sb3
  78. sele 2
  79. @ prow()+1,1 say "|"+bjh1+"|"+a+"|"+dtoc(bjh6)+"    ì
  80. |"+str(bjh7,8,2)+"          |"+str(f,8,2)+"|"
  81. skip
  82. l=l+1
  83. if .not. eof()
  84. if l>=50
  85. @ prow()+1,1 say ì
  86. "=================================================================ì
  87. "
  88. p=p+1
  89. ejec
  90. exit
  91. endif
  92. else
  93. @ prow()+1,1 say ì
  94. "|---------|----------------|------------|------------------|--------|ì
  95. "
  96. l=l+1
  97. endif
  98. else
  99. @ prow()+1,1 say ì
  100. "==================================================================ì
  101. "
  102. a2=.f.
  103. exit
  104. endif
  105. enddo 
  106. enddo a2
  107. set print on
  108. ? chr(13)
  109. set print off
  110. set device to screen 
  111. set cons on 
  112. clos data 
  113. retu
  114.