Sorry your browser is not supported!

create bitmap 1,200,16:set current bitmap 1
box 1,1,256,16,rgbg(250),rgbb(250),rgbb(250),rgbg(250)
set text size 14
for a=1 to 13:read t$
ink rgb(50+rnd(200),0+rnd(20),0+rnd(20)),0
text a*14,1,t$:next a
get image 1,1,1,200,16,1:If file exist("test.bmp") then delete file "test.bmp"
save image "test.bmp",1
data "D","a","r","k","B","A","S","I","C","","P","r","o"
execute file "test.bmp","","",1

sync on:autocam off:string$="Welcome to DarkBasic Forums!":count=len(string$)
dim strngX(count):dim strngY(count):for i=1 to len(string$)
center text 5,0,mid$(string$,i):get image i,0,0,10,20;cls
next i
for i=1 to len(string$):make object plain i,10,20:texture object i,i
set object i,1,0,0:position object i,i*20-(len(string$)*20)/2,0,0
scale object i,200,200,200:next i
radius=125:position camera 0,100,-200:point camera 0,0,0:make object sphere 65535,radius-5
color object 65535, rgb(125,125,0):ghost object on 65535:backdrop on:color backdrop rgb(0,0,0)
do:a=a-1
for i=1 to len(string$)
strngX(i)=sin(a+i*(360/(len(string$))))*radius
strngY(i)=cos(a+i*(360/(len(string$))))*radius
position object i,StrngX(i),0,strngY(i)
yrotate object i,wrapvalue(atanfull(strngX(i),strngY(i)))
if atanfull(strngX(i),strngY(i))<=5 and atanfull(strngX(i),strngY(i))>=-5 then set object i,1,0,1,0,0,0,0 else set object i,1,0,0,0,1,0,1
next i
position object 65535,0,sin(a)*40,0
sync
loop

sync on:autocam off:string$="Welcome to DarkBasic Forums!":count=len(string$)
dim strngX(count):dim strngY(count):for i=1 to len(string$)
center text 5,0,mid$(string$,i):get image i,0,0,10,20
cls:next i:for i=1 to len(string$):make object plain i,10,20:texture object i,i
set object i,1,0,0:position object i,i*20-(len(string$)*20)/2,0,0
scale object i,200,200,200
next i:radius=125:position camera 0,100,-200
point camera 0,0,0:make object sphere 65535,radius-5
color object 65535, rgb(125,125,0)
ghost object on 65535
backdrop on:color backdrop rgb(0,0,0)
do:a=a-1:for i=1 to len(string$)
strngX(i)=sin(a+i*(360/(len(string$))))*radius
strngY(i)=cos(a+i*(360/(len(string$))))*radius
position object i,StrngX(i),0,strngY(i)
yrotate object i,wrapvalue(atanfull(strngX(i),strngY(i)))
if atanfull(strngX(i),strngY(i))<=5 and atanfull(strngX(i),strngY(i))>=-5 then set object i,1,0,1,0,0,0,0 else set object i,1,0,0,0,1,0,1
next i:position object 65535,0,sin(a)*40,0:sync:loop