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

uart.baud = 115200
uart.Send.enable

Dim x, y as integer
Dim oldStr, newStr as string

do
  print "§CG<";
  
  print "§PC3<";
  print "§PR200;90;500;99<";
  print "§PC2<";
  print "§PR200;100;240;140<";
  
  print "§PC4<";
  print "§FR10;10;100;400<";
  
  print "§PC0<";
  print "§PL60;20;60;380<";
  
  for x = 20 to 380 step 20
    print "§PL60;" + str(x) +";70;" + str(x) + "<";
    print "§PT80;" + str(x + 10) +";" + str ((x -20)/10) + "<";
  next
  
  print "§FR20;20;50;380<";
  
  print "§PC1<";
  print "§PT50;450;Instrument malen<";
  
  for y = 20 to 380 step 2
    print "§PC3<"; 
    print "§FR30;20;40;" + str(y) + "<";
    waitms 1
  next 
  for y = 370 downto 20 step 10 
    print "§PC0<";
    print "§FR30;20;40;" + str(y +10) + "<";
    print "§PC3<";
    print "§FR30;20;40;" + str(y) + "<";
    waitms 300
  next
  
  for x = 200 to 460 step 10
    //oldStr = "§PR" + str(x) + ";100;" str(x + 40) + ";140<"
    print "§PC0<";
    print oldStr;
    newStr = "§PR" + str(x) + ";100;"  + str(x + 40) + ";140<"
    print "§PC2<";
    print newStr;
    oldStr = newStr
    waitms 100
  next
  
  wait 2
loop