Break On $=SetTitle("Console")                ; Test the Console modes
    "Illustration of the SetConsole modes" ? ?    ; open the console
    $S=CreateObject("Kixforms.System")            ; S = Kixforms.net (NOT KIXTART)
    $F=$S.Form() $F.Text="ModeTest"               ; F = Form
    CrB(5,"HIDE")                                 ; Hide
    CrB(25,"SHOW")                                ; Show
    CrB(45,"MINIMIZE")                            ; Minimize
    CrB(65,"MAXIMIZE")                            ; Maximize
    CrB(85,"FOREGROUND")                          ; Foreground
    CrB(105,"ALWAYSONTOP")                        ; AlwaysOnTop
    $F.Show                                       ; Lets see
    While $F.Visible $=Execute($F.DoEvents) Loop Exit  ; Exit on Close
Function CrB($top,$tx) ;--------------------------- Create Button
    Dim $B $B=$S.Button()                         ; B = Button
    $B.Height=20 $B.Left=10 $B.Width=200          ; button shape
    $B.Top=$top $B.Text=$tx                       ; apply params
    $B.MouseUp="BCl($tx)"                         ; attach a ClickHandler
    $=$F.Controls.Add($B) EndFunction             ; add button to Form
Function BCl($mode) $mode ? PLAY "3d700f"         ; show mode in console
    $=SetConsole($mode) EndFunction               ; and set the consolemode