DIMENSION FriendArray(5)
STORE 'Ram' TO FriendArray(1)
STORE 'Shyam' TO FriendArray(2)
STORE 'Sohan' TO FriendArray(3)
STORE 'Mohan' TO FriendArray(4)
STORE 'Rohan' TO FriendArray(5)
DISPLAY MEMORY
srchText = 'Shyam'
indexno = ASCAN(FriendArray,srchText)
IF indexno != 0
MESSAGEBOX("Found")
retval = ADEL(FriendArray,indexno)
WAIT WINDOW retval
clear
DISPLAY MEMORY
ELSE
MESSAGEBOX("not Found")
ENDIF