Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Check initial state (Root instance only)
      Console.WriteLine(uCalc.DefaultCount)
      
      '// Push the current 'uc' instance onto the stack
      uc.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      '// Create a new instance and push it
      Dim ucB As New uCalc()
      ucB.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      '// Create another instance and push it
      Dim ucC As New uCalc()
      ucC.IsDefault = true
      Console.WriteLine(uCalc.DefaultCount)
      
      '// Clear all custom defaults, reverting to the root instance
      uCalc.DefaultClear()
      Console.WriteLine(uCalc.DefaultCount)
   End Sub
End Module