Just simply use the TEXT command to print it on the screen. Here is a quick example:
Rem Project: Dark Basic Pro Project
Rem Created: Monday, March 05, 2012
Rem ***** Main Source File *****
sync on : sync rate 60
autocam off : backdrop on : color backdrop 0
#constant true 1
make object cube 1,20
make object cone 2,20 : position object 2,-100,0,100 : xrotate object 2,90.0 : fix object pivot 2
position camera -100.0,300.0,100.0 : point camera -100.0,0.0,100.0
repeat
text 10,10,"Control cone using arrowkeys"
text 300,10,"Spacebar to exit."
MoveBox()
if object collision(1,2) = true
text 100,100,"objects are colliding!"
endif
sync
until spacekey() = 1
for i = 1 to 2 : delete object i : next i
end
function MoveBox()
upk = upkey() : dnk =- downkey() : lfk = leftkey() : rgk = rightkey()
if upk = true then move object 2,5.0
if dnk = true then move object 2,-5.0
if lfk = true
y# = object angle y(2)
y# = wrapvalue(y# - 2.0)
yrotate object 2,y#
endif
if rgk = true
y# = object angle y(2)
y# = wrapvalue(y# + 2.0)
yrotate object 2,y#
endif
// reposition camera
x# = object position x(2) : z# = object position z(2)
position camera x#,300.0,z#
point camera x#,0.0,z#
endfunction
