szum ode mnie:
0 GR.8
1 Z=1024*2:DIM P$(Z*2):X=(INT(ADR(P$)/Z)+1)*Z:L=X+32+768
2 POKE 54279,X/256:POKE 53277,3:POKE 559,62:POKE 623,1+16
3 FOR K=0 TO 3:POKE 704+K,0:NEXT K:POKE 710,2:POKE 711,0
4 FOR K=0 TO 3:POKE 53248+K,48+K*32:POKE 53252+K,176+K*8:NEXT K
5 FOR K=0 TO 4:POKE 53256+K,255:NEXT K
20 FOR N=L TO L+192+40
30 POKE N-40,0:POKE N+256-40,0:POKE N+512-40,0:POKE N+768-40,0:POKE N+1024-40,0
31 IF N-L>191 THEN GOTO 33
32 POKE N,255:POKE N+256,255:POKE N+512,255:POKE N+768,255:POKE N+1024,255
33 REM
34 XNEW=32+PEEK(53770):YNEW=PEEK(53770):IF YNEW>128 THEN YNEW=YNEW-128
35 YNEW=YNEW+32:COLOR 1:PLOT XNEW,YNEW:COLOR 0:PLOT XOLD,YOLD
36 XOLD=XTMP:YOLD=YTMP:XTMP=XNEW:YTMP=YNEW
37 A=PEEK(53770):B=14:SOUND 0,A,8,5:SOUND 1,A+6,B,9:SOUND 2,A+12,B,12:SOUND 3,A+18,B,15
40 NEXT N
50 GOTO 20
RUN