Graphics 1024,768,32,1
SetBuffer BackBuffer()

; Hauptschleife
While Not KeyDown(1)


Flip
Wend
End

Const cScrWidth = 1024
Const cScrHeight = 768
Const cBPP = 32 ; bits per pixel
Const cGraphMode = 1 ; 1 == fullscreen, 0 == auto, 2 == window, 3 == scalable window

Const cKeyEsc = 1


Graphics(cScrWidth,cScrHeight,cBPP,cGraphMode)
SetBuffer(BackBuffer()) ; activate double buffering


; Hauptschleife
While Not KeyDown(cKeyEsc)
  ; do something

  Flip()
Wend


End

 Const cScrWidth = 1024 
 Const cScrHeight = 768 
 Const cBPP = 32 ; bits per pixel 
 Const cGraphMode = 1 ; 1 == fullscreen, 0 == auto, 2 == window, 3 == scalable window 
 
 Const cKeyEsc = 1 
 
 
 Graphics(cScrWidth,cScrHeight,cBPP,cGraphMode) 
 SetBuffer(BackBuffer()) ; activate double buffering 
 
 
 ; Hauptschleife 
 While Not KeyDown(cKeyEsc) 
   Cls()
   ; do something 
 
   Flip() 
 Wend 
 
 
 End 

main_window = CreateWindow(\"Fenster\",0,0,400,300,0)

menu_datei = CreateMenu(\"Datei\",10, WindowMenu(main_window))
CreateMenu (\"Beenden\",19,menu_datei)
UpdateWindowMenu(main_window)

Repeat
Select WaitEvent()
Case $803
  Select EventSource()
  Case main_window
     End
  End Select
Case $401
  Select EventSource()
  ;hier Button etc. prüfen
  End Select
Case $1001
  Select  EventData()
  Case 19
     End
  End Select
End Select

Until KeyDown(1)