S$="T256" FOR I%=0 TO 15 INC S$,":"+STR$(I%)+"@"+STR(RND(128)) FOR J%=0 TO 255 INC S$,"O4"MID$("C D E F G A B <C",RND(8)*2,2) NEXT NEXT BGMPLAY S$ change the 256 for different speeds