'
' constants test program, 2025-07-23 Peter63
'
OPTION EXPLICIT
OPTION DEFAULT NONE

print mm.info(heap) ' 187648

const x1="123456789012345" ' 15 char = heap no changes
'const x1="1234567890123456" ' 16 char = heap changes to 187392
const x2="123456789012345"
const x3="123456789012345"
const x4="123456789012345"
const x5="123456789012345"
const x6="123456789012345"
const x7="123456789012345"
const x8="123456789012345"
const x9="123456789012345"
const x10="123456789012345"
const x11="123456789012345"
const x12="123456789012345"
const x13="123456789012345"
const x14="123456789012345"
const x15="123456789012345"
const x16="123456789012345"
const x17="123456789012345"
const x18="123456789012345"
const x19="123456789012345"
const x20="123456789012345"
const x21="123456789012345"
const x22="123456789012345" ' no change heap if all const is 15 char...???

print mm.info(heap) ' 187648
END