Hier ein simpler Quellcode, der als Beginn eines eigenen Programms dienen kann:
Code
' Haupt-Fenster öffnen
'
Cls
' Messageschleife ist nötig für jedes Fenster (hier unser Hauptfenster)
'
' Unendliche Schleife starten
'
While 1
' Warten, bis eine Meldung an unser Fenster geschickt wurde
'
WaitInput
' Wenn die XProfan-Variable %key gleich 2 war, wurde eine Fenster-Schliessen-Meldung erhalten.
'
If %key=2
'
' In dem Fall verlässt das BREAK unsere Schleife sofort
'
BREAK
EndIf
' Unendliche Schleife wieder von vorn beginnen
'
EndWhile
' Programmende
'
EndDer Quellcode erzeugt ein noch leeres Fenster. Es liegt an euch, daraus vielleicht ein Spiel oder Tool zu basteln. 