Sorry your browser is not supported!

backdrop on
sync on

text$ = "Your sentence goes here."
index = 0
max_length = len(text$) : rem number of characters in string
delay = 200 : rem delay for showing new character in milliseconds
timestamp = timer()

do


   if index <= max_length
      if timeStamp + delay <= timer()
         inc index, 1
         display$ = typewriter(text$, index)
         timeStamp = timer()
      endif
   endif



   set cursor 0,0
   print display$
   sync
loop


function typewriter(t$, index)
   if len(t$) > index then t$ = left$(t$, index)
endfunction t$

backdrop on
sync on

max_strings = 6
dim text$(max_strings-1)

for t=0 to max_strings-1
   read z$
   text$(t) = z$
next t

text$ = text$(0)
max_length = len(text$)

dim display$(max_strings-1)

index = 0
index2 = 0
flag=0
delay = 50
timestamp = timer()


do

   if index <= max_length and index2 < max_strings and flag=0
      if timeStamp + delay <= timer()
         inc index
         display$(index2) = typewriter(text$, index)
         timeStamp = timer()
      endif
      if display$(index2) = text$
         inc index2
         text$ = text$(index2)
         max_length = len(text$)
         index = 0
         if index2 = max_strings then dec index2:flag=1
      endif
   endif



   set cursor 0,0

   for t=0 to index2
      print display$(t)
   next t


   sync
loop




function typewriter(t$, index)
   if len(t$) > index then t$ = left$(t$, index)
endfunction t$



data "[princess] Oh, Ronin will we ever be together again?"
data "[Ronin] I'm not sure my lady. There are troubles."
data "[princess] What kind of troubles my lord?"
data "[Ronin] Trouble too great for me to ignore. Powers destined to keep us apart."
data "[princess] What evil is it that you speak of?"
data "[Ronin] *long pause*....... Your mother!"