home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BH5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.1 KB  |  100 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. use bh
  5. loca for h17='y'
  6. if eof()
  7. @ 4,0 clear
  8. wait  '              ╬▐╙ª┤ª└φ╗≥╙ª═╦╗⌡╡─▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  9. clos data
  10. retu
  11. endif
  12. a1=.t.
  13. do while a1
  14. clear
  15. @ 1,1 say "║╧═¼║┼   ▒╕╝■▒α║┼   ▒╕╝■├√│╞              ╡Ñ╝█   ╢⌐╗⌡┴┐   ì
  16. ╥╤╡╜╗⌡┴┐   ┴¬╧╡╚╦"
  17. l=2
  18. do while .not. eof()
  19. @ l,1 say h1+' '+h2+h4+str(h6,8,2)+'  '+str(h7,8,2)+'  ì
  20. '+str(h10,8,2)+'  '+h14
  21. cont
  22. l=l+1
  23. if l>=9 .and. .not. eof()
  24. wait '░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
  25. if w='r'
  26. clos data
  27. retu
  28. endif
  29. exit
  30. endif
  31. enddo 
  32. if eof()
  33. exit
  34. endif
  35. enddo 
  36. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
  37. if w<>'y'
  38. clos data
  39. retu
  40. endif
  41. clear
  42. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  43. set cons off
  44. set device to print 
  45. set print on
  46. ? chr(27)+"IJ"
  47. set print off
  48. loca for h17='y'
  49. p=1
  50. a1=.t.
  51. do while a1
  52. @ prow()+1,50 say "╙ª┤ª└φ╗≥╙ª═╦╗⌡╡─▒╕╝■"
  53. @ prow()+1,1 say "         "
  54. @ prow()+1,103 say "╡┌"+str(p,2)+"╥│"
  55. @ prow()+1,1 say ì
  56. "=================================================================ì
  57. ======================================================"
  58. @ prow()+1,1 say "| ║╧  ═¼  ║┼ |▒╕╝■▒α║┼ | ▒╕  ╝■  ├√  │╞ |╣µ     ì
  59.        ╕±|╢⌐╗⌡╡Ñ╝█|╢⌐╗⌡╩²┴┐|╥╤╡╜╗⌡┴┐|  ╣⌐    ╙ª    │º    ì
  60. ╖╜  |┴¬ ╧╡ ╚╦|"
  61. @ prow()+1,1 say ì
  62. "|------------|---------|----------------|----------------|-------ì
  63. -|--------|--------|------------------------|--------|"
  64. l=1
  65. do while .not. eof()
  66. @ prow()+1,1 say ì
  67. "|"+h1+"|"+h2+"|"+h4+"|"+h5+"|"+str(h6,8,2)+"|"+str(h7,8,2)+"|"+stì
  68. r(h10,8,2)+"|"+h3+"|"+h14+"|"
  69. l=l+1
  70. cont
  71. if .not. eof()
  72. if l>=10
  73. ejec
  74. p=p+1
  75. @ prow()+1,1 say ì
  76. "=================================================================ì
  77. ====================================================="
  78. exit
  79. else
  80. @ prow()+1,1 say ì
  81. "|------------|---------|----------------|----------------|-------ì
  82. -|--------|--------|------------------------|--------|"
  83. endif
  84. else
  85. @ prow()+1,1 say ì
  86. "=================================================================ì
  87. ======================================================"
  88. exit
  89. endif
  90. enddo 
  91. if eof()
  92. exit
  93. endif
  94. enddo 
  95. set print on
  96. ? chr(13)
  97. set print off
  98. set device to screen
  99. retu
  100.