BG COPY 0,0,20,16 TO 0,0 TOUCHSCREEN GLOBAL DIVI DIM GLOBAL Y(3) DIVI=7 FOR I=0 TO 3 Y(I)=50 SPRITE I,8+I*32,Y(I),2 VOLUME I,((Y(I)-10)/DIVI),3 PLAY I,30+I*5 SPRITE.A I,(4) NEXT I DO X=TOUCH.X/8 CALL SETVOL(0,2,0,X,8) CALL SETVOL(4,6,1,X,40) CALL SETVOL(8,10,2,X,72) CALL SETVOL(12,14,3,X,104) LOOP SUB SETVOL(A,B,V,C,D) IF TOUCH AND C>A AND C110 THEN Y(V)=110 IF Y(V)<10 THEN Y(V)=10 SPRITE V,D,Y(V),2 VOLUME V,((Y(V)-10)\DIVI),3 END IF END SUB #1:MAIN PALETTES 003F2F0000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 2424242424242424243C243C243C243C 00FF00FFFF00FF0000FFFF0000FFFF00 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000104 00000000000001040000000400000104 00000000000001040000000000000000 00000000000001040004000000000104 00000004000001040004000000000104 00040000000000000000000000000104 00040000000001040000000400000104 00040000000001040004000000000000 00000000000001040004000000000104 00000004000001040004000000000104 00040000000000000000000000000104 00040000000001040000000400000104 00000000000001040004000000000000 00000000000001040004000000000104 00000004000001040000000000000104 00040000000000000000000000000104 00040000000001040000000400000104 00000000000001040004000000000000 00000000000001040004000000000104 00000004000001040000000000000104 00040000000000000000000000000104 00040000000001040000000400000104 00000000000001040004000000000000 00000000000001040004000000000104 00000004000001040000000000000104 00040000000000000000000000000104 00040000000001040000000000000104 00000000000001040000000000000000 00000000000001040004000000000104 00000000000001040000000000000104 00000000000000000000000000000104 00040000000001040000000000000104 00000000000001040000000000000000 00000000000001040004000000000104 00040000000001040000000000000104 00000000000000000000000000000004 00040000000000000004000000000000 00000000000000000000000000000000 00000000