Denke mal der eine kleine Poke ist erlaubt. Bildschirmspeicher 1024+
Code
10 DIM A(959):E=24
15 FOR I=0TO959:A(I)=PEEK(1024+I):NEXTI
20 FOR B=0TO958
25 Q=Q+1:IFQ=40 THEN Q=0:E=E-1
30 IF A(B)=32 THEN GOTO 70
35 POKE1024+B,32
40 FOR X=0TOE
45 Z=PEEK(1024+B+(X*40))
50 IF X=ETHENZ=A(B)
55 POKE1024+B+(X*40),A(B)
60 POKE1024+B+(X*40),Z
65 NEXT X
70 NEXT B