#plist CFBundleIdentifier @"com.mygreatcompany.MyGreatApp"
output @"MyGreatApp"

void local fn Doit
  CFArrayRef apps = fn RunningApplicationsWithBundleIdentifier( fn BundleIdentifier( fn BundleMain ) )
  if ( len(apps) > 1 )
    alert 101,, @"Another instance of this app is already running.", @"Choose 'Quit' to terminate.", @"Quit"
    end
  end if

  window 1, @"My Great App"
end fn

fn DoIt

HandleEvents