BCX Console Demonstration Program s145.bas

OPTION BASE 1

DIM DYNAMIC A$[100]       'Dynamic string arrays default to OPTION BASE 1 

FOR INTEGER I = 1 TO 100
  A$[I] = "A$[] ... THIS IS LINE" & STR$(I)
  PRINT A$[I]
NEXT

FREE DYNAMIC A$ ' Release memory back to the operating system 
FREE DYNAMIC A$ ' An intentional error -- BCX handles it automatically 

CALL FOO_TEST

SUB FOO_TEST ()
  DIM RAW E = 100
  DIM DYNAMIC A$[E]
  DIM DYNAMIC B$[E]
  DIM DYNAMIC C$[E]
  DIM DYNAMIC D$[E]

  PRINT "Storing Items In A$[]"
  FOR INTEGER I = 1 TO E
    A$[I] = "A$[] ... THIS IS LINE " & STR$(I)
  NEXT

  PRINT "Storing Items In B$[]"
  FOR INTEGER I = 1 TO E
    B$[I] = "B$[] ... THIS IS LINE " & STR$(I)
  NEXT

  PRINT "Storing Items In C$[]"
  FOR INTEGER I = 1 TO E
    C$[I] = "C$[] ... THIS IS LINE " & STR$(I)
  NEXT

  PRINT "Storing Items In D$[]"
  FOR INTEGER I = 1 TO E
    D$[I] = "D$[] ... THIS IS LINE " & STR$(I)
  NEXT

  FOR INTEGER I = 1 TO E
    PRINT A$[I]
    PRINT B$[I]
    PRINT C$[I]
    PRINT D$[I]
  NEXT

END SUB

Result:

Result not displayed for this example.