SSD1306 OLED (72x40) I2C display from scratch

[flotulopex]

I also adjusted your code as:

' ====== PROGRAM ================================================== =================================
GOSUB CLEAR_LCD

MAIN:
    '7x5 "A"
    X = 28 : Y = 0 : GOSUB SET_7
    I2CWrite SDA,SCL,I2CDevice,[$40,$fc,$12,$12,$12,$fc]
    
    '14x10 "A"
    X = 28 : Y = 2 : GOSUB SET_14
    I2CWrite SDA,SCL,I2CDevice,[$40,$f0,$f8,12,12,14,14,12,12,$f8,$f0_
    ,$ff,$ff,6,6,6,6,6,6,$ff,$ff]
    PAUSE 1000
    GOTO MAIN
END