home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
IMB9005.ZIP
/
STFILL.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-05-01
|
544b
|
23 lines
'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