REBOL [
    Title: "a simple alert example"
    Date: 28-Aug-2003
    Version: 1.0.1
    File: %alert.r
    Author: "Viktor Pavlu"
    Purpose: "introduces alert to the beginner^/"
    Email: viktor_pavlu@hotmail.com
    Category: [2 view]
    Note: {
    alert [ 'string 'true 'false 'none ]
     -- pops up a message box with up to three buttons
  }
]

button: alert [ system/script/header/note 'true 'false 'none ]

either button [
  alert "clicked true"
][
  either button = false [
    alert "clicked false"
  ][
    alert "clicked none"
  ]
]