FAQ.How to shutdown a Mac?

Var ae as appleevent
ae=newappleEvent("FNDR","shut","MACS")
if not ae.send then
  msgBox "The computer couldn't be shutdown."
end if

Or toolbox call (Attention: This method will stop the computer
immediataly: No document asked to be saved, all applications quitting
without knowing).

Declare Sub ShutDwnPower Lib "Carbon" ()
ShutDwnPower