graphics 800, 600
setbuffer backbuffer()

include "menu.bb" ;hier gibt es die Funktion Menu()
include "game.bb" ;hier gibt es die Funktion Game()

Const MENU=1
Const GAME=2
Const ENDE=0 ; hier das deutsche Wort, weil End ein BB-Befehl ist

global gState = MENU ;hier wird der aktuelle Status festgelegt (globaler Status)

While (gState <> ENDE)

   select gState
      case MENU
         Menu() ;hier rufen wir die Menu-Funktion aus der menu.bb auf
      case GAME
         Game() ;hier das Gleiche mit der Game-Funktion
   end select

Wend

end

Function Menu()

   local tState = gState
   ;hier schaffen wir eine Vergleichsvariablen, falls gState sich irgendwann ändern sollte (temporärer Status)

   repeat

      if keyhit(1) then gState = ENDE ;Escape-Taste
      if keyhit(28) then gState = GAME ; Enter-Taste

      text 10, 10, "Ich bin das Menü"

      flip
      cls

   until (gState <> tState)
end function