Problems with text screen

Archived
1

I’ve been trying to put a large amount of readable text on a channel I’m working on but every time I try to load the text it just locks up the roku box.
Any thoughts as to why this is?
I’m trying to load about 500 kilobytes of text using the rotextscreen component.
Here’s the code.

Function showTextScreen(Selection As Object) As Integer
     initTheme()
     port = CreatObject("roMessagePort")
     screen = CreateObject("roTextScreen")
     screen.SetMessagePort(Port)
     screen.SetTittle("Bible Lessons")
     screen.SetHeaderText(Selection.Tittle)
     screen.SetText(Selection.Synopsis)
     screen.AddButton(1,"Close")
     screen.Show()
     while true
        msg = wait(0, screen.GetMessagePort())
        if type(msg) = " roTextScreenEvent"
            if msg.isScreenClosed() then
                 return -1
            elseif msg.isButtonPressed() then
                 if msg.GetIndex() = 1 then
                    return -1
                 endif
            endif
        endif
    end while
End Function