void main() {
    word i
    byte hn, ln
    // 256-colour text mode for layer 0
    vera_poke($40000, $21)
    // 8×8 tiles, 64×64 tile map
    vera_poke($40001, $35)
    // 2× zoom in
    vera_poke($40041, $40)
    vera_poke($40042, $40)
    i = 0
    while i < $2000 {
        vera_poke(i, $A0)
        if i.lo & $7f < 64 {
            ln = lo(i>>1) & $1f
            hn = lo(i>>2) & $e0
            vera_poke(i+1, hn | ln)
        } else {
            vera_poke(i+1, 0)
        }
        i += 2
    }
    while true {}
}