10 SOUND1,1:FORI=1TO56:FORJ=1TO56:O=(I*J)MOD56+1:SOUNDO,1:NEXTJ,I
20 FORO=1TO4:FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
30 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I,O
40 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
50 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:END