'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* '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