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)
srchText = 'Shyam'
indexno = ASCAN(FriendArray,srchText)
MESSAGEBOX(indexno)
