home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS9.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  39 lines
  1. clear
  2. clos data
  3. set devi to screen
  4. use bfm
  5. a1=.t.
  6. do while a1
  7. clear
  8. a='  '
  9. @ 4,10 say "╟δ╩Σ╚δ▒¿╖╧╘¡╥≥┬δ" get a
  10. read
  11. loca for bfm1=a
  12. if eof()
  13. clear
  14. @ 4,20 say "╬▐┤╦▒¿╖╧╘¡╥≥ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
  15. wait '   '
  16. retu
  17. endif
  18. a2=.t.
  19. do while a2
  20. clear
  21. @ 3,20 say "▒¿╖╧╘¡╥≥┬δ" get bfm1
  22. @ 4,20 say "▒¿╖╧╘¡╥≥" get bfm2
  23. read
  24. wait '                    ╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡ú¿ú┘ú»ú╬ú⌐' to w
  25. if w='y'
  26. dele 
  27. pack
  28. endif
  29. exit 
  30. enddo 
  31. wait '                    ╗╣╔╛│²┬≡ú¿ú┘ú»ú╬ú⌐' to qq
  32. if qq<>'y'
  33. exit 
  34. endif
  35. enddo 
  36. use
  37. retu
  38.  
  39.