SuperStrict

Graphics 800,600,0,60

For Local I:Int = 1 To 25
        TText.Create("Text "+I)
Next

Repeat
        Cls
       
        TText.Echo()
       
        Flip
Until AppTerminate()

Type TText
        Field Text:String
        Field TextScroll:Int
       
        Global Scroll:Int
        Global List:TList = CreateList()
       
        Function Create(Text:String)
                Local t:TText = New TText
               
                t.Text = Text
                t.TextScroll = Scroll
                Scroll:+10
               
                List.AddFirst(t)
        End Function
       
        Function Echo()
                For Local t:TText = EachIn List
               
                        ' ******
                        SetViewport 0, 0, 28, TextHeight("")*5
                        ' ******
                       
                        DrawText t.Text, 0, 0 + t.TextScroll
                        SetViewport 0, 0, GraphicsWidth(), GraphicsHeight()
                Next
        End Function
End Type