MUSIC DO FOR I=0 TO 3 NUMBER 0,I,MUSIC (I),3 NEXT I NUMBER 5,0,PEEK($FF43),3 NUMBER 5,1,PEEK($FF4F),3 NUMBER 5,2,PEEK($FF5B),3 NUMBER 5,3,PEEK($FF67),3 FOR I=0 TO 3 ADDR=$FF40+(12*I) FL=PEEK(ADDR) FH=PEEK(ADDR+1) FR=((FH*256)+FL-261)/300 NUMBER 10,I,FR,3 NEXT I NUMBER 15,0,PEEKW($FF40),5 NUMBER 15,1,PEEKW($FF4C),5 NUMBER 15,2,PEEKW($FF58),5 NUMBER 15,3,PEEKW($FF64),5 REM NEGATIVE FIX... ??? PP=PEEKW($FF64) IF PP<0 THEN PP=PP+32767 NUMBER 15,4,PP,5 NUMBER 10,4,PP\300,3 WAIT VBL LOOP #15:MAIN SOUND 6801F03200017000680200F508026000 2800303019FE00007801F04F0AFF0000 7801F00F02FF00000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00404007000103400002030700040340 80040306000403060004030600010306 00020306000440400000030300000305 00000305000403060000030300814007 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 170F44190F00160F44190F00190F0027 0F00190F44250F00170F001A0F001D0F 44190F00190F00250F00190F00190F00 170F001E0F44160F00190F00190F001B 0F00190F00190F00170F001A0F00250F 47190F00190F00190F00190F00190F00 311F0000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3D1F0000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 192F00000000000000000000192F0000 0000000000000000192F00192F000000 00000000192F00000000000000000000 192F00000000000000000000192F0000 0000000000000000192F000000000000 00000000192F00192F00192F00192F00 461F00471F003B1F003A1F0000000000 0000000000000000441F00451F00391F 00381F00000000000000000000000000 3F1F00401F00341F00331F0000000000 00000000000000003D1F003E1F00321F 00000000411F00000000000000000000 5F4F005F4F005F4F005F4F005F4F005F 4F005F4F005F4F005F4F005F4F005F4F 005F4F005F4F005F4F005F4F005F4F00 5F4F005F4F005F4F005F4F005F4F005F 4F005F4F005F4F005F4F005F4F005F4F 005F4F005F4F005F4F005F4F005F4F00 5F4F005F4F005F4F005F4F003D3F005F 4F005F4F005F4F005F4F005F4F005F4F 005F4F003D3F005F4F005F4F005F4F00 5F4F005F4F005F4F005F4F003D3F005F 4F005F4F005F4F005F4F005F4F005F4F 005F4F003D3F005F4F003D3F003D3F00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000323F00000000323F00323F00