CELL SIZE 1,1 RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT DIM GLOBAL CAN(60) FOR I=1 TO 37 READ CAN(I) NEXT I DATA 2,4,6,8,10,12,14,32,34,36,38,40 DATA 42,44,46,64,66,68,70,72,74,76 DATA 78,96,98,100,102,104,106,108 DATA 110,128,130,132,134,136,138 BG 1 FOR Y=0 TO 7 FOR X=1 TO 8 PAL RND(6)+1 CELL X,Y,2 NEXT X NEXT Y I=RND(6)+1 ITOUCH=0 DO IF TOUCH THEN IF ITOUCH=0 THEN TX1=TOUCH.X TY1=TOUCH.Y ITOUCH=1 END IF ELSE IF ITOUCH=1 THEN TX2=TOUCH.X TY2=TOUCH.Y ITOUCH=0 DX=ABS(TX1-TX2) DY=ABS(TY1-TY2) IF DX>16 AND DY<16 THEN CALL ANI(I,1) IF DY>16 AND DX<16 THEN CALL ANI(I,2) IF DX<16 AND DY<16 THEN CALL ANI(I,3) END IF END IF WAIT VBL LOOP SUB ANI(CP,T) IF T=1 THEN A1=1 A2=13 ELSE IF T=2 THEN A1=13 A2=25 ELSE IF T=3 THEN A1=25 A2=37 ADD CP,1,1 TO 7 END IF FOR A=A1 TO A2 FOR Y=0 TO 7 FOR X=1 TO 8 P=CELL.A(X,Y) IF P=CP THEN PAL P CELL X,Y,CAN(A) END IF NEXT X NEXT Y WAIT 4 NEXT A END SUB #1:MAIN PALETTES 003F2A15003B302000382410003C2814 002E0C08000F0A05000B060200332211 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00071820204043430000071F1F3F3F3F 00E018040402C2C20000E0F8F8FCFCFC 00030C10102021230000030F0F1F1F1F 00C03008080080C00000C0F0F0FCFCFC 000106080810111100000107070F0F0F 0080600000008080000080F0F0F8F8F8 00010204040808090000010303070707 0080402020109090000080E0E0F0F0F0 00010102020404040000000101030303 0080804040202020000000C0C0E0E0E0 00010101010202020000000000010101 00808080804040400000008080C0C0C0 00010101010101010000000000000000 00808080808080800000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 43434020201807003F3F3F1F1F070000 C2C202040418E000FCFCFCF8F8E00000 23212010100C03001F1F1F0F0F030000 C08000080830C000FCFCFCF0F0C00000 11111008080601000F0F0F0707010000 8080000000608000F8F8F8F0F0800000 08080804040201000707070303010000 9010102020408000F0F0F0E0E0800000 04040402020101000303030101000000 2020204040808000E0E0E0C0C0000000 02020201010101000101010000000000 4040408080808000C0C0C08080000000 01010101010101000000000000000000 80808080808080000000000000000000 00010101010202020000000101030303 00808080804040400000000000808080 00010102020404040000000303070707 00808040402020200000008080C0C0C0 000102040408090900000107070F0F0F 0080402020101090000080C0C0E0E0E0 00010600000001010000010F0F1F1F1F 0080601010088888000080E0E0F0F0F0 00030C10100001030000030F0F3F3F3F 00C03008080484C40000C0F0F0F8F8F8 00071820204043430000071F1F3F3F3F 00E018040402C2C20000E0F8F8FCFCFC 0000071820204143000000071F1F3F3F 0000E018040482C2000000E0F8F8FCFC 000000071820204300000000071F1F3F 000000E0180404C200000000E0F8F8FC 02020201010101000303030101000000 40404080808080008080800000000000 04040402020101000707070303000000 2020204040808000C0C0C08080000000 09080804040201000F0F0F0707010000 1010102020408000E0E0E0C0C0800000 01010000000601001F1F1F0F0F010000 8888081010608000F0F0F0E0E0800000 03010010100C03003F3F3F0F0F030000 C48404080830C000F8F8F8F0F0C00000 43434020201807003F3F3F1F1F070000 C2C202040418E000FCFCFCF8F8E00000 43412020180000003F3F1F1F07070000 C282040418000000FCFCF8F8E0E00000 43202000000000003F1F1F1F07000000 C204040000000000FCF8F8F8E0000000 00000000071820400000000000071F3F 00000000E01804820000000000E0F8FC 0000000000071860000000000000071F 0000000000E01806000000000000E0F8 00000000000007780000000000000007 000000000000E01E00000000000000E0 000000000000007F0000000000000000 00000000000000FE0000000000000000 0000000000000778000000000000071F 000000000000E01E000000000000E0F8 00000000000718600000000000071F1F 0000000000E018060000000000E0F8F8 000000000718204100000000071F1F3F 00000000E01804C200000000E0F8F8FC 0000000000202043000000071F1F1F3F 00000000000404C2000000E0F8F8F8FC 41201807000000003F1F1F0700000000 C20418E000000000FCF8F8E000000000 60180700000000001F1F070000000000 0618E00000000000F8F8E00000000000 78070000000000001F07000000000000 1EE0000000000000F8E0000000000000 7F000000000000000000000000000000 FE000000000000000000000000000000 78070000000000000700000000000000 1EE0000000000000E000000000000000 60180700000000001F07000000000000 0618E00000000000F8E0000000000000 40201807000000003F1F070000000000 820418E000000000FCF8E00000000000 43202018070000003F1F1F0700000000 C2040418E0000000FCF8F8E000000000 0000001820204143000007071F1F3F3F 00000018040482C20000E0E0F8F8FCFC 00071820204043430000071F1F3F3F3F 00E018040402C2C20000E0F8F8FCFCFC 0000071810202123000000070F1F1F1F 0000E018080484C4000000E0F0F8F8F8 000000070810101100000000070F0F0F 000000E01008088800000000E0F0F0F0 00000000030408080000000000030707 00000000C02010100000000000C0E0E0 00000000000304040000000000000303 0000000000C02020000000000000C0C0 00000000000001020000000000000001 00000000000080400000000000000080 00000000000000010000000000000000 00000000000000800000000000000000 43412020180700003F3F1F1F07000000 C282040418E00000FCFCF8F8E0000000 43434020201807003F3F3F1F1F070000 C2C202040418E000FCFCFCF8F8E00000 23212010180700001F1F1F0F07000000 C484040818E00000F8F8F8F0E0000000 11101008070000000F0F0F0700000000 88080810E0000000F0F0F0E000000000 08080403000000000707030000000000 101020C000000000E0E0C00000000000 04040300000000000303000000000000 2020C00000000000C0C0000000000000 02010000000000000100000000000000 40800000000000008000000000000000 01000000000000000000000000000000 80000000000000000000000000000000 00000000000001020000000000000001 00000000000080400000000000000080 00000000000304040000000000000303 0000000000C02020000000000000C0C0 00000000030408080000000000030707 00000000C02010100000000000C0E0E0 000000070810101100000000070F0F0F 000000E01008088800000000E0F0F0F0 0000071810202123000000070F1F1F1F 0000E018080484C4000000E0F0F8F8F8 00071820204043430000071F1F3F3F3F 00E018040402C2C20000E0F8F8FCFCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 02010000000000000100000000000000 40800000000000008000000000000000 04040300000000000303000000000000 2020C00000000000C0C0000000000000 08080403000000000707030000000000 101020C000000000E0E0C00000000000 11101008070000000F0F0F0700000000 88080810E0000000F0F0F0E000000000 23212010180700001F1F1F0F07000000 C484040818E00000F8F8F8F0E0000000 43434020201807003F3F3F1F1F070000 C2C202040418E000FCFCFCF8F8E00000