TOUCHSCREEN DISPLAY (0) DIM NOTE$(11) FOR I=0 TO 11 READ NOTE$(I) NEXT I DATA "B ","C ","C#","D ","D#","E ","F ","F#","G ","G#","A ","A#" DIM GLOBAL NSTEP(7),NOTE(7),MSCALE$(20) GLOBAL MMAX,MISCALE, IPLAY BG 0 ATTR(2) MMAX=2 MISCALE=1 FOR I=1 TO 2 READ MSCALE$(I) NEXT I DATA "MAJ2212221","MIN2122122" MISCALE=1 ISCALE=1 GOSUB DOSCALE SCROLL 0,-4,4 BG 1 BG COPY 0,0,20,16 TO 0,0 SPRITE 0,-1,-1,1 SPRITE 1,6,0,6 SPRITE.A 1,(3,0,0,0,1) REM FOR I=2 TO 8 REM SPRITE I,(I-1)*16+8,0,4 REM SPRITE.A I,(3,0,0,0,1) REM NEXT I SPRITE 60,8*15,5*8,76 SPRITE.A 60,(3,0,0,0,3) SPRITE 61,8*15,9*8,76 SPRITE.A 61,(3,0,0,0,3) DO IF TOUCH THEN SPRITE 0,TOUCH.X,TOUCH.Y, ELSE SPRITE 0,-1,-1, END IF IF SPRITE HIT(0) THEN REM ATTR(4) REM NUMBER 0,0,HIT,2 REM CHANGE SCALE NAME IF HIT=60 THEN MISCALE=MISCALE+1 IF MISCALE>MMAX THEN MISCALE=1 GOSUB DOSCALE WAIT 15 END IF REM CHANGE RIFT/CHORD IF HIT=61 THEN IF IPLAY=1 THEN IPLAY=2 ELSE IPLAY=1 BG 1 ATTR(3) II=4*(IPLAY-1)+68 FOR Y=0 TO 1 FOR X=0 TO 3 YY=Y*16 CELL 15+X,12+Y,II+YY+X NEXT X NEXT Y ATTR(2) WAIT 15 END IF REM CHANGE SCALE NOTE IF HIT=1 THEN ISCALE=ISCALE+1 IF ISCALE=13 THEN ISCALE=1 GOSUB DOSCALE END IF REM CHANGE SCALE STEP IF HIT>=2 AND HIT<=7 THEN II=HIT-1 NSTEP(II)=(NSTEP(II)+1) IF NSTEP(II)>3 THEN NSTEP(II)=1 BG 0 NUMBER (II*2)+1,1,NSTEP(II),1 ITOT=12 FOR II=1 TO 6 ITOT=ITOT-NSTEP(II) NEXT II NSTEP(7)=ITOT NUMBER (7*2)+1,1,NSTEP(7),1 GOSUB DOSCALE END IF END IF LOOP DOSCALE: BG 0 GET$=MSCALE$(MISCALE) MNAME$=LEFT$(GET$,3) FOR I=1 TO 7 NSTEP(I)=VAL(MID$(GET$,I+3,1)) REM NUMBER I*2+1,1,NSTEP(I),1 NEXT I TEXT 15,8,MNAME$ NOTE(1)=ISCALE TEXT 3,1,NOTE$(NOTE(1) MOD 12) FOR II=1 TO 6 NOTE(II+1)=NOTE(II)+NSTEP(II) NN=NOTE(II+1) MOD 12 TEXT II*2+3,1,NOTE$(NN) NEXT II WAIT 15 RETURN #1:MAIN PALETTES 012A16032B2B17030000002A002A1600 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000000000000000000000 00071F3F3F7F7F7F0718204040808080 00E0F8FEFEFFFFFFE018040202010101 000103070F1F3F7F0102040810204080 0080C0E0F0F8FCFE8040201008040201 00FFFFFFFFFFFFFFFF00000000000000 0080C0E0F0F8FCFE8040201008040201 00000000000702020718204040808080 0000000000C18181E018040202010101 00000000000F05050718204040808080 0000000000E14141E018040202010101 00000000000F05050718204040808080 0000000000E14141E018040202010101 00000000000702020718204040808080 0000000000C18181E018040202010101 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F3F3F3F1F078080804040201807 FFFFFFFEFEFCF8E001010102020418E0 FF7F3F1F0F0703018040201008040201 FFFEFCF8F0E0C0800102040810204080 FFFFFFFFFFFFFFFF00000000000000FF FFFEFCF8F0E0C0800102040810204080 02020740402018078080804040201807 8181C102020418E001010102020418E0 05050F40402018078080804040201807 4141E102020418E001010102020418E0 04040F40402018078080804040201807 8181E102020418E001010102020418E0 01010740402018078080804040201807 0101C102020418E001010102020418E0 00070101010107000000000000000000 00C000000000C0000000000000000000 00070202020207000000000000000000 00C080808080C0000000000000000000 000F050505050F000000000000000000 00E040404040E0000000000000000000 000F050504040F000000000000000000 00E040408080E0000000000000000000 00030101000003000000000000000000 00E040408080E0000000000000000000 000F050502020F000000000000000000 00E040404040E0000000000000000000 001F0A0A04041F000000000000000000 00F0A0A0A0A0F0000000000000000000 00000000000F05050718204040808080 0000000000E14141E018040202010101 00010001010100000000000000000000 00000000000000000000000000000000 00020002020200000000000000000000 00800080808000000000000000000000 00050005050500000000000000000000 00400040404000000000000000000000 00050105040400000000000000000000 00404040808000000000000000000000 00010101000000000000000000000000 00404040808000000000000000000000 00050505020200000000000000000000 00400040404000000000000000000000 000A0A0A040400000000000000000000 00A000A0A0A000000000000000000000 02020F40402018078080804040201807 4141E102020418E001010102020418E0 FF8080809CA2A09C007F7F7F635D5F63 FF000000FA22212100FFFFFF05DDDEDE FF0000002828484800FFFFFFD7D7B7B7 FF0101017941417100FFFFFF87BFBF8F 007F7F7F7F7F7F7FFF808080BCA2A2A2 00FFFFFFFFFFFFFFFF000000FE101010 00FFFFFFFFFFFFFFFF000000FD8080F8 00FEFEFEFEFEFEFEFF010101FD212121 007F7F7F7F7F7F7FFF80808099A5A1A1 00FFFFFFFFFFFFFFFF000000131414F4 00FFFFFFFFFFFFFFFF0000009E515151 00FEFEFEFEFEFEFEFF01010171494545 FF80808080808080007F7F7F7F7F7F7F FF0000000000000000FFFFFFFFFFFFFF FF0000000000000000FFFFFFFFFFFFFF FF0101010101010100FFFFFFFFFFFFFF 8282A29C808080FF7D7D5D637F7F7F7F 20202020000000FFDFDFDFDFFFFFFFFF 8888888F000000FF77777770FFFFFFFF 41414179010101FFBFBFBF87FFFFFFFF 7F7F7F7F7F7F7F00BCA4A2A2808080FF FFFFFFFFFFFFFF00101010FE000000FF FFFFFFFFFFFFFF0080808080000000FF FEFEFEFEFEFEFE0021212121010101FF 7F7F7F7F7F7F7F00A1A1A599808080FF FFFFFFFFFFFFFF0014141413000000FF FFFFFFFFFFFFFF005E525191000000FF FEFEFEFEFEFEFE0045454971010101FF 80808080808080FF7F7F7F7F7F7F7F7F 00000000000000FFFFFFFFFFFFFFFFFF 00000000000000FFFFFFFFFFFFFFFFFF 01010101010101FFFFFFFFFFFFFFFFFF FF8080809CA2A09C007F7F7F635D5F63 FF0000007384848700FFFFFF8C7B7B78 FF000000905050D000FFFFFF6FAFAF2F FF010101F98181E100FFFFFF077F7F1F 007F7F7F7F7F7F7FFF80808080808080 00FFFFFFFFFFFFFFFF00000000000000 00FFFFFFFFFFFFFFFF00000000000000 00FEFEFEFEFEFEFEFF01010101010101 FF80808080808080007F7F7F7F7F7F7F FF0000000000000000FFFFFFFFFFFFFF FF0000000000000000FFFFFFFFFFFFFF FF0101010101010100FFFFFFFFFFFFFF 071820405192949800071F3F2E6D6B67 FF0000007444426200FFFFFF8BBBBD9D 80402010484482810080C0E0B0B87C7E 00000000000000000000000000000000 8282A29C808080FF7D7D5D637F7F7F7F 84848474000000FF7B7B7B8BFFFFFFFF 5050505E000000FFAFAFAFA1FFFFFFFF 818181F9010101FF7F7F7F07FFFFFFFF 7F7F7F7F7F7F7F0080808080808080FF FFFFFFFFFFFFFF0000000000000000FF FFFFFFFFFFFFFF0000000000000000FF FEFEFEFEFEFEFE0001010101010101FF 80808080808080FF7F7F7F7F7F7F7F7F 00000000000000FFFFFFFFFFFFFFFFFF 00000000000000FFFFFFFFFFFFFFFFFF 01010101010101FFFFFFFFFFFFFFFFFF 94929151402018076B6D6E2E3F3F1F07 41414171000000FFBEBEBE8EFFFFFFFF 0102040810204080FFFEFCF8F0E0C080 #3:MAIN BG 000014106C006D006E00040005000400 05000400050004000500040005000400 0500040005000000000000007C007D00 7E001400150014001500140015001400 15001400150014001500140015000000 00000000000000000200030002000300 02000300020003000200030002000300 02000300000000000000000000000000 12001300120013001200130012001300 12001300120013001200130000000000 00000000000000002000210022002300 2400250026002700280029002A002B00 2C002D00000000000000000000000000 30003100320033003400350036003700 380039003A003B000000600061006200 63000000000000000800090002000300 02000300020003000200030002000300 00007000710072007300000000000000 18001900120013001200130012001300 12001300120013000000640366036603 67030000000000000A000B0002000300 02000300020003000200030002000300 00007403750375037703000000000000 1A001B00120013001200130012001300 12001300120013000000000000000000 00000000000000000C000D0002000300 02000300020003000200030002000300 00004000410042004300000000000000 1C001D00120013001200130012001300 12001300120013000000500051005200 53000000000000000E000F0002000300 02000300020003000200030002000300 00004403450346034703000000000000 1E001F00120013001200130012001300 12001300120013000000540355035603 57030000000000002E002F0002000300 02000300020003000200030002000300 00000000000000000000000000000000 3E003F00120013001200130012001300 12001300120013000000000000000000 00000000