100 FORI=0TO2*(null)STEP2*(null)/160
110 X=(SIN(I)+1)*140+24
120 L=(X AND 255):H=INT(X/256)
130 POKE4608+Z,L:POKE4768+Z,L
140 POKE5120+Z,H:POKE5280+Z,H
150 Z=Z+1:NEXT:Z=0
160 :
170 FORI=0TO2*(null)STEP2*(null)/240
180 X=(SIN(I)+1)*90+50
190 POKE5632+Z,X:POKE5872+Z,X
200 Z=Z+1:NEXT