DIM MBIT(6) FOR I=1 TO 6 READ MBIT(I) NEXT I DATA 0,1,2,2,0,1 SPRITE 1,65,90,2 SPRITE.A 1,(0,,,,1) SPRITE 0,-1,-1,4 BG 1 FOR I=1 TO 8 ATTR (1,,,,) TEXT I*2,7,STR$(I) CELL I*2,8,1 NEXT I BG 0 ATTR (0,,,,) DO IF TOUCH THEN SPRITE 0,TOUCH.X,TOUCH.Y, ELSE SPRITE 0,-10,-10, END IF IF SPRITE HIT(0) THEN SPRITE 0,-10,-10, SPRITE.A 1,(1,,,,) GOSUB PLAYMUSIC SPRITE.A 1,(0,,,,) END IF WAIT VBL LOOP PLAYMUSIC: FOR I=1 TO 6 MUSIC MBIT(I) CALL WAITFX NEXT I CLS 0 RETURN SUB WAITFX FOR I=1 TO 8 CLS 0 TEXT I*2,7,STR$(I) CELL I*2,8,1 WAIT 32 NEXT I END SUB #1:MAIN PALETTES 003F2A1500070302003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C42BDBDBDBD423C3C7EC3C3C3C37E3C 3F60FFFFFFFFFFFF3F7FFF9BABAB9BBB FC06FFFFFFFFFFFFFCFEFFB5555B1B5B 80000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF80FFF87F3FBBB9FFFFFFFF7F3F FFFFFF01FF0FFEFC5B5BFFFFFFFFFEFC #15:MAIN SOUND 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0040C0400140C0400240C04040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 320F000000000000000000F1320F0000 00000000000000F1390F000000000000 000000F1390F000000000000000000F1 3B0F000000000000000000F13B0F0000 00000000000000F1390F000000000000 000000000000000000000000000000F1 370F000000000000000000F1370F0000 00000000000000F1360F000000000000 000000F1360F000000000000000000F1 340F000000000000000000F1340F0000 00000000000000F1320F000000000000 000000000000000000000000000000F1 390F000000000000000000F1390F0000 00000000000000F1370F000000000000 000000F1370F000000000000000000F1 360F000000000000000000F1360F0000 00000000000000F1340F000000000000 000000000000000000000000000000F1