TOUCHSCREEN RANDOMIZE TIMER DIM GLOBAL XDIR(7),YDIR(7) FOR I=0 TO 7 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 REM UP=0, RIGHT=2, DOWN=4, LEFT=6 GLOBAL PN CELL SIZE 1,1 FONT 192 TICK=0 BG 1 BG COPY 0,0,6,1 TO 2,2 PAL 1 REPEAT IF TICK MOD 60=0 THEN LOCATE 6,8 PRINT"!TOUCH!" ELSE IF TICK MOD 60=50 THEN CLW END IF WAIT VBL INC TICK UNTIL TOUCH CLS PAL 0 CALL MAP SUB MAP BG 1 BG FILL 0,0 TO 9,7 CHAR 12 BG FILL 1,0 TO 8,7 CHAR 10 CELL 4,3,2 CELL 4,4,8 CELL 5,3,8 CELL 5,4,2 WAIT 60 END SUB PN=0 DO IF PN MOD 2=0 THEN BG FILL 9,0 TO 9,3 CHAR 12 BG COPY 0,1,1,3 TO 0,0 ELSE BG FILL 0,0 TO 0,3 CHAR 12 BG COPY 1,1,1,3 TO 9,0 END IF IF TAP THEN TX=TOUCH.X\16 TY=TOUCH.Y\16 TC=CELL.C(TX,TY) IF TC=10 THEN FOR D=0 TO 7 CALL ADDCHECK(TX,TY,PN,D) IF TC>0 THEN CALL CHECKIT(TX,TY,D) NEXT D END IF END IF LOOP SUB ADDCHECK(X,Y,T,D) IF CELL.C(X,Y)<>10 THEN EXIT SUB IF T MOD 2=0 THEN P=2 ELSE P=8 IFLIP=0 FOR I=1 TO 8 X2=X+XDIR(D)*I Y2=Y+YDIR(D)*I P2=CELL.C(X2,Y2) IF P2=P AND IFLIP=0 THEN EXIT SUB IF P2=10 THEN EXIT SUB IF P2=(10-P) THEN IFLIP=1 IF P2=P AND IFLIP=1 THEN CALL ADDIT(X,Y,P) EXIT SUB END IF NEXT I END SUB SUB ADDIT(X,Y,T) CELL X,Y,T INC PN WAIT 15 END SUB SUB CHECKIT(X,Y,D) P=CELL.C(X,Y) IFLIP=0 FOR I=1 TO 8 X2=X+XDIR(D)*I Y2=Y+YDIR(D)*I P2=CELL.C(X2,Y2) IF P2=P AND IFLIP=0 THEN EXIT SUB IF P2<>P AND P2<>10 THEN IFLIP=1 IF P2=10 THEN EXIT SUB IF P2=P AND IFLIP=1 THEN CALL FLIPIT2(X,Y,D,I-1) EXIT SUB END IF NEXT I END SUB SUB FLIPIT2(X,Y,D,IEND) FOR I=1 TO IEND XFLIP=X+XDIR(D)*I YFLIP=Y+YDIR(D)*I CALL FLIPIT(XFLIP,YFLIP) NEXT I END SUB SUB FLIPIT(X,Y) C=CELL.C(X,Y) IF C=2 THEN FOR T=4 TO 8 STEP 2 CELL X,Y,T WAIT 6 NEXT T ELSE IF C=8 THEN FOR T=6 TO 2 STEP -2 CELL X,Y,T WAIT 6 NEXT T END IF END SUB #1:MAIN PALETTES 083F2A0000003400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FF838F9FBFBFFFFFFF838C90A0A0C0C0 FFC1F1F9FDFDFFFFFFC1310905050303 FF83878F8F9F9F9FFF83848888909090 FFC12191D1C9C9C9FFC1E17131393939 FF83858B8B979797FF83878F8F9F9F9F FFC1E1F1F1F9F9F9FFC1E1F1F1F9F9F9 FF838F9FBFBFFFFFFF838F9FBFBFFFFF FFC1F1F9FDFDFFFFFFC1F1F9FDFDFFFF FF80808080808080FF80808080808080 FF01010101010101FF01010101010101 80808080808080808080808080808080 01010101010101010101010101010101 FF80808080808080FF80808080808383 FF01010101010101FF0101010101C1C1 00000000000000000000000000000000 00000000000000000000000000000000 FFFFBFAF938C83FFC0C0A0B09C8F83FF FFFFFDF5C931C1FF0303050D39F1C1FF 9F9F9F8F8F8783FF90909088888483FF C9C9C9D19121C1FF3939393171E1C1FF 9797978B8B8583FF9F9F9F8F8F8783FF F9F9F9F1F1E1C1FFF9F9F9F1F1E1C1FF FFFFFFFF9F8F83FFFFFFFFEF938C83FF FFFFFDFDF9F1C1FFFFFFFDF5C931C1FF 80808080808080FF80808080808080FF 01010101010101FF01010101010101FF 80808080808080808080808080808080 01010101010101010101010101010101 80808080808080FF83838080808080FF 01010101010101FFC1C10101010101FF 82818482808087808080808080808080 01012121418101010101010101010101 80808385898A8A848080808080808080 01018141212121C10101010101010101 80808181818181808080808080808080 01010101010101010101010101010101 80828382848080838080808080808080 0101C141414181010101010101010101 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808784848484878080808080808080 0101C141414141C10101010101010101 80828382858080838080808080808080 0101C14141C181010101010101010101 80808482808080878080808080808080 01010121214181010101010101010101 80808784848484878080808080808080 0101C141414141C10101010101010101 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1F2040808F888888001F3F7F70707070 F8040201F111111100F8FCFE0E0E0E0E 00000078484F40400000000030303F3F 0007040404F41414000003030303E3E3 00808080808080800000000000000000 00000000000F10200000000000000F1F 0003020203F00804000001010000F0F8 00F00804E42424240000F0F818181818 00FC8281F109090900007C7E0E060606 00000000000102040000000000000103 0000000000FC0201000000000000FCFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 8888888F8040201F707070707F3F1F00 111111F1010204F80E0E0E0EFEFCF800 4F4848484F40201F30303030303F1F00 F4040404F41414F70303030303E3E300 FE8180FC84848487007E7F0303030300 2023A2A2A3A0908F1F1C1D1D1C1F0F00 04E40404FC0404FCF818F8F800F8F800 242424242320100F181818181C1F0F00 09090909C84844C30606060607878300 04040404F41412F10303030303E3E100 F9898989F90102FC0606060606FEFC00 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 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 00181C1C1C0C180C00000404040C000C 006C7E36120000000000121212000000 00247E3F367E3F120000001B12001B12 00083E3F1E3F1F040000000710011704 0062753A142E57230000113204081123 001C3E3A7E773A1D00000A021013001D 00181C3C180000000000040C18000000 000C1E3C38180C060000060C08000006 0030180C0E1E3C180000000002060C18 0000241A7E3F2C120000000200270812 0000181C7E3F1C0C000000040027040C 00000000181C3C180000000000040C18 000000007E3F000000000000003F0000 0000000000181C0C000000000000040C 00060F1E3C787020000003060C183020 003C7E7F777F3F1E000018110119031E 00183C1C1C1C7E3F000004040404003F 003C7E3F1E3C7E3F00001833060C003F 003C7E3F06673F1E000018330001031E 0066777F3F0707030000110139010103 007E7F7C3E077F3E00001F003801033E 001C3E7C7E773F1E00000E001811031E 007E3F0F1E3C381800003903060C0818 003C7E3F7E773F1E000018031811031E 003C7E3F1F673F1E000018011901031E 000000180C180C00000000000C000C00 000000180C183C18000000000C000C18 00000C1E3C180C06000000060C000006 0000007E3F7E3F00000000003F003F00 000030180C1E3C180000000000060C18 003C7E3F1E0C180C00001833060C000C 003C7E7F7F773C1E000018111117001E 00183C7E7F7F77330000001801191133 007C7E7F7E777F3E000018031811033E 003C7E7370763F1E000018131010031E 00787C76777F7E3C000010101113063C 007E7F787C707E3F00001F001C10003F 007E7F787C70703000001F001C101030 003C7E7E77773F1E00001E101111031E 0066777F7F7777330000110119111133 003C1E1C1C1C3C1E000006040404001E 001E0F0707673F1E000009010101031E 00667F7E7C7C76330000130604101033 0060707070707E3F000010101010003F 0042677F7F7F77330000010101191133 0066777F7F7777330000010111111133 003C7E7777773F1E000018111111031E 007C7E7F7E707030000018031E101030 003C7E777B7D3E1F000018111111001F 007C7E7F7E7C76330000180306101033 003E7F3C1E077F3E00001F001801033E 007E3F1C1C1C1C0C000027040404040C 0066777777773F1E000011111111031E 00667777773F1E0C000011111103060C 0066777F7F7F73210000110101193121 00663F1E3C7E77330000030600181133 0066773F1E1C1C0C000011030604040C 007E3F1E3C787E3F000033060C18003F 003C3E3838383C1E00000E080808001E 006030180C0603010000000000000101 003C1E0E0E0E3E1E000012020202021E 00183C7E330000000000001833000000 0000000000007E3F000000000000003F #3:MAIN BG 00011410400042004400460048004A00 00000000000000000000000000000000 00000000000000000000000020002601 6400660068006A000000000000000000 00000000000000000000000000000000 00000000220022010000000000000000 00000000620000000000000000000000 00000000000000000000000024002401 00000000000060006200000062000000 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 00000000