home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  37 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. loop 
  27. endif
  28. exit 
  29. enddo 
  30. wait '                    ╗╣╨▐╕─┬≡ú¿ú┘ú»ú╬ú⌐' to qq
  31. if qq<>'y'
  32. exit 
  33. endif
  34. enddo 
  35. use
  36. retu
  37.