Rem Text In 3D Simple Version by TDK_Man Feb 2007
 
Gosub ScreenSetup
 
Do
  Gosub Rotate3DText
  If UpKey()=1 Then Position Camera 0,Camera Position Y()+.1,-10: Point Camera 0,0,0
  If DownKey()=1 Then Position Camera 0,Camera Position Y()-.1,-10: Point Camera 0,0,0
  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$)
  Ink RGB(255,255,0),0
  Text 0,0,Msg$
  Blur Bitmap 1,1
  Get Image 1,0,0,TW,TH
  Set Current Bitmap 0
  Delete Bitmap 1
  Gosub Create3DText
  Position Camera 0,5,-10
  Point Camera 0,0,0
Return
 
Create3DText:
  For N=1 To 10
    Make Object Plain N,10,2
    Texture Object N,1
    Set Object N,1,0,0
    Position Object N,0,0,N*.1
  Next N
Return
 
Rotate3DText:
  For N=1 To 10
    YRotate Object N,WrapValue(Object Angle Y(N)+1)
  Next N
Return