So, being a lover of patterns, I decided to remake a program that I originally made using xLIB. This one is a bit faster, the graphics are smoother, and doesn't require you to make a picture. So here is the basic concept:
-Copy upper 63 rows of the graphscreen
-XOR one pixel down
-Copy lower 63 pixels of the graphscreen
-XOR one pixel up

This will create some fairly interesting effects on its own, but I decided to add in  some pixel drawing for the first 95 iterations. After that, the pattern continues on its own seeming to scroll right, infinitely.
Delvar Bdim(56,4
Repeat Ans=15
If B<95
Then
Pxl-On(0,B
B+1→B
End
dim(53,dim(35,0,0,63,12),63,0,1,2,53,dim(35,0,1,63,12),63,0,0,2,43,99
End


Yeah, it is a little complicated to look at, but if you are coding it, it isn't bad. It is like trying to read another person's source On the plus side, the smoothness and speed is pretty noticeable!