'PROGRAM - TEST.BAS

' Demonstrate effect of literal strings on DGROUP
	
DEFINT A-Z
DIM Array$(10)

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

FOR I = 1 TO 10
    READ Array$(I)
NEXT

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

DATA One,Two,Three,Four,Five
DATA Six,Seven,Eight,Nine,Ten