home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / search.prg < prev    next >
Encoding:
Text File  |  1989-03-31  |  377 b   |  28 lines
  1. *SEARCH.PRG
  2.  
  3. CLEAR
  4. ? '       The entire name is not required, just enough to identify ì
  5. him.'
  6. ?
  7. ? '                    Capitalization must be correct!'
  8. ?
  9. ?
  10.  
  11. ACCEPT "Enter Scout's last name, first name  " to cubber
  12. FIND &CUBBER
  13. IF EOF() = .T.
  14. CLEAR
  15. @ 12,23 say "Couldn't find that Cub Scout"
  16. ?
  17. ?
  18. ?
  19. ?
  20. ?
  21. ?
  22. ?
  23. WAIT
  24. RETURN
  25. ELSE
  26. SET FORMAT TO LOOKCUB
  27. EDIT
  28.