Just watched Torchwood Declassified and liked the way the names of the people interviewed appeared on the screen so I just made a simple function to do it.
A bit trivial I know, but it only took a couple of minutes...
Rem TorchWood Declassified Screen Text Example
Rem (c) TDK_Man Jan 2007
Rem Calling Parameters:
Rem X - X Screen Position. Set to -1 for horizontal screen centred text
Rem Y - Y Screen Position.
Rem Text$ - The text you want to display
Rem Usage: TorchwoodText(X,Y,Text$)
Rem Display Settings
Set Display Mode 800,600,16
Sync On: Sync Rate 0
CLS 0
Randomize Timer()
Rem Set font face, style, size and ink colour yourself before calling the function
Set Text Font "Courier New"
Set Text Size 24
Ink RGB(251,214,4),0
Print "Press A Key To Start..."
Wait Key
CLS
A$ = "CHANGE THIS TEXT TO WHATEVER YOU LIKE"
TorchwoodText(-1,200,A$)
A$ = "PRESS ANY KEY TO EXIT"
TorchwoodText(-1,400,A$)
Wait Key
End
Rem The function
Function TorchwoodText(X,Y,Text$)
Set Text Opaque
CharPos=0
T=Timer()
Repeat
If (Timer()-T)/100 = 4 Or Mid$(Text$,CharPos)=" "
Inc CharPos
T=Timer()
Endif
Display$ = Left$(Text$,CharPos)
For N2=CharPos+1 To Len(Text$)
If Mid$(Text$,N2) <> " "
Display$ = Display$+Chr$(RND(25)+65)
Else
Display$ = Display$+" "
Endif
Next N2
If X = -1
Center Text Screen Width()/2,Y,Display$
Else
Text X,Y,Display$
Endif
Sync
Until Display$=Text$
EndFunction
TDK_Man
