XProfan

 {$cleq}
declare x!,y!,i&,text$,c&,usage!,start!
cls
text$="HelloXProfanWorld"
usefont "Courier New",20,0,0,0,0
c&:=len(text$)-1
textcolor 0,-1
usage!=pi()
start!=pi()*0.5
for i&:=0 to c& do begin
x!=sin(usage!/c&*i&+start!)	*100
y!=cos(usage!/c&*i&+start!)	*100
drawtext x!+200,y!+200,mid$(text$,(c&-i&+1),1)
//setpixel x!+200,y!+200,rgb(255,0,0)
end
waitkey
end