B4R Tutorial Timers, Loopers and CallSubPlus

void setup() {
  pinMode(13, OUTPUT);
}

// the loop function runs over and over again forever
void loop() {
  digitalWrite(13, HIGH);   // turn the LED on (HIGH is the voltage level)
  delay(1000);              // wait for a second
  digitalWrite(13, LOW);    // turn the LED off by making the voltage LOW
  delay(1000);              // wait for a second
}

Sub Process_Globals
   Public Serial1 As Serial
   Private Timer1 As Timer
   Private pin13 As Pin
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   pin13.Initialize(13, pin13.MODE_OUTPUT)
   Timer1.Initialize("Timer1_Tick", 1000)
   Timer1.Enabled = True 'don't forget to enable it
End Sub

Private Sub Timer1_Tick
   pin13.DigitalWrite(Not(pin13.DigitalRead))
End Sub

Sub Process_Globals
  Public Serial1 As Serial
  Private pin13 As Pin
End Sub

Private Sub AppStart
  Serial1.Initialize(115200)
  Log("AppStart")
  pin13.Initialize(13, pin13.MODE_OUTPUT)
  LedOn(0)
End Sub

Private Sub LedOn (tag As Byte)
  pin13.DigitalWrite(True)
  CallSubPlus("LedOff", 1000, 0)
End Sub

Private Sub LedOff(tag As Byte)
  pin13.DigitalWrite(False)
  CallSubPlus("LedOn", 1000, 0)
End Sub

Sub Process_Globals
  Public Serial1 As Serial
  Private counter As ULong
End Sub

Private Sub AppStart
  Serial1.Initialize(115200)
  Log("AppStart")
  AddLooper("Looper1")
End Sub

Sub Looper1
   counter = counter + 1
   If counter mod 100000 = 0 Then
     Log("Took me ", Millis, " milliseconds to count to ", counter)
     Log(counter / Millis, " loops per milliseconds")
   End If
End Sub