function init_font()

    // Temporary array to store our hex font //
    dim fontset[79] as integer = [0xF0,0x90,0x90,0x90,0xF0,0x20,0x60,0x20,0x20,0x70,
                                  0xF0,0x10,0xF0,0x80,0xF0,0xF0,0x10,0xF0,0x10,0xF0,
                                  0x90,0x90,0xF0,0x10,0x10,0xF0,0x80,0xF0,0x10,0xF0,
                                  0xF0,0x80,0xF0,0x90,0xF0,0xF0,0x10,0x20,0x40,0x40,
                                  0xF0,0x90,0xF0,0x90,0xF0,0xF0,0x90,0xF0,0x10,0xF0,
                                  0xF0,0x90,0xF0,0x90,0x90,0xE0,0x90,0xE0,0x90,0xE0,
                                  0xF0,0x80,0x80,0x80,0xF0,0xE0,0x90,0x90,0x90,0xE0,
                                  0xF0,0x80,0xF0,0x80,0xF0,0xF0,0x80,0xF0,0x80,0x80]

    // insert font in memory ///////////////////////////
    for f=0 to 79
	    // "0x"+hex(memory[t]) // to display as hex
	    memory[f] = fontset[f]
    next f

Endfunction

