This is a modification to genius's
Quote: "Typeawriter Text"
It has black words on white and uses courier, and I added multiple line support. Just put a # to signify a new line. I would have posted this on genius's thread, only it's too old.
x=0
y=0
`this is the text you want outputted
INK rgb(0,0,0), rgb(244,214,210)
set text font "Courier" : set text size 16
cls
str1$ = "Hello. My name is Typy.#I am typing a letter to you!#Press any key to continue."
`loop throught the length of the string
for i = 1 to len(str1$)
`add the string together
if mid$(str1$,i)="#"
y=y+16
fin$=""
i=i+1
wait 100+rnd(200)
endif
fin$ = fin$ + mid$(str1$,i)
`wait
wait 100+rnd(200)
`output your text
text x,y,fin$
next i
`wait
wait 1000
`end
suspend for key
end
I added code in both places just in case one doesn't work for you.
