XProfan

windowstyle 80
window 0,0 - 640,480
casenot ogl("init",%hwnd,0,0,0,1) : error("Cant init OpenGL.")
var gdifnt&=create("Font","Arial",20,0,0,0,0)
var oglfnt&=ogl("OUTLINEFONT",gdifnt&,0.25)
ogl("Clear")
ogl("Origin",0,0,-10)
ogl("move",-5.5,3.4,0)
ogl("PRINT",oglfnt&,"TEXT")
ogl("show")
waitinput
ogl("done")
end

proc error

    parameters s$,
    messagebox s$,"",0
    end

ENDPROC