strings initialized?

[programandala.net]

What version do you have?? Please, download latest one

I had dowloaded 1.2.6r1603c some days ago, but I've just realized I hadn't updated the symbolic link to it!, so I was still using 1.2.6r1603b. Anyway I tried both, and the program crashes with both.

I have just downloaded the last development version in the archive (1.2.6r1603e) and the program frozes after printing a different string, in fact a whole string array (that happened some hours ago with 1.2.6r1603b).

The problematic function (the same I mentioned before) is:

Code:

function strings(times as ubyte, text as string ) as string

    dim i as ubyte
    dim result as string
    let result="" ' NEEDED, OR BOOM :)
    for i = 1 to times
        let result = result + text
    next i
    return result

end function

And the sub that calls it is the following:

Code:

sub wcls()

    ' Clear the text window.

    ' 2010-06-17 First draft.

    dim l as ubyte
    for l=lastLine to firstLine step -1
        print at l,firstCol;strings(winWidth," ")
        ' print at l,firstCol;"                              " ' winWidth spaces, TEMPORARY ALTERNATIVE, anyway a bit faster
    next l
    home()

end sub

And:

Code:

const firstCol as ubyte = 1
const lastCol as ubyte = 30
#define winWidth lastCol-firstCol+1

Don't worry, it's not important.It will be solved by time