; This works
W0 = %1100110000110011
POKE $7E,WORD W0
POKE $7C,B0,B1,B2
POKE $7F,B0,B1
POKE $7D,B0,B1 ; skip poking $B2 into $7F
poke $80, B2
POKE $5F,"1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2" ; skip location $7F
POKE $80,"3","4","5","6","7","8","9","0"
POKE $87,"1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0"
POKE $AF,"1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0"
POKE $D7,"1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0"