PRINT "This code below only works when compiled for a C++ compiler"

$COMMENT          'Uncomment if compiling for a C++ compiler

CALL One()
CALL Two()

SUB One()
  PRIVATE CONST ONE = 1
  PRIVATE CONST TWO = 2
  PRINT ONE, TWO
END SUB

SUB Two()
  PRIVATE CONST ONE = 3
  PRIVATE CONST TWO = 4
  PRINT ONE, TWO
END SUB


$COMMENT         'Uncomment if compiling for a C++ compiler 

Result:

Result not displayed for this example.