TOUCHSCREEN DIM GLOBAL BOARD(3,3) BG 1 PAL 5 CELL 19,15,88 REM WAS8BIT REM 2 4 6 8 REM 16 32 64 REM 128 256 512 REM 1024 2048 FOR X=0 TO 3 FOR Y=0 TO 3 CALL DOSQR(X,Y,12,0) NEXT Y NEXT X ITOUCH=0 XTOUCH=0 YTOUCH=0 TMAX=18*8 DO IF TOUCH THEN IF ITOUCH=0 AND TOUCH.X>16 AND TOUCH.X0 THEN YSWIPE=YY ELSE YSWIPE=0 IF YY=0 AND XX<>0 THEN XSWIPE=XX ELSE XSWIPE=0 NUMBER 0,14,XSWIPE,2 NUMBER 0,15,YSWIPE,2 CALL DOSQR(XTOUCH,YTOUCH,0,-1) END IF END IF WAIT VBL LOOP SUB DOSQR(XX,YY,C,N) BG 1 PAL 0 X=2+XX*4 Y=YY*4 IF N=0 THEN ''NEWGAME'' FOR IY=0 TO 3 FOR IX=0 TO 3 BOARD(IX,IY)=0 IF IX>0 AND IX<3 AND IY>0 AND IY<3 THEN CELL X+IX,Y+IY,17 ELSE CELL X+IX,Y+IY,C+IX+16*IY END IF NEXT IX NEXT IY BG 0 PAL 4 TEXT 4,0,"CIRULLI-2048" TEXT 4,15,"SCORE 000000" PAL 0 ELSE IF N>0 OR N<0 THEN REM SHOW TOUCH IF N=-2 THEN TINT X,Y PAL 5 TINT X+3,Y PAL 5 TINT X,Y+3 PAL 5 TINT X+3,Y+3 PAL 5 REM RESTORE ELSE IF N=-1 THEN TINT X,Y PAL 0 TINT X+3,Y PAL 0 TINT X,Y+3 PAL 0 TINT X+3,Y+3 PAL 0 REM SHOW NUMBER ELSE IF N=2 THEN ELSE IF N=4 THEN END IF END IF END SUB SUB DRAWX(X,Y,P,C) IF P<=1 THEN XX=2 ELSE XX=4 PAL P FOR IY=0 TO 1 FOR IX=0 TO XX CELL X+IX,Y+IY,C+IX+16*IY NEXT IX NEXT IY END SUB #1:MAIN PALETTES 153F2A00003F2A07003F2A08003F2A30 0007072B002A3F15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000103070E1C FFFFFFFFFFFFFFFF3070F0F0B0303030 FFFFFFFFFFFFFFFF070F1E3C38381C0F FFFFFFFFFFFFFFFFE0F0783C1C1C38F0 FFFFFFFFFFFFFFFF0000383818181818 FFFFFFFFFFFFFFFF00003C7EE6C0C0D8 FFFFFFFFFFFFFFFF000078FCCE060E3C FFFFFFFFFFFFFFFF00003C7EE7C3070E FFFFFFFFFFFFFFFF00001C3E7660606C FFFFFFFFFFFFFFFF00000C1C3C7C6C6C 00001F3F3F3F3F3F3F7FE0C0C0C0C0C0 0000FFFFFFFFFFFFFFFF000000000000 0000FFFFFFFFFFFFFFFF000000000000 0000F8FCFCFCFCFCFCFE070303030303 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF3870FFFF00000000 FFFFFFFFFFFFFFFF3030FFFF30303030 FFFFFFFFFFFFFFFF0F1C38383C1E0F07 FFFFFFFFFFFFFFFFF0381C1C3C78F0E0 FFFFFFFFFFFFFFFF18181818187E7E00 FFFFFFFFFFFFFFFFFEE7C3C3E77E3C00 FFFFFFFFFFFFFFFF3C0E06CEFC780000 FFFFFFFFFFFFFFFF1C3870E0FFFF0000 FFFFFFFFFFFFFFFF7E7763773E1C0000 FFFFFFFFFFFFFFFF6C6C7E7E0C0C0000 3F3F3F3F3F3F3F3FC0C0C0C0C0C0C0C0 FFFFFFFFFFFFFFFF070F1C3830300000 FFFFFFFFFFFFFFFFC0E0703818183870 FCFCFCFCFCFCFCFC0303030303030303 3F3F3F3F3F3F3F3FC0C0C7C7C3C3C3C3 FFFFFFFFFFFFFFFF000003070E0C0000 FFFFFFFFFFFFFFFF000083C7E66667E3 FCFCFCFCFCFCFCFC0303E3F33333F3E3 3F3F3F3F3F3F3F3FC0C0C0C3C7CECCC0 FFFFFFFFFFFFFFFF00000087C7E666E7 FFFFFFFFFFFFFFFF000000C1C3070687 FCFCFCFCFCFCFCFC030303E3E30303E3 3F3F3F3F3F3F3F3FC0C0C0C7C7C6C6C7 FFFFFFFFFFFFFFFF000000C3C3010181 FFFFFFFFFFFFFFFF0000008183838080 FFFFFFFFFFFFFFFF0000E0F0B8181838 3F3F3F3F3F3F3F3FC0C0C0C0C0C0C0C0 FFFFFFFFFFFFFFFF000103070E1C3F3F FFFFFFFFFFFFFFFFE0C080000000FCFC FCFCFCFCFCFCFCFC0303030303030303 3F3F3F3F3F3F3F3FC3C3C3CFCFC0C0CF FFFFFFFFFFFFFFFF010307CFCF0000FF FFFFFFFFFFFFFFFFC78606E7E30000FF FCFCFCFCFCFCFCFCF33333F3E30303F3 3F3F3F3F3F3F3F3FC1C3C7CFCFC0C0CF FFFFFFFFFFFFFFFFC78000E7E70000FF FFFFFFFFFFFFFFFFC7E6E7C3810000FF FCFCFCFCFCFCFCFC733373E3C30303F3 3F3F3F3F3F3F3F3FC7C0C0C7C7C0C0C7 FFFFFFFFFFFFFFFFC1E1E1C7870000FF FFFFFFFFFFFFFFFF808081E3E30000FF FFFFFFFFFFFFFFFF70E0C0F8F80000F8 3F3F3F3F3F1F0000C0C0C0C0C0E07F3F FFFFFFFFFFFF0000000000000000FFFF FFFFFFFFFFFF0000000000000000FFFF FCFCFCFCFCF80000030303030307FEFC 3F3F3F3F3F3F3F3FC0C0C7C0C0C6C2C2 FFFFFFFFFFFFFFFF0000FF00001C2222 FFFFFFFFFFFFFFFF0000FF0000314911 FCFCFCFCFCFCFCFC0303E303034343E3 3F3F3F3F3F3F3F3FC0C0CFC0C0C6C9C2 FFFFFFFFFFFFFFFF0000FF00001C2222 FFFFFFFFFFFFFFFF0000FF0000505178 FCFCFCFCFCFCFCFC0303E30303C323C3 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F3F3F3F3F3F3F3FC2C7C0C0C7C0C0C0 FFFFFFFFFFFFFFFF221C0000FF000000 FFFFFFFFFFFFFFFF20780000FF000000 FCFCFCFCFCFCFCFC43430303E3030303 3F3F3F3F3F3F3F3FC4CFC0C0CFC0C0C0 FFFFFFFFFFFFFFFF221C0000FF000000 FFFFFFFFFFFFFFFF11100000FF000000 FCFCFCFCFCFCFCFC23C30303E3030303 88A85070508040800205020502472A6A