axo, der quelltext bisher..
SETCOLOR 0,&H0
SETCOLOR 1,&H310
SETCOLOR 2,&H511
SETCOLOR 3,&H621
SETCOLOR 4,&H631
SETCOLOR 5,&H642
SETCOLOR 6,&H652
SETCOLOR 7,&H752
SETCOLOR 8,&H762
SETCOLOR 9,&H762
SETCOLOR 10,&H772
SETCOLOR 11,&H773
SETCOLOR 12,&H774
SETCOLOR 13,&H775
SETCOLOR 14,&H776
SETCOLOR 15,&H777
'
'
REPEAT
FOR y=99 TO 98 STEP -1
FOR x=0 TO 79
c=RND(&HFFF)*15
PSET x,y,c
NEXT x
NEXT y
FOR y=70 TO 97 STEP 1
FOR x=0 TO 79
PSET x,y,(PTST(x,y)+PTST(x,y+2)+PTST(x-1,y+1)+PTST(x+1,y+1))/4
NEXT x
NEXT y
UNTIL INKEY$<>""