list$ = "mouse,hat,cup,deodorant,television,soap,methamphetamine,severed cat heads,cup"
n$ = explode(list$, ",")
t = 0 : j = 0

input string "Enter string to search: ", linea$

for i = 0 to n$[?]-1
	if linea$ = n$[i] then
		if not t then print "First index for "; linea$; ": "; i
		t = i
		j += 1
	end if
next

if t = 0 then
	print "String not found in list"
else
	if j > 1 then print "Last index for "; linea$; ": "; t
end if