SSD1306 OLED (72x40) I2C display from scratch

[flotulopex]

Voilà.

As no caracter would display, I changed the fill caracter in the CLEAR routine to make someting visible.

' ====== CLEAR LCD =================================================================================
CLEAR_LCD:
    COM = $21 : GOSUB SEND_COMMAND ' set column address
    COM = 0   : GOSUB SEND_COMMAND ' column start address
    COM = 71  : GOSUB SEND_COMMAND ' column end address
    COM = $22 : GOSUB SEND_COMMAND ' set page address
    COM = 0   : GOSUB SEND_COMMAND ' page start address
    COM = 4   : GOSUB SEND_COMMAND ' page end address
    FOR J = 0 TO 4
        FOR I = 0 TO 71
            I2CWrite SDA,SCL,I2CDevice,[$40,$FF]
        NEXT I
    NEXT J
    RETURN