moo
var word,let.amnt,amnt2 :string var count,count2:int :=0 amnt:= "" amnt2:="" put "Enter word" get word put "Enter another" get let cls for g:1..length (word) if index (let,word (g))>0then count := count +1 amnt := amnt+word(x)+"," end if end for for y :1..length (let) if index (word,let(y))>0then count2:=count2+1 amnt2:=amnt2+let(y)+"," end if end for if count = 0 then put word+","+let put "No match" else put word+","+let put"Matches: ", count,"||||",amnt(1..*-1),"||||" end if put "" if count2=0 then put let+","word else put let+","+word put "Matches: ", count2, "||||", amnt2(1..*-1),"||||" end if