```
Repeat getkey
For(C,1,0,-1)
randomInt(0,16 -> B
randomInt(0,16 -> D
randomInt(0,1 -> E
If E=1:Then
For(A,0,D
Line(A,-B,B,A,C
Line(A,B,-B,A,C
Line(B,-A,A,B,C
Line(B,A,-A,B,C
Line(-A,-B,-B,A,C
Line(A,-B,-B,-A,C
Line(-B,-A,-A,B,C
Line(B,-A,-A,-B,C
End
End
If not(E:Then
For(A,D,0,-1
Line(A,-B,B,A,C
Line(A,B,-B,A,C
Line(B,-A,A,B,C
Line(B,A,-A,B,C
Line(-A,-B,-B,A,C
Line(A,-B,-B,-A,C
Line(-B,-A,-A,B,C
Line(B,-A,-A,-B,C
End
End
End
End
Clrdraw
Clrhome
```

The random integer parameters are for ZFrac1/3

If you want to use ZFrac1/2, then I suggest using 20 in place of 16, and for ZInteger, I suggest using 30 or 40 in place of the 16.

This is a really cool, endlessly shifting, random animation.

Although the basic pattern is generally maintained, there are still times when it surprises even me.

I hope other people try it out. Let me know what you think.

(I know it needs to be optimized, i'm working on that, but help/suggestions are welcome).

—Wolfgang