home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IMB9005.ZIP / STFILL.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-05-01  |  544 b   |  23 lines
  1. 'PROGRAM - STFILL.BAS
  2.  
  3. ' Demonstrate the use of FillStringArray
  4.     
  5. DEFINT A-Z
  6. DIM Array$(10)
  7.  
  8. PRINT "Free string space before:";FRE(Array$(1))
  9. PRINT "STACK before            :";STACK
  10.  
  11. ' Note the "S" in the CALLS syntax. This forces
  12. ' BC to pass the pointer to the array descriptors
  13. ' instead of just passing a pointer to a *copy*
  14. ' of the first descriptor.
  15.  
  16. CALLS FillStringArray(Array$(1))
  17. FOR I = 1 TO 10
  18.     PRINT Array$(I)
  19. NEXT
  20.  
  21. PRINT "Free string space after :";FRE(Array$(1))
  22. PRINT "STACK after             :";STACK
  23.