BCX Console Demonstration Program s76.bas

 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