home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IMB9005.ZIP / TEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-05-01  |  400 b   |  20 lines
  1. 'PROGRAM - TEST.BAS
  2.  
  3. ' Demonstrate effect of literal strings on DGROUP
  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. FOR I = 1 TO 10
  12.     READ Array$(I)
  13. NEXT
  14.  
  15. PRINT "Free string space after :";FRE(Array$(1))
  16. PRINT "STACK after             :";STACK
  17.  
  18. DATA One,Two,Three,Four,Five
  19. DATA Six,Seven,Eight,Nine,Ten
  20.