TOUCHSCREEN DIM N$(12),YD(12) FOR I=0 TO 11 READ N$(I) NEXT I DATA "C ","C#","D ","D#","E ","F ","F#","G ","G#","A ","A#","B " FOR I=0 TO 11 READ YD(I) NEXT I DATA 1,0,1,0,1,1,0,1,0,1,0,1 REM WAS8BIT BG COPY 0,0,20,16 TO 0,0 RANDOMIZE TIMER XD=0 REPLAY: MUSIC 0 DO N2=PEEK($FF40) N1=PEEK($FF41) FOR II=0 TO 95 G1=PEEK(ROM(14)+II*2) G2=PEEK(ROM(14)+II*2+1) IF G1=N1 AND G2=N2 THEN GOTO DOEXIT NEXT II DOEXIT: N=II MOD 12 O=II\12 TEXT 0,0,N$(N) NUMBER 2,0,O,1 IF N>4 THEN NN=1 ELSE NN=0 YY=YD(N) IF YY=0 THEN PAL 2 C=18 ELSE PAL 1 C=17 END IF CELL 6+N+NN,15-O*2-1+YY,C WAIT VBL PAL 0 IF YY=0 THEN C=2 ELSE C=1 CELL 6+N+NN,15-O*2-1+YY,C IF MUSIC(3)=0 AND TOUCH THEN GOTO REPLAY LOOP #1:MAIN PALETTES 063F2A00003B283000302820003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFE7DBDBE7FF0000001824241800FFFF FFE7DBDBE7FFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF0000000000000000 07070707070700000808080808080F0F E7E7E7E7E7E70000181818181818FFFF E0E0E0E0E0E00000101010101010F0F0 07070707070707070808080808080808 E7E7E7E7E7E7E7E71818181818181818 E0E0E0E0E0E0E0E01010101010101010 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFE7DBDBE7FF000000183C3C1800FFFF FFE7DBDBE7FFFFFFFFFFE7E7FFFFFFFF #3:MAIN BG 00001410000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600000000000000000000000700 03000200030002000300080003000200 03000200030002000300090000000000 00000000000004000100050001000500 01000500010005000100050001000500 01000600 #14:DATA 01050115012501370149015D01710187 019F01B801D201ED020B022A024B026E 029302BA02E3030F033E037003A403DB 04160454049604DC0526057405C7061F 067D06E0074807B7082D08A9092D09B9 0A4D0AE90B8F0C3F0CFA0DC00E910F6F 105A1152125A1372149A15D3171F187F 19F41B801D221EDE20B422A524B526E4 29342BA72E3F30FF33E937003A453DBC 4168454B496A4DC85268574E5C7F61FF 67D36E00748A7B7882D08A9792D59B90 A4D0AE9DB8FFC3FFCFA7DC00E914F6F1 #15:MAIN SOUND 2800F000003D00001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00404040014040400240404000404040 03404040044040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 2F0F00000000000000000000320F0000 00000000000000000000000000000000 00000000340F00000000000000000000 360F0000000000000000000000000000 0000000000000000370F00360F000000 00000000340F00000000000000000000 000000000000000000000000310F0000 00000000000000002D0F000000000000 00000000000000000000000000000000 2F0F00310F00000000000000320F0000 00000000000000000000000000000000 000000002F0F00000000000000FF0F00 2F0F0000000000000000000000000000 00000000000000002E0F002F0F000000 00000000310F00000000000000000000 0000000000000000000000002E0F0000 00000000000000002A0F000000000000 00000000000000000000000000000000 000000000000000000000000310F0000 00000000000000002D0F000000000000 00000000000000000000000000000000 2F0F00310F00000000000000320F0000 00000000000000000000000000000000 00000000310F002F0F00000000000000 2E0F0000000000000000000000000000 00000000000000002C0F002E0F000000 000000002F0F00000000000000000000 00000000000000000000000000000000 0000000000FF00002F0F000000000000 00000000000000000000000000FF0000