Message #227450

[MGOS]

It burns the pixels below the block. You'd have to do this:

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14

44->X-16->Y Repeat getkey(15)  Pt-On(X,Y,[FFFFFFFFFFFFFFFF  For(B,X,X+7)   For(C,Y-7,Y+7)  //I changed this line    Pxl-Off(C-1,B    If rand^8*pxl-Test(C,B)     Pxl-On(C-1,B    End   End  End  DispGraph End

No guarantee, but I hope it works.