bc9Basic / Blog: Recent posts

'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'An example submitted to the Yahoo BCX forum that failed when 
'compiled as a 64bit application. 
'Starting with version 9.2.4.1 of bc9Basic and version 7.2.6 of BCX
'this code compiles and runs correctly.    
'A big thanks to PellesC Forum Moderator frankie for his expert help
'in resolving this issue.
'James 02/23/2016
'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
    Dim Dynamic buffer$[10]
    Dim num_lines as Integer
    Dim arr_size as Integer
    arr_size = 10
    num_lines = 0
    For num_lines = 1 to 100
        If num_lines >= arr_size Then
            Print "*** growing from: " & STR$(arr_size) & " to: " & STR$(arr_size + 10);
            arr_size += 10
            Redim Preserve buffer$[arr_size]
            Print " *** grown"
        End If
    Next
    Free buffer$
    Pause

... read more