RANDOMIZE TIMER BG 1 BG COPY 0,0,32,16 TO 0,0 DIM GRID(6,6) DIM GAME(20,6,6) FOR IY=1 TO 6 FOR IX=1 TO 6 REM READ GAME(0,IX,IY) READ I IF I>0 THEN I=I+10 GRID(IX,IY)=I NEXT IX NEXT IY DATA 0,3,0,0,0,1 DATA 2,0,0,0,0,0 DATA 0,2,0,0,1,0 DATA 0,0,0,0,0,6 DATA 0,0,4,6,5,0 DATA 5,0,2,0,4,0 TOUCHSCREEN BG 0 OTX=0 OTY=0 IGET=0 IHOLD=0 GOSUB DRAWGRID DO IF TOUCH THEN TX=TOUCH.X\16 TY=TOUCH.Y\16 IF IGET=0 AND TX=OTX AND TY=OTY THEN IHOLD=IHOLD+1 IF IHOLD>60 THEN IHOLD=0 IF TX>0 AND TY>0 AND TY<7 THEN GG=GRID(TX,TY) IF GG>0 AND GG<10 THEN GRID(TX,TY)=0 GOSUB DRAWGRID END IF END IF ELSE IHOLD=0 END IF OTX=TX OTY=TY IF IGET=0 THEN IF TX=8 AND TY>0 AND TY<=6 THEN IGET=TY SPRITE.A 0,(TY-1,0,0,0,1) SPRITE 0,TOUCH.X-8,TOUCH.Y-8,(TY*2) END IF ELSE SPRITE 0,TOUCH.X-8,TOUCH.Y-8, END IF ELSE IHOLD=0 IF IGET>0 THEN IF TX>0 AND TX<7 AND TY>0 AND TY<7 THEN IF GRID(TX,TY)=0 THEN GRID(TX,TY)=IGET GOSUB DRAWGRID END IF END IF IGET=0 TX=0 TY=0 SPRITE 0,0,0,0 END IF ATTR(6,0,0,0,0) NUMBER 1,1,TX,1 NUMBER 3,1,TY,1 NUMBER 7,1,IGET,1 NUMBER 12,1,IHOLD,3 WAIT VBL LOOP DRAWGRID: CLS 0 FOR IY=1 TO 6 FOR IX=1 TO 6 I=GRID(IX,IY) IF I>=10 THEN I=I-10 IF I>0 THEN ATTR(I-1,0,0,0,0) CELL IX*2,IY*2,I*2 CELL IX*2+1,IY*2,I*2+1 CELL IX*2,IY*2+1,I*2+16 CELL IX*2+1,IY*2+1,I*2+1+16 END IF NEXT IX NEXT IY RETURN #1:MAIN PALETTES 003A2030002E080C002B0217003F152A 003B2233000F050A003C2814003F2A15 #2:2X2 CHARSETSERS 00000000000000000000000000000000 00000000000000000000000000000000 071C3D7D7DFD81BF0003030303037F7F E038BCBEBEBF81FD00C0C0C0C0C0FEFE 071F3C7B77ECD9DB000003070F1F3E3C E0F83CDEEE379BDB0000C0E0F0F87C3C 071C3D7D7CFF84B50003030303007B7B E038BCBE3EFF21AD00C0C0C0C000DEDE 071F2F536DEDF2FC0000103C1E1E0F03 E0F8F4CAB6B74F3F0000083C7878F0C0 071F3F7F7CF9F3F70000000003070F0F E0F8FCFE3E9FCFEF00000000C0E0F0F0 071C3B746BF7FFFF0003070F1C180000 E038FC2ED6EFFFFF00C0C0F038180000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 BF81FD7D7D3D1C077F7F030303030300 FD81BFBEBEBC38E0FEFEC0C0C0C0C000 DBD9EC777B3C1F073C3E1F0F07030000 DB9B37EEDE3CF8E03C7CF8F0E0C00000 B584FF7C7D3D1C077B7B000303030300 AD21FF3EBEBC38E0DEDE00C0C0C0C000 FCF2ED6D532F1F07030F1E1E3C100000 3F4FB7B6CAF4F8E0C0F078783C080000 F7F3F97C7F3F1F070F0F070300000000 EFCF9F3EFEFCF8E0F0F0E0C000000000 AFAFD76977391F077070381E0E060000 F5F5EB96EE9CF8E00E0E1C7870600000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 AA7FC040C040C040FFFFC0C0C0C0C0C0 AAFF010101010101FFFF010101010101 AAFF000000000000FFFF000000000000 AAFF010101010101FFFF010101010101 AAFF000000000000FFFF000000000000 AAFF020302030203FFFF030303030303 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C040C040C040C07FC0C0C0C0C0C0C0FF 01010101010101FF01010101010101FF 00000000000000FF00000000000000FF 01010101010101FF01010101010101FF 00000000000000FF00000000000000FF 02030203020302FF03030303030303FF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C040C040C040C040C0C0C0C0C0C0C0C0 01010101010101010101010101010101 00000000000000000000000000000000 01010101010101010101010101010101 00000000000000000000000000000000 02030203020302030303030303030303 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C040C040C040FF55C0C0C0C0C0C0FFFF 010101010101FF55010101010101FFFF 000000000000FF55000000000000FFFF 010101010101FF55010101010101FFFF 000000000000FF55000000000000FFFF 020302030203FE55030303030303FFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181404040C100C00000C1C1C0C080C 004812121200000000247E3612000000 0024601B12401B1200001E3F363E3F12 000830271021170400000E1F1E1F1F04 00401132040C11230022753A142A5723 00102A021013001D000C1E3A7E773A1D 0010040C1800000000081C3C18000000 0008160C0800000600040E3C38180C06 0030000002060C180000180C0E1E3C18 00002012402708120000040A3E3F2C12 000018144027040C0000000C3E3F1C0C 0000000010040C1800000000081C3C18 00000000603F0000000000001E3F0000 000000000010040C0000000000081C0C 00040B060C1830200002071E3C787020 002058110119031E001C3E7F777F3F1E 001024040404403F00081C1C1C1C3E3F 00205833060C003F001C3E3F1E3C7E3F 002058330041031E001C3E3F06273F1E 00665501390101030000337F3F070703 00605F003801433E001E3F7C3E073F3E 00102E001811031E000C1E7C7E773F1E 00603903060C0818001E3F0F1E3C3818 002058031811031E001C3E3F7E773F1E 002058011941031E001C3E3F1F273F1E 000000100C100C00000000080C080C00 000000100C100C18000000080C083C18 000008160C0000060000040E3C180C06 000000603F403F000000001E3F3E3F00 0000300000060C18000000180C1E3C18 00205833060C100C001C3E3F1E0C080C 002058191117001E001C3E777F773C1E 001020180119113300081C7E7F7F7733 006058031811033E001C3E7F7E777F3E 002058131010031E001C3E7370763F1E 006050101113063C00183C76777F7E3C 00605F001C10003F001E3F787C707E3F 00605F001C101030001E3F787C707030 00205E1C1111031E001C3E7277773F1E 00665501191111330000337F7F777733 003006040404001E000C1E1C1C1C3C1E 001C09010141031E00020F0707273F1E 00645B06041010330002377E7C7C7633 006050101010003F0000307070707E3F 0042450901191133000023777F7F7733 00664501111111330000337F7F777733 002058111111031E001C3E7777773F1E 006058031E101030001C3E7F7E707030 002058111111001F001C3E777B7D3E1F 0060580306101033001C3E7F7E7C7633 00205F001801033E001E3F3C1E077F3E 007027040404040C000E3F1C1C1C1C0C 006655111111031E0000337777773F1E 006655111103060C00003377773F1E0C 00665515011931210000336B7F7F7321 00640B06001811330002371E3C7E7733 0066550B0604040C000033371E1C1C0C 006033060C58003F001E3F1E3C387E3F 00302E080808001E000C1E3838383C1E 0060000000000101000030180C060301 003812020202021E00041E0E0E0E3E1E 001020183300000000081C7E33000000 000000000000603F0000000000001E3F #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000050005 00000000000000000000000000000000 00000000000000000000000000000000 00000000000500054007410742074307 44074507400741074207430744074507 00000000020003000000000000050005 50075107520753075407550750075107 52075307540755070000000012001300 00000000000500056007610762076307 64076507600761076207630764076507 00000000040105016407000000050005 70077107720773077407750770077107 72077307740775070000000014011501 00000000000500054007410742074307 44074507400741074207430744074507 00000000060207020000000000050005 50075107520753075407550750075107 52075307540755070000000016021702 00000000000500056007610762076307 64076507600761076207630764076507 00000000080309030000000000050005 70077107720773077407750770077107 72077307740775070000000018031903 00000000000500054007410742074307 44074507400741074207430744074507 000000000A040B040000000000050005 50075107520753075407550750075107 5207530754075507000000001A041B04 00000000000500056007610762076307 64076507600761076207630764076507 000000000C050D050000000000050005 70077107720773077407750770077107 7207730774077507000000001C051D05 00050000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000