Quick Optimization

8 BASE=2*4096:poke53272,PEEK(53272)or8
20 poke53265,PEEK(53265)or32
40 FOR i=basetobase+7999:pokei,0:NEXT
44 FOR i=1024to2023:pokei,1:NEXT
50 poke53280,0
60 forx=0to319
70 index=BASE+(xand504)
100 bi=2^(7-(xand7))
110 IF INT(RND(1)*2)=1 THEN pokeindex,PEEK(index) OR bi
120 NEXT
160 fory=1to199
161 w=BASE+((y-1)and248)*40+((y-1)and7)
162 ybase=BASE+(yand248)*40
163 yc1=yand7
164 i1=w:i2=w:i3=w
170 b1=128:b2=64:b3=32
175 p1=0:IF PEEK(i1)andb1=b1 THEN p1=1
176 p2=0:IF PEEK(i2)andb2=b2 THEN p2=1
177 p3=0:IF PEEK(i3)andb3=b3 THEN p3=1
180 forx=1to318
185 xpl = x+1
190 index=ybase+(xand504)+yc1
200 i1=i2:i2=i3:i3=w+(xpland504)
205 b2=b3:b3=2^(7-(xpland7))
210 p1=p2:p2=p3:p3=0:IF (PEEK(i3)andb3)=b3 THEN p3=1
300 IF ((p3*4+p2*2+p1-1)and4)=0 THEN POKE index, PEEK(index) OR b2
310 NEXT x
320 NEXT y
330 poke1024,16
340 GOTO 340