--
--  sample1.occ -- test program for occam-pi on the RCX
--  Fred Barnes, September 2007
--

#INCLUDE "rcx/simple-rcx.occ"
#INCLUDE "components.occ"


-- this is a test-brain (doesn't do much interesting!)
PROC test.brain (CHAN INT out.l!, out.r!)
  WHILE TRUE
    SEQ
      out.l ! 100
      out.r ! 100
      sleep.ms (2000)
      out.l ! 0
      sleep.ms (500)
:

PROC sample1 ()
  CHAN INT l, r:
  PAR
    motor.driver (MOTOR.A, l?)
    motor.driver (MOTOR.C, r?)
    test.brain (l!, r!)
: