void local fn SaveFile
CFStringRef fileString = @"The quick brown fox jumped over the lazy dog's back."
CFURLRef url = savepanel 1, @"Choose location to save file.", @"txt", @"Untitled", @"Save"
if (url)
  fn StringWriteToURL( fileString, url, YES, NSUTF8StringEncoding, NULL )
else
  // User canceled
end if
end fn

fn SaveFile

HandleEvents