10 SOUND7,&B10001000: SOUND8,15:SOUND1,0
20 J=RND(1)*25:U=RND(1)*15:E=RND(1)*20:FORC=0TOJ:FORI=0TO20:SOUND0,I:NEXT:NEXT:FORC=0TOU:FORI=0TO45:SOUND0,I:NEXT:NEXT:FORC=0TOE:FORI=30TO0STEP-1:SOUND0,I:NEXT:NEXT
30 GOTO 20