on run argv
  set {slideKey} to {item 1} of argv

  tell application "Microsoft PowerPoint"
    if (count of windows) is 0 then
      error "Not open any files"
    end if

    if not (slide show view of slide show window 1 exists) then
      error "Microsoft PowerPoint is not in slideshow mode"
    end if
  end tell


  activate application "Microsoft PowerPoint"
  tell application "System Events"

    set theList to my split(slideKey, ",")
    repeat with a from 1 to length of theList
      set theCurrentListItem to item a of theList
      key code theCurrentListItem
    end repeat

    key code 36
  end tell
end run

to split(someText, delimiter)
  set AppleScript's text item delimiters to delimiter
  set someText to someText's text items
  set AppleScript's text item delimiters to {""}
  return someText
end split