home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  950 b   |  55 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a1=.t.
  6. do while a1
  7. clear
  8. @ 2,15 say "****************╔Φ▒╕▒¿╖╧╣▄└φ*********************"
  9. @ 3,15 say "  ú░ú«═╦│÷                 ú▒ú«▓Θ╤»─Γ▒¿╖╧╔Φ▒╕╫╩┴╧"
  10. @ 4,15 say "  ú▓ú«┤≥╙í▒¿╖╧╔Ω╟δ╡Ñ       ú│ú«▒¿╖╧╔Φ▒╕╡─╩Σ╚δ"
  11. @ 5,15 say "  ú┤ú«─Ω▒¿╖╧╔Φ▒╕├≈╧╕       ú╡ú«└·─Ω▒¿╖╧╔Φ▒╕├≈╧╕"
  12. @ 6,15 say "  ú╢ú«▒¿╖╧╔Φ▒╕╡─┤ª└φ"
  13. @ 7,15 say "***********************************************"
  14. wait '                ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
  15. do case
  16. case w='0'
  17. retu
  18. case w='6'
  19. a1=.t.
  20. do while a1
  21. clear
  22. a='         '
  23. @ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
  24. read
  25. use bfs 
  26. loca for bfs1=a
  27. if eof()
  28. wait '╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  29. clos data
  30. exit
  31. endif
  32. dele 
  33. pack
  34. wait '╗╣╙╨┬≡ú¿ú┘ú»ú╬ú⌐' to w
  35. if w<>'y'
  36. clos data
  37. exit
  38. endif
  39. enddo 
  40. case w='1'
  41. do bfs1.prg
  42. case w='2'
  43. do bfs2.prg
  44. case w='3'
  45. do bfs3.prg
  46. case w='4'
  47. do bfs4.prg
  48. case w='5'
  49. do bfs5.prg
  50. endcase
  51. enddo a1
  52. retu
  53.  
  54.  
  55.