10 GRAPHICS 10:FOR I=705 TO 712:POKE I,PEEK(53770):NEXT I:FOR I=1 TO 31 STEP 1:C=C+1-9*(C=8)›20 POKE 704+C,PEEK(53770):FOR J=0 TO 31 STEP 1:COLOR INT(RND(1)*15)+1:K=I+J:J3=J*3:K3=K*3:J8=J+8:J71=71-J›30 PLOT K+7,J3:DRAWTO K+7,191-J3:PLOT 72-K,J3:DRAWTO 72-K,191-J3:FOR H=3 TO 1 STEP -1›40 PLOT J8,191+H-K3:DRAWTO J71,191+H-K3:PLOT J8,K3-H:DRAWTO J71,K3-H:NEXT H:NEXT J:NEXT I:POKE 77,0:GOTO 10›