程式語言 - FreeBASIC - Simple DirectMedia Layer (SDL) v1.2 - Hello, world!



參考資訊:
https://www.freebasic.net/
https://sourceforge.net/projects/fbc/files/
https://www.freebasic.net/forum/viewtopic.php?t=23216
https://www.freebasic.net/forum/viewtopic.php?f=14&t=21725

main.bas

#include "SDL.bi"
#include "SDL_gfx_primitives.bi"

dim video as SDL_Surface ptr

SDL_Init(SDL_INIT_VIDEO)
video = SDL_SetVideoMode(320, 240, 16, SDL_SWSURFACE)
stringRGBA(video, 100, 100, "Hello, world!", &hff, &hff, &hff, &hff)
SDL_Flip(video)
SDL_Delay(3000)
SDL_Quit

編譯、執行

$ fbc main.bas -i /opt/fbc/include/freebasic/SDL
$ ./main

完成