Source code in the vedit programming language

Reg_Set(10, "There have been no clicks yet")
#1 = 0
repeat (ALL) {
    #2 = Dialog_Input_1(3, "`Simple Windowed Application`,
                        `|@(10)`,
                        `[&Click me]`,`[&Exit]`",
                        APP+CENTER, 0, 0) 
    if (#2 != 1) { break }    // ESC or Exit
    #1++
    Num_Str(#1, 10)
    Reg_Set(10, "Clicked", INSERT)
    Reg_Set(10, " times", APPEND)
}