;Grafikfenster Initialisieren
Graphics 800,600,32,2   ;Wir stellen das GRafikfenster auf die Auflösung 800x600, 32bit Farbtiefe und im Fenstermodus
SetBuffer BackBuffer()   ;Der BackBuffer wird gesetzt. Beachte: Der Buffer wird AUSSERHALB DER SCHLEIFE gesetzt!

Global Zion = LoadImage ("gfx/Zion.bmp")
Global keiner=LoadImage ("gfx/keiner.bmp")

;Laden undso
frametimer = CreateTimer(60)   ;Erstellt einen Timer der die Frameanzahl auf 60 Bilder pro Sekunde regelt.

;Jetzt kommt sie, die allmächtige
;---MAINLOOP---
Repeat

Startscreen()
Startscreen2()

   ;Zeichnen
   Flip 0   ;Flip 0 stellt das VSync aus und sollte immer so verwendet werden wenn WaitTimer benutzt wird!
   Cls
   WaitTimer(frametimer)   ;Hier wird abgefragt ob schon eine Sechzigstel-Sekunde seit dem letzten WaitTimer vergangen ist. Wenn nicht wird gewartet.
Forever
End

Function Startscreen()
      DrawBlock Zion, 180, 20
      Color 255,255,0
      Text 230, 400, "Zionwarez"
End Function

Function Startscreen2()       
      DrawBlock keiner,0,0
      Text 120,400, "...also machen wir sie selbst!"
End Function