Current Track

tell application "iTunes"
	try
	   set current_ to current track
	end try
	set str_ to "Artist:" & artist of current_ & "
	Title: " & name of current_ & "
	Album: " & album of current_
	display dialog str_ buttons {"OK", "Change"} ¬
	   default button 1
	copy the result as list to {sel_}
	if sel_ is "Change" then
	   set X to choose from list ¬
	       {"Repeat", "Previous", "Next"}
	   if X is false then
	       set a to 5
	   else
	       if "Repeat" is (item 1 of X) then
	           back track
	       else if "Previous" is (item 1 of X) then
	           previous track
	       else
	           next track
	       end if
	   end if
	end if
end tell
back