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