BCX Console Demonstration Program S76.bas

 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