Basic 3D Screen

Can someone post something that does something like the following? Or does anyone actually know how to do it? lol

In Blitz3D

Graphics3d 1024,768,32,2
Setbuffer Backbuffer()

light = CreateLight()
camera = CreateCamera()
cube = CreateCube()
PositionEntity cube,0,0,10

While Not Keyhit(1)
cls

Updateworld
Renderworld

Flip
Wend

In BlitzMax

'umm....no idea
'hmmm...maybe
bglCreateContext(1024,768,32,0,BGL_BACKBUFFER | BGL_DEPTHBUFFER)
InitGl()

'There's a start even though it's a bit weird
'Here's some more

While Not Keyhit(KEY_ESCAPE)

bglDrawText("Hey I'm trying ok? :p",10,24)
FlushMem
bglSwapBuffers
Wend