Yeah, you may know that, I just found it on an old disc ... from late 80is and I just liked it.
[attachimg=1]
1000 MODE 1
1002 PRINT"COLORDEMO MODE 1 VON CARSTEN DOST"
1003 FOR b=0 TO 3
1005 FOR v=50 TO 0 STEP -2
1006 y=300-(b*50)+v
1007 k=k XOR 1:PLOT 0,y,b:DRAWR 200,0
1008 FOR c=0 TO 3:FOR z=k TO 50 STEP 4
1009 x=c*50+z-1
1020 PLOT x,y,c
1030 NEXT
1040 NEXT
1045 NEXT
1049 NEXT
1050 END
WITCHCRAFT!
Quote from: Gryzor on 09:59, 20 August 17
WITCHCRAFT!
Seems to be a popular concept, the June 1989 issue of AA had this Mosaic program which is also Mode 1
(http://cpcwiki.eu/imgs/9/97/RGB-Mosaic.png)
I translated it to Hisoft Pascal, which resulted in it running at a blistering pace.