TOUCHSCREEN DIM SVOL(3),XTOUCH(3) FOR I=0 TO 3 SVOL(I)=15 XTOUCH(I)=(I+1)*4 BG 1 FOR Y=0 TO 15 CELL XTOUCH(I),Y,1 NEXT Y BG 0 CELL XTOUCH(I),0,2 IF I<2 THEN VOLUME I,15,1 ELSE VOLUME I,15,2 PLAY I,30+I*5 NEXT I BG 0 DO IF TOUCH THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 FOR I=0 TO 3 IF TX=XTOUCH(I) THEN CELL XTOUCH(I),15-SVOL(I),0 SVOL(I)=15-TY VOLUME I,SVOL(I), END IF CELL XTOUCH(I),15-SVOL(I),2 NEXT I END IF LOOP #1:MAIN PALETTES 003F2A1500383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000018180000000000001818000000 2424242424242424243C243C243C243C 00FF00FFFF00FF0000FFFF0000FFFF00