リストから選択してアイテム番号を返す

AppleScript名：リストから選択してアイテム番号を返す

set aList to {"red", "blue", "green", "white"}
set aMes to "項目を選択してください"
set aRes to retItemFromListByItemNo(aList, aMes) of me

–リストから選択してアイテム番号を返す
on retItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes
　　if aRes = false then return 0
　　
　　set aRes to contents of item 1 of aRes
　　set hitNum to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to aRes then
　　　　　　exit repeat
　　　　end if
　　　　set hitNum to hitNum + 1
　　end repeat
　　return hitNum
end retItemFromListByItemNo