'MUSIC PLAYER CLS:CLEAR:SPCLR M=0:P=-1:MMAX=29 BGMSTOP GOSUB @DRAW @MAIN GOSUB @CHK VSYNC 8 GOTO @MAIN @CHK B=BUTTON() IF B AND 1 THEN M=M+1 IF B AND 2 THEN M=M-1 IF B AND 4 THEN M=RND(MMAX+1) IF M<0 THEN M=MMAX IF MMAX