*SEARCH.PRG

CLEAR
? '       The entire name is not required, just enough to identify �
him.'
?
? '                    Capitalization must be correct!'
?
?

ACCEPT "Enter Scout's last name, first name  " to cubber
FIND &CUBBER
IF EOF() = .T.
CLEAR
@ 12,23 say "Couldn't find that Cub Scout"
?
?
?
?
?
?
?
WAIT
RETURN
ELSE
SET FORMAT TO LOOKCUB
EDIT