**********************************************************
*Demonstration of "Text Methods", just press RUN in the
*program editor!
#My.Setup
#Color(4)
#Text(1,1,"Hi there!!")
#TextDelay(.5)
#Text(1,3,"SLOW TEXT!")
#GetTextDelay(myvar!)
#Castlit(myvar,litvar$)
#TextDelay(.005)
#Text(1,5,"Text Speed: " + litvar$)
#Delay(1)
**********************************************************
#Method Setup
{
#Redirect("#Text","#My.Text")
#Redirect("#TextDelay","#My.TextDelay")
#Redirect("#GetTextDelay","#My.GetTextDelay")
#TextDelay(.005)
}
**********************************************************
#Method Text(x!,y!,text$)
{
#KillRedirect("#Text")
#text_done!=0
#char!=0
#build_text$=""
#new_text$="NOT DONE!"
#while(new_text$~="")
{
#char!=char!+1
#CharAt(text$,char!,new_text$)
#build_text$=build_text$+new_text$
#Text(x!,y!,build_text$)
#Delay(text_delay_method_speed!)
}
#Kill(text_done!)
#Kill(char!)
#Kill(cuild_text$)
#Kill(new_text$)
#Redirect("#Text","#My.Text")
}
**********************************************************
#Method TextDelay(speed!)
{
#text_delay_method_speed! = speed!
}
**********************************************************
#Method GetTextDelay(myvar!)
{
#myvar!=text_delay_method_speed!
#ReturnMethod(myvar!)
}