XProfan

 $H windows.ph
Declare Ende%
Declare ButtonOK&, ButtonAus&, ButtonMSGBox&
Declare Antwort$
Window 1,1 - %maxX, %maxY
Ende% = 0
ButtonOK& = @create(Button,%hWnd,OK,20,20,100,100)           OK Button erstellen
ButtonAus& = @create(Button,%hWnd,Aus,125,20,100,100)         Aus Button erstellen
ButtonMSGBox&= @create(Button,%hWnd,MSG-Box,230,20,100,100)     Button für Input und MSGBox
---------- Haupteinsprung

whileNot Ende%=1             Programmschleife

    waitinput                    Auf Eingabe warten

    if @getFocus(ButtonOK&)      Focus auf OK Button

        Ende%=1

    elseif @getFocus(ButtonAus&) Focus auf Aus Button

        ExitWindows 0

    elseif @getFocus(ButtonMSGBox&)

        Antwort$ = @Input$(Wie ist dein Name ?,Gib Deinen Vornamen ein!,)

        if Antwort$ <>

            @MessageBox(Schön  + Antwort$ +  das Du XProfan benutzt.,Antwort,1)

        endif

    endif

    endwhile                     Programmschleife Ende
    end                          Ende Programm

if .....

elseif ....

elseif clicked(deinbutton&)

    Messagebox(Deine Meldung,Dein Titel,64) siehe Hilfe für die Nummer am Schluss

endif