home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YH4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.3 KB  |  125 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database 
  5. use yhf
  6. loca for yhf5-yhf4>=0
  7. if .not. eof()
  8. b=recno()
  9. else
  10. clear
  11. @ 4,10 say "╦∙╙╨╗╗╙═▓┐╬╗╢╝├╗╡╜╗╗╙╨▒Ω╫╝"
  12. @ 7,50 clear
  13. wait '                 ░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
  14. clear
  15. retu
  16. endif
  17. goto b
  18. a1=.t.
  19. do while a1
  20. clear
  21. @ 1,15 say "╔Φ▒╕▒α║┼  ╚≤╗¼╡π▒α║┼  ╗╗╙═╓▄╞┌(╠¿╩▒)  ╩╡┐¬╠¿╩▒ "
  22. l=2
  23. goto b
  24. do while .not. eof()
  25. @ l,15 say " "+yhf1
  26. @ l,27 say " "+yhf2
  27. @ l,39 say " "+str(yhf4,5)
  28. @ l,55 say " "+str(yhf5,5)
  29. cont
  30. l=l+1
  31. if .not. eof()
  32. if l>=9
  33. l=2
  34. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
  35. clear
  36. b=recno()
  37. goto bott
  38. skip
  39. a1=.t.
  40. endif
  41. else
  42. a1=.f.
  43. endif
  44. enddo
  45. enddo a1
  46. wait '               ┤≥╙í┬≡(Y/N)' to w
  47. if w<>'y'
  48. retu
  49. endif
  50. set device to print
  51. set print on
  52. set cons off
  53. ? chr(27)+"IJ"
  54. set print off
  55. set cons on
  56. sele 1
  57. use sb index sb1
  58. sele 2
  59. use yhf
  60. loca for yhf5>=yhf4
  61. p=1
  62. a1=.t.
  63. do while a1
  64. @ prow()+1,40 say "░┤╩╡┐¬╠¿╩▒╙ª╗╗╙═╡─╔Φ▒╕"
  65. @ prow()+1,40 say "~~~~~~~~~~~~~~~~~~~~~"
  66. @ prow()+1,1 say "                                                  ì
  67.                         "
  68. @ prow()+1,85 say "╡┌"+str(p,2)+"╥│"
  69. @ prow()+1,1 say ì
  70. "=================================================================ì
  71. ================================"
  72. @ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |░▓╫░╡╪╡π    ì
  73. |╚≤╗¼╡π▒α║┼|╔╧┤╬╗╗╙═╚╒╞┌|╗╗╙═╓▄╞┌(╠¿╩▒)|╗╗╙═║≤╥╤┐¬╢»╠¿╩▒|"
  74. @ prow()+1,1 say ì
  75. "|---------|----------------|------------|----------|------------|ì
  76. --------------|----------------|"
  77. l=6
  78. do while .not. eof()
  79. @ prow()+1,1 say "|"+yhf1
  80. c=yhf1
  81. sele 1
  82. seek c
  83. @ prow(),11 say "|"+sb3
  84. @ prow(),28 say "|"+sb29
  85. sele 2
  86. @ prow(),41 say "|"+yhf2
  87. e=dtoc(yhf3)
  88. j1=substr(e,7,2)
  89. j2=substr(e,1,2)
  90. j3=substr(e,4,2)
  91. e=j1+'.'+j2+'.'+j3
  92. @ prow(),52 say "|"+e
  93. @ prow(),65 say "|"+str(yhf4,5)
  94. @ prow(),80 say "|"+str(yhf5,5)+"           |"
  95. l=l+1
  96. cont
  97. if .not. eof()
  98. if l>=10
  99. @ prow()+1,1 say ì
  100. "=================================================================ì
  101. ================================"
  102. p=p+1
  103. ejec
  104. exit
  105. else
  106. @ prow()+1,1 say ì
  107. "|---------|----------------|------------|----------|------------|ì
  108. --------------|----------------|"
  109. l=l+1
  110. endif
  111. else
  112. @ prow()+1,1 say ì
  113. "=================================================================ì
  114. ================================"
  115. a1=.f.
  116. endif
  117. enddo
  118. enddo a1
  119. set print on
  120. ? chr(13)
  121. set print off 
  122. set device to screen
  123. a1=.t.
  124. retu
  125.