I2C.SETUP 21, 22  
PIN.MODE 32, INPUT
OLED.INIT 1 
OLED.CLS
OLED.FONT 1
valorx = 0
valorAntigo = -1
WHILE 1=1
  IF valorAntigo <> ADC(32) THEN
    valorAntigo = ADC(32)
    altura = CINT(valorAntigo*63/4095)
    valory = 63-altura
    OLED.RECT valorx,valory,2,altura,1
    valorx = valorx + 2
    IF valorx > 127 THEN
      valorx = 0
      OLED.CLS
    END IF
  END IF
  pause 100
WEND 

END