apple events and rev, and master handler

[Meitnik at aol.com]

Please comment and/or improve the following hander to handle apple events:

on appleEvent pClass,pID,pSender
   switch (pClass & pID)
   case "aevtquit"
     answer "Are you sure you want to quit?" with "Yes" or "No"
     if it = "Yes" then pass appleEvent
     break
   case "aevtodoc"
     request appleEvent data
     if it = "" then exit appleEvent
     put it into fpath
     openFileRoutine fpath
     break
     --   case "aevtoapp" -- so far this is not working anyone got clues????
     --     request appleEvent data
     --     if it = "" then exit appleEvent
     --     put it into fpath
     --     openFileRoutine fpath
     --     break
   case "aevtpdoc"
     request appleEvent data
     if it = "" then exit appleEvent
     put it into fpath
     printfileRoutine fpath
     break
   default
     pass appleEvent
     break
   end switch
end appleEvent