BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 PAL 1 'WAS8BIT DIM VOICEMEM(3) FOR I=0 TO 3 'IM GUESSING THIS IS SHORT FOR VOICEMEMORY READ VOICEMEM(I) NEXT I DATA $FF40,$FF4C,$FF58,$FF64 CONVERT=0.59375 TOUCHSCREEN PRINT PRINT TEXT 0,0,"VOICE FREQUENCY PEAK" TEXT 2,2,"0" TEXT 2,5,"1" TEXT 2,9,"2" TEXT 2,13,"3" DO 'AND ALL THIS IS CALULATING THE FREQUENCY PEAK 'WHAT IS THE *256+PEEK FOR 'WHAT IS THE POINT OF OF THE +0 IN (VOICEMEM(0)+0) FREQUENCY0=PEEK(VOICEMEM(0)+1)*256+PEEK(VOICEMEM(0)+0) 'THIS CALULATES THE PEAK AND CHECKS IF IT IS > OR < THAN 0 PEAK0=PEEK(VOICEMEM(0)+3) 'IM GUESSING THIS IS HERE SO WHEN THE PEAK = 0 THE MUSIC STOPS BECAUSE 'BECAUSE IS MAKES FREQUENCY = 0 IF PEAK0=0 THEN FREQUENCY0=0 NUMBER 8,2,FREQUENCY0,5 NUMBER 16,2,PEAK0,3 FREQUENCY1=PEEK(VOICEMEM(1)+1)*256+PEEK(VOICEMEM(1)+0) PEAK1=PEEK(VOICEMEM(1)+3) IF PEAK1=0 THEN FREQUENCY1=0 NUMBER 8,5,FREQUENCY1,5 NUMBER 16,5,PEAK1,3 FREQUENCY2=PEEK(VOICEMEM(2)+1)*256+PEEK(VOICEMEM(2)+0) PEAK2=PEEK(VOICEMEM(2)+3) IF PEAK2=0 THEN FREQUENCY2=0 NUMBER 8,9,FREQUENCY2,5 NUMBER 16,9,PEAK2,3 FREQUENCY3=PEEK(VOICEMEM(3)+1)*256+PEEK(VOICEMEM(3)+0) PEAK3=PEEK(VOICEMEM(3)+3) IF PEAK3=0 THEN FREQUENCY3=0 NUMBER 8,13,FREQUENCY3,5 NUMBER 16,13,PEAK3,3 IF TOUCH THEN 'IM GUESSING THE V IS SHORT FOR VOLUME V=TOUCH.Y\32 PLAY V,TOUCH.X*CONVERT,60 SOUND V END IF WAIT VBL LOOP 'AUDIO REGISTERS 'THERE ARE REGISTERS FOR 4 VOICES: '$FF40 - VOICE 0 '$FF4C - VOICE 1 '$FF58 - VOICE 2 '$FF64 - VOICE 3 'EACH VOICE OCCUPIES 12 BYTES: '- FREQUENCY LOW-BYTE '- FREQUENCY HIGH-BYTE '- STATUS: 'BIT PURPOSE '0-3 VOLUME '4 MIX TO LEFT '5 MIX TO RIGHT '6 INIT '7 GATE '- PEAK METER (READ ONLY) ' ' ........ ' 'NOTE: THE FREQUENCY IS A 16-BIT VALUE: F = HERTZ * 16 #1:MAIN PALETTES 15251917003F3F00003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300 #15:MAIN SOUND 250033CD0000A000080033DD00000000 180033CD00000000380033CD00000000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000