qb64 cant run this

SCREEN 12
FOR j = 1 TO 8
FOR i = 0 TO 7
DEF SEG = &HFFA6
buffer = (j = 1) * -102 + (j = 2 OR j = 8) * -117 + (j = 3) * -99
x = PEEK(14 + 8 * (buffer + -111 * (j = 7) + (j = 4) * -107 + (j = 6) * -121) + i)
DEF SEG = &HA000
POKE i * 80 + j, x
NEXT
NEXT