avr.device = atmega328p
avr.clock = 16000000
avr.stack = 100

uart.baud = 115200
uart.Send.enable

Dim i as byte
Dim f as Single

do
  for i =1 to 100
    f = i/100

    Print "#1M" ; Str(i) ; "<" ; "#2M" ; Str(f) ; "<"
    Print "#3M" ; Str(i) ; "<" ; "#4M" ; Str(f) ; "<"
    Print "#5M" ; Str(i) ; "<" ; "#6M" ; Str(f) ; "<"
    Print "#7M" ; Str(i) ; "<" ; "#8M" ; Str(f) ; "<"
    waitms 1
  next
loop