home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YB8.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  856 b   |  59 lines
  1. clear
  2. set device to screen
  3. close database
  4. sele 2
  5. use dw index dw1
  6. sele 1
  7. use yb
  8. a2=.t.
  9. do while a2
  10. clear
  11. a='         '
  12. @ 4,10 say "╟δ╩Σ╚δ╥╟▒φ▒α║┼" get a
  13. read
  14. loca for yb11=a
  15. if eof()
  16. @ 4,0 clear
  17. wait '                  ╬▐┤╦╥╟▒φú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  18. clos data
  19. retu
  20. endif
  21. k1=yb1              
  22. k2=yb2
  23. k3=yb3          
  24. k4=yb4
  25. k5=yb5   
  26. k6=yb8
  27. k7=yb10
  28. k9=yb11
  29. sele 2
  30. seek k7
  31. k7=dw2
  32. a1=.t.
  33. do while a1
  34. clear
  35. @ 1,1 say "╥╟▒φ▒α║┼" get k9
  36. @ 2,1 say "╥╟▒φ├√│╞" get k1
  37. @ 3,1 say "╥╟▒φ╨═║┼" get k2
  38. @ 4,1 say "│÷│º║┼" get k3
  39. @ 5,1 say "╛½╢╚╡╚╝╢" get k4
  40. @ 6,1 say "╨ú▒φ╓▄╞┌" get k5
  41. @ 7,1 say "╩╣╙├┤╦▒φ╡─╔Φ▒╕▒α║┼" get k6
  42. @ 8,1 say "╩╣╙├╡Ñ╬╗" get k7
  43. wait '╒µ╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡ú¿ú┘ú»ú╬ú⌐' to w
  44. if w='y'
  45. sele 1
  46. dele 
  47. pack
  48. endif
  49. wait '             ╗╣╔╛│²┬≡ú¿ú┘ú»ú╬ú⌐' to qq
  50. if qq<>'y'
  51. clos data 
  52. retu
  53. endif
  54. enddo 
  55. retu
  56.  
  57.  
  58.  
  59.