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