10 L=502+HTD(ADDR$("NOISE")) @ S=0 @ S$=PEEK$("2F977",4) 20 FOR J=4 TO 1 STEP -1 @ S=16*S+HTD(S$[J,J]) @ NEXT J 30 K1=S/27.4 @ K2=S/64 40 FOR I=0 TO 15 @ F$=DTH$(K1/2^(I/12)) 50 FOR J=0 TO 3 @ POKE DTH$(L+4*I+J),F$[5-J,5-J] @ NEXT J @ NEXT I 60 L=L+64 @ FOR I=0 TO 15 @ F$=DTH$(K2*2^(I/16)) 70 FOR J=0 TO 3 @ POKE DTH$(L+4*I+J),F$[5-J,5-J] @ NEXT J @ NEXT I