Spelling Out

Blitz3D Forums/Blitz3D Beginners Area/Spelling Out

Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "I"
Delay 100
Write "'"
Delay 100
Write "M"
Delay 100
Write " "
Delay 100
Write "B"
Delay 100
Write "O"
Delay 100
Write "B"
Delay 100
Write "!"
Delay 100
Write " "
Delay 100
Write "W"
Delay 100
Write "H"
Delay 100
Write "A"
Delay 100
Write "T"
Delay 100
Write "'"
Delay 100
Write "S"
Delay 100
Write " "
Delay 100
Write "Y"
Delay 100
Write "O"
Delay 100
Write "U"
Delay 100
Write "R"
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "A"
Delay 100
Write "M"
Delay 100
Write "E"
Delay 100
Write "?"
Print
name$=Input("")
name=Upper(name$)
Print
Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write name
Delay 100
Write "!"
Delay 1000
Write " "
Delay 100
Write "O"
Delay 100
Write "H"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "I"
Delay 100
Write " "
Delay 100
Write "H"
Delay 100
Write "A"
Delay 100
Write "V"
Delay 100
Write "E"
Delay 100
Write " "
Delay 100
Write "T"
Delay 100
Write "O"
Delay 100
Write " "
Delay 100
Write "G"
Delay 100
Write "O"
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "O"
Delay 100
Write "W"
Delay 100
Write "."
Delay 100
Write " "
Delay 100
Write "B"
Delay 100
Write "Y"
Delay 100
Write "E"
Delay 100
Write "!"
Delay 2000
End



Or, for a shorter version:
Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write "N"
Delay 100
Write "A"
Delay 100
Write "M"
Delay 100
Write "E"
Delay 100
Write "?"
Print
name$=Input("")
name=Upper(name$)
Print
Delay 100
Write "H"
Delay 100
Write "I"
Delay 100
Write ","
Delay 100
Write " "
Delay 100
Write name
Delay 100
Write "!"




Alright, my question is...
How do you spell out the name (like all the other text) that the user types in?

Use a For..Next loop and the Mid$() command.

Indeed, to expand on that

t$ = "Hello my name is Earl"
for n=1 to len(t)
write mid(t,n,1)
delay 100
next
waitkey

Thanks, works now.