fenster = CreateWindow ("Programmwahl", 250,200, 500,500)
satz$ = "Sie haben dieses Programm gestartet, weil Sie ein anderers Programm öffnen wollen!" + Chr$(13) + "Falls nicht, beenden Sie es bitte wieder!" + Chr$(13) + Chr$(13) + "Copyright by Karsten Schneiderwind"
label = CreateLabel(satz$, 15,50, 1000,200, fenster)
SetStatusText fenster, "Wählen Sie bitte ein Programm aus!"
;
menu10 = CreateMenu ("Datei", 10, WindowMenu(fenster))
menu20 = CreateMenu ("Optionen", 20, WindowMenu(fenster))
menu30 = CreateMenu ("Beenden", 30, WindowMenu(fenster))
;
menu11 = CreateMenu ("Befehle", 11, menu10)
menu12 = CreateMenu ("Laden", 12, menu11)
menu13 = CreateMenu ("Beenden", 13, menu10)
;
UpdateWindowMenu fenster
;
menu14 = CreateMenu ("Administration", 14, menu20)
menu15 = CreateMenu ("Blitz Plus", 15, WindowMenu(fenster))
;
DisableMenu menu15
UncheckMenu menu14
;
UpdateWindowMenu fenster
;
button1 = CreateButton ("Ordner laden", 25,150, 120,20, fenster, 1)
button2 = CreateButton ("Programm öffnen", 25,200, 120,20, fenster, 1)
;
Repeat
   ereignis = WaitEvent()
   wahl = EventData()
   If ereignis = $1001 Then
    Select wahl
     Case 13 ; "Beenden"
      End
     Case 14 ; "Administartion"
      If MenuChecked(menu14) Then
       UncheckMenu menu14
       DisableMenu menu15
      Else
       CheckMenu menu14
       EnableMenu menu15
      EndIf
     Case 30 ; "Beenden"
      End
     End Select
   EndIf
   If ereignis = $401 And EventSource() = button1 Then
    ordner$ = RequestDir("Wählen Sie einen Ordner:")
    Notify ordner$ + " ausgewählt"
   EndIf
   If ereignis = $401 And EventSource() = button2 Then
    datei$ = RequestFile("Wählen Sie eine Datei:", "exe", 0)
    Notify datei$ + " ausgewählt"
   EndIf
   UpdateWindowMenu fenster
Forever
;
UpdateWindowMenu fenster
;
UpdateWindowMenu fenster