Power Builder - Consulta sobre un script

Debo hacer un pequeño script en el evento close de una aplicacion, que unicamente pregunte "Desea salir del programa" y que la si es si obviamente lo saque y sino proceda con la ejecución.
Se la logica pero no conozco mucho pb.
Muchas Gracias

Evento Close

integer a
a= messagebox('Mensaje','Desea Salir de la Aplicacion ?',YesNo!)

if a = 1 then ---> Si desea Salir
else ---> no desea saqlir
end if