//
// Raspberry Pi Local LEDs test
//
NUMFORMAT (5, 0)
rasp = DrcOpen ("RPI")
//
// Setup the screen, etc.
//
PROC setup
CYCLE 
  FOR n = 0 TO 255 CYCLE 
    PROC oBinary(n)
    IF DigitalRead (rasp, 8) <> 1 THEN WAIT (0.1)
  REPEAT 
REPEAT 
END 
//
// PROC oBinary
//    Output the value in binary on the LEDs
//
DEF PROC oBinary(number)
LOCAL bit, mask
IF number > 255 THEN number = 255
//
FOR bit = 0 TO 7 CYCLE 
  mask = 2 ^ bit
  //print mask
  IF (number & mask) = 0 THEN 
    DigitalWrite (rasp, bit, 0)
  ELSE 
    DigitalWrite (rasp, bit, 1)
  ENDIF 
REPEAT 
ENDPROC 
//
// PROC setup:
//    Initialse the hardware, etc.
//
DEF PROC setup
LOCAL bit
FOR bit = 0 TO 7 CYCLE 
  PinMode (rasp, bit, 1) // 1 = Output
  DigitalWrite (rasp, bit, 0)
REPEAT 
PinMode (rasp, 8, 0) // Input
ENDPROC