DIM FRAME(14) FOR I=0 TO 14 READ FRAME(I) NEXT I DATA 32,34,36,38,40,42,44,46,64,66,68,70,72,74,76 DIM SCALE(0,7) FOR I=1 TO 7 READ SCALE(0,I) NEXT I DATA 0,2,4,5,7,9,11 DISPLAY (1,1,1,1,1) TOUCHSCREEN IFRAME=0 ILEN=5 ISELECT=0 XCELL=0 YCELL=0 OYCELL=0 OXCELL=0 DO IF TOUCH AND TOUCH.X\16>0 AND TOUCH.X\16<8 THEN IF ISELECT=0 THEN XCELL=TOUCH.X\16 YCELL=TOUCH.Y\16 ISELECT=XCELL+(YCELL*12) PLAY 0,ISELECT IFRAME=INT(RND*13)+1 ATTR(YCELL,,,,) CELL XCELL,YCELL,FRAME(IFRAME) ELSE IF ISELECT>0 THEN OYCELL=YCELL OXCELL=XCELL XCELL=TOUCH.X\16 YCELL=TOUCH.Y\16 IF ISELECT<>(XCELL+(YCELL*12)) THEN ATTR(OYCELL,,,,) CELL OXCELL,OYCELL,FRAME(0) END IF ISELECT=XCELL+(YCELL*12) PLAY 0,ISELECT IFRAME=(IFRAME+1) MOD 14 ATTR(YCELL,,,,) CELL XCELL,YCELL,FRAME(IFRAME+1) END IF ELSE IF ISELECT>0 THEN ISELECT=0 CELL XCELL,YCELL,FRAME(0) STOP 0 END IF WAIT VBL LOOP #1:MAIN PALETTES 0030002000380024003C0028000C0008 000F000A000B00060023001200330022 #2:MAIN CHARACTERS FF808080808080800000000000000000 FF010101010101010000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FF0000000000000000 01010101010101FF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF80808080808080FF80808080808080 FF01010101010101FF01010101010101 030C1020404080800000000000000000 00C02010080804040000000000000000 0C334080000000000000000000000000 00008040202010100000000000000000 30CC0201000000000000000000000000 00000000808040400000000000000000 C0300804020201010000000000000000 00000000000000000000000000000000 00C02010080804040000000000000000 00000000000000000000000000000000 00008040202010100000000000000000 00000000000000000000000000000000 00000000808040400000000000000000 00000000000000000000000000000000 FF808080808080FF80808080808080FF FF010101010101FF01010101010101FF 00000000000000000000000000000000 02020101000000000000000000000000 00000000000000000000000000000000 08080404020100000000000000000000 00000000000000000000000000000000 20201010080403000000000000000000 00000000000000000000000000000000 8080404020100C030000000000000000 02020101000000000000000000000000 000000008040330C0000000000000000 08080404020100000000000000000000 000000000102CC300000000000000000 20201010080403000000000000000000 01010202040830C00000000000000000 00000000000000000000000000000000 00000000010102020000000000000000 00000000000000000000000000000000 00000102040408080000000000000000 00000000000000000000000000000000 00030408101020200000000000000000 00000000000000000000000000000000 030C1020404080800000000000000000 00000000010102020000000000000000 0C334080000000000000000000000000 00000102040408080000000000000000 30CC0201000000000000000000000000 00030408101020200000000000000000 C0300804020201010000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8080404020100C030000000000000000 040408081020C0000000000000000000 000000008040330C0000000000000000 10102020408000000000000000000000 000000000102CC300000000000000000 40408080000000000000000000000000 01010202040830C00000000000000000 00000000000000000000000000000000 040408081020C0000000000000000000 00000000000000000000000000000000 10102020408000000000000000000000 00000000000000000000000000000000 40408080000000000000000000000000