PROGRAM KALEIDOSCOPE;›VAR I,J,K,W,X:INTEGER;›BEGIN› MAXGRAPH(19);› GRAPHICS(19);› X:=0;› REPEAT› FOR W:=3 TO 50 DO›  BEGIN›    FOR I:=1 TO 10 DO›    BEGIN›     FOR J:=0 TO 10 DO›      BEGIN›       K:=I+J;›       COLOR(J*3/(I+3)+I*W/12);›       PLOT(I+8,K);›       PLOT(K+8,I);›       PLOT(32-I,24-K);›       PLOT(32-K,24-I);›       PLOT(K+8,24-I);›       PLOT(32-I,K);›       PLOT(I+8,24-K);›       PLOT(32-K,I)›      END›    END›  END› UNTIL X=99 (* UNENDING LOOP *)›END.››