Rem Text In 3D Simple Version by TDK_Man Feb 2007
 
Gosub ScreenSetup
 
Do
  YRotate Object 1,WrapValue(Object Angle Y(1)+1)
  Sync
Loop
End
 
ScreenSetup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  AutoCam Off
  BackDrop On: Color Backdrop 0
  Set Text Font "Verdana"
  Set Text Size 24
  Create Bitmap 1,320,200
  Msg$="This Is Text In 3D!"
  TW=Text Width(Msg$)
  TH=Text Height(Msg$)
  Text 0,0,Msg$
  Blur Bitmap 1,1
  Get Image 1,0,0,TW,TH
  Set Current Bitmap 0
  Delete Bitmap 1
  Gosub CreateObject
  Position Camera 0,5,-10
  Point Camera 0,0,0
Return
 
CreateObject:
  Make Object Plain 1,10,2
  Texture Object 1,1
  Set Object 1,1,0,0
Return