'  Luna Beispiel :  SerialComInstruments 8 LED Panel (#60)
'  
avr.device = atmega328p
avr.clock = 16000000
avr.stack = 100
uart.baud = 115200
uart.Send.enable

Dim i as byte

do
  for i =0 to 255 step 1
    print SendString(1,i); SendString(90,i); SendString(60,i)
    waitms 100
  next
loop


' Funktion erzeugt den kompletten Protokoll-String
function SendString(InstrNr as byte, MWert as single) as string
  return "#" + Str(InstrNr) + "M" + str(MWert) + "<"
endfunc