home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBEDY.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  77 lines
  1. clear
  2. set talk off
  3. sele 2
  4. use sb3 index sb4
  5. set device to print 
  6. a1=.t.
  7. p=1
  8. do while a1
  9. @ prow()+1,1 say "             "
  10. set device to print 
  11. set print on
  12. ? chr(27)+"IJ"
  13. set print off
  14. @ prow()+1,40 say bt+"╔Φ▒╕╠¿╒═"
  15. set print on
  16. ? chr(27)+"II"
  17. set print off
  18. @ prow()+1,130 say "╡┌"+str(p,2)+'╥│'
  19. @ prow()+1,1 say ì
  20. "=================================================================ì
  21. ==================================================================ì
  22. =========="
  23. @ prow()+1,1 say "|╔Φ▒╕▒α║┼ |  ╓≈╥¬▓─╓╩  |░▓╫░╠¿╩²|▒╕╙├╠¿╩²|╜Θ    ì
  24.     ╓╩|╬┬╢╚|╤╣┴ª|  ╓≈╗·╨═║┼  ì
  25. | ╝⌡╦┘╗·╨═║┼ |╝⌡╦┘╗·╦┘▒╚|┤½╢»╫░╓├╨╬╩╜|╔Φ╝╞╩┘├ⁿ|    ╔·▓·─▄┴ª    |"
  26. @ prow()+1,1 say ì
  27. "|---------|------------|--------|--------|------------|----|----|ì
  28. ------------|------------|----------|------------|--------|----------------ì
  29. |"
  30. l=1
  31. sele 1
  32. do while .not. eof()
  33. a=sb1
  34. sele 2
  35. seek a
  36. @ prow()+1,1 say "|"+sb1+"|"+sb37+"|   "+str(sb38,2)+"   |   "+str(sb39,2)+" ì
  37.   |"+sb40+"|"+str(sb41,4)+"|"+str(sb42,4)+"|"+sb43+"|"+sb44+"|  "+sb45+" ì
  38.  |"ì
  39. +sb46+"|   "+str(sb47,2)+"   |"+sb48+"|"
  40. sele 1
  41. cont
  42. l=l+1
  43. if .not. eof()
  44. if l>=50
  45. @ prow()+1,1 say ì
  46. "=================================================================ì
  47. ==================================================================ì
  48. =========="
  49. ejec 
  50. p=p+1
  51. exit
  52. else
  53. @ prow()+1,1 say ì
  54. "|---------|------------|--------|--------|------------|----|----|ì
  55. ------------|------------|----------|------------|---ì
  56. -----|----------------|"
  57. endif
  58. else
  59. @ prow()+1,1 say ì
  60. "=================================================================ì
  61. ==================================================================ì
  62. =========="
  63. endif
  64. enddo 
  65. if eof()
  66. exit
  67. endif
  68. enddo 
  69. set print on
  70. ? chr(13)
  71. set print off
  72. set device to screen 
  73. clos data
  74. retu
  75.  
  76.  
  77.