10 GRAPHICS 0:POKE 752,1:COLOR 42:CLS 
20 FOR I=0 TO 8:D=ABS(I-4):PLOT 16+I,7-D:DRAWTO 16+I,15+D:PLOT 16-D,I+7:DRAWTO 24+D,I+7:NEXT I
50 GOTO 50
