'PROGRAM - STFILL.BAS

' Demonstrate the use of FillStringArray
	
DEFINT A-Z
DIM Array$(10)

PRINT "Free string space before:";FRE(Array$(1))
PRINT "STACK before            :";STACK

' Note the "S" in the CALLS syntax. This forces
' BC to pass the pointer to the array descriptors
' instead of just passing a pointer to a *copy*
' of the first descriptor.

CALLS FillStringArray(Array$(1))
FOR I = 1 TO 10
    PRINT Array$(I)
NEXT

PRINT "Free string space after :";FRE(Array$(1))
PRINT "STACK after             :";STACK