Thanks. I've reduced the amount of time I wash the die in Whink. Hopefully that will quit erasing bits!

Code
	blockorder[0]=4
	blockorder[1]=5
	blockorder[2]=7
	blockorder[3]=6
	blockorder[4]=3
	blockorder[5]=2
	blockorder[6]=0
	blockorder[7]=1	
	blockorder[8]=11
	blockorder[9]=10
	blockorder[10]=8
	blockorder[11]=9
	blockorder[12]=12
	blockorder[13]=13
	blockorder[14]=15
	blockorder[15]=14

	rx=0

	FOR Pu=0 TO 3
		FOR Pm=0 TO 15  // only 4*11=44 pages, but the other 4*5=20 need to be skipped
			FOR i=0 TO 15  //16 blocks in each row
				FOR j=0 TO 3  // 4 rows in a page
					rom[rx]=0
					FOR b=0 TO 7  // bits spread out in each row
						ix=(j+Pu*4+Pm*16)*128+b*16+blockorder[i]
						rom[rx]=rom[rx]*2+rawbits[ix]
					NEXT
					rx=rx+1
				NEXT
			NEXT
		NEXT
	NEXT