XProfan

declare X%,Y%,xbutton%,ybutton%,text$//        Variablen declarieren
let x%=100//              Zuweisungen
let y%=100
cls
@CreateIcon(%HWnd,"Baum",x%,y%)//          Erstellen des Icons
waitinput//                warten auf Eingabe