Mein erstes XProfan-Programm

[Frabbing]

Hier ein simpler Quellcode, der als Beginn eines eigenen Programms dienen kann:

' 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
'       
End

Der Quellcode erzeugt ein noch leeres Fenster. Es liegt an euch, daraus vielleicht ein Spiel oder Tool zu basteln.