imports system
imports system.io
imports system.collections

module module1

    sub main()
        dim objreader as new streamreader("c:\test.txt")
        dim sline as string = ""
        dim arrtext as new arraylist()

        do
            sline = objreader.readline()
            if not sline is nothing then
                arrtext.add(sline)
            end if
        loop until sline is nothing
        objreader.close()

        for each sline in arrtext
            console.writeline(sline)
        next
        console.readline()
    end sub

end module