'-------------------------------------------------------------------------------
Option Explicit

'-------------------------------------------------------------------------------
Public Sub Main()

' This program illustrates the use of power down mode on a BasicX processor.

    Dim Counter As Integer

    Do
        Debug.Print
        Debug.Print "Power on. Powering down in 5 seconds..."

        For Counter = 5 To 1 Step -1
            Debug.Print CStr(Counter)
            Delay 1.0
        Next

        Debug.Print "Powered down."

        Delay 0.1  ' Settling time.

        PowerDownMode
    Loop

End Sub
'-------------------------------------------------------------------------------