' TestMaxDarkWithHighPause.bs2

' {$STAMP BS2}
' {$PBASIC 2.5}

tLeft       VAR     Word
tRight      VAR     Word

PAUSE 1000
DEBUG "Program running... "

DO

  HIGH 6
  PAUSE 1
  RCTIME 6, 1,tLeft

  HIGH 3
  PAUSE 1
  RCTIME 3, 1,tRight

  PULSOUT 13, 850
  PULSOUT 12, 650

LOOP