property diskname : "Leo30"
property program : "iCal"
property mounted : false
property started : false
property delayTime : 2

tell application "Finder"
    if not (exists the disk diskname) then
        do shell script "diskutil mount `disktool -l | grep " & diskname & " | sed 's/.*\\(disk[0-9s]*\\).*/\\1/'`"
        repeat until (exists the disk diskname)
            delay delayTime
        end repeat
        set mounted to true
    end if
end tell

if mounted and not started then
    tell application program
        launch
    end tell
    set started to true
else
    tell application program
        quit
    end tell
    delay delayTime
    set started to false
    do shell script "diskutil unmount `disktool -l | grep " & diskname & " | sed 's/.*\\(disk[0-9s]*\\).*/\\1/'`"
    set mounted to false
end if

property diskname : "Leo30"
property program : "iCal"

tell application "Finder"
    if not (exists the disk diskname) then
        do shell script "diskutil mount `diskutil list| grep " & diskname & " | sed 's/.*\\(disk[0-9s]*\\).*/\\1/'`"
        repeat until (exists the disk diskname)
            delay 0.5
        end repeat
    end if
end tell

tell application program
    launch
activate
end tell

tell application "Finder"
    repeat until (not (exists process program))
        delay 0.5
    end repeat
end tell

do shell script "diskutil unmount `diskutil list | grep " & diskname & " | sed 's/.*\\(disk[0-9s]*\\).*/\\1/'`"