set a to "Safari"
set aRes to dispAppWithFullScreen(a) of me

–指定名称のアプリケーション（起動中のもの）をフルスクリーン表示
on dispAppWithFullScreen(applicationName)
　　
　　set appName to returnExactNameOfAnApp(applicationName)
　　if appName = false then return false –指定のアプリがなかった、あるいはアプリケーション名を間違って指定した
　　
　　set pID to id of application appName
　　
　　tell application appName
　　　　reopen
　　　　activate
　　end tell
　　
　　tell application "System Events"
　　　　tell (process 1 whose bundle identifier is pID)
　　　　　　set b1List to every button of window 1 whose subrole is "AXFullScreenButton" –Full Screen
　　　　　　set b2List to every button of window 1 whose subrole is "AXZoomButton" –Zoom
　　　　　　
　　　　　　if b1List = {} then
　　　　　　　　set targB to first item of b2List –フルスクリーン表示機能を持たないアプリの場合
　　　　　　else
　　　　　　　　set targB to first item of b1List –フルスクリーン表示機能を持つアプリの場合
　　　　　　end if
　　　　　　
　　　　　　click targB
　　　　end tell
　　end tell
　　
　　return true
　　
end dispAppWithFullScreen