SDL的FreeBASIC程序框架

'$include: 'SDL/SDL.bi'

CONST ScreenWidth  AS INTEGER = 640, _ '窗口宽度
      ScreenHeight AS INTEGER = 480, _ '窗口高度
      BPP          AS INTEGER = 32     '色彩位数

DIM video AS SDL_Surface PTR

'初始化SDL
CALL SDL_Init(SDL_INIT_EVERYTHING)
'初始化窗口
video = SDL_SetVideoMode(ScreenWidth, _
                         ScreenHeight, _
                         BPP, _
                         SDL_SWSURFACE)
'设置窗口标题
CALL SDL_WM_SetCaption("窗口标题",NULL)
'接下来输入你的程序代码即可

'退出SDL
CALL SDL_Quit