on open theList
	repeat with theFile in theList
		tell application "Finder"
			set theType to file type of file theFile
			if theType is "TEXT" then
				set creator type of file theFile to "mf2P"
				set file type of file theFile to "TRKP"
			else if (theType is "TRKP") or (theType is "ROTP") or (theType is "SPTP") then
				set theCreator to creator type of file theFile
				if (theCreator is "mf2P") or (theCreator is "ipcC") then
					set creator type of file theFile to "ttxt"
					set file type of file theFile to "TEXT"
				end if
			end if
		end tell
		
		beep 1
	end repeat
	beep 1
end open