TOUCHSCREEN
REM WAS8BIT
FONT 64
TEXT 0,0," ABCDEFGHIJKLMNOPQRS"
FOR I=1 TO 15
    CELL 0,I,I+96
NEXT I
CELL 0,0,29
BG 0
BG FILL 1,1 TO 19,15 CHAR 64

GOTO SKIP

BG 0
CELL 5,5,27
CELL 7,7,27
BG 1
CELL 5,5,28
CELL 7,7,28
SKIP:

BG 0
CELL 1,1,1
CELL 2,1,1
CELL 3,1,1
BG 1
CELL 1,1,33
CELL 2,1,34
CELL 3,1,35


ITOUCH=0
DO
  IF TOUCH THEN
     TX=TOUCH.X\8
     TY=TOUCH.Y\8
     IF TX=0 THEN TX=1
     IF TY=0 THEN TY=1
     IF ITOUCH=0 THEN
        OTX=TX
        OTY=TY
        BG 0
        C0=CELL.C(TX,TY)
        CELL TX,TY,64
        SPRITE 0,TX*8,TY*8,C0
        BG 1
        C1=CELL.C(TX,TY)
        CELL TX,TY,0
        SPRITE 1,TX*8,TY*8,C1
        ITOUCH=1
      ELSE IF ITOUCH=1 THEN
         SPRITE 0,TX*8,TY*8,
         SPRITE 1,TX*8,TY*8,
      END IF
  ELSE IF ITOUCH=1 THEN
      IF CELL.C(TX,TY)=0 THEN
         BG 0
         CELL TX,TY,C0
         BG 1
         CELL TX,TY,C1
       ELSE
         BG 0
         CELL OTX,OTY,C0
         BG 1
         CELL OTX,OTY,C1
       END IF
       SPRITE OFF
       ITOUCH=0
  END IF


LOOP




#1:MAIN PALETTES
053F2A0800383400003C0C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
007070F0F0F0F0700070305010505070
0000C0A0C0A0C0000000000000000000
00006080808060000000000000000000
0000C0A0A0A0C0000000000000000000
0000E080C080E0000000000000000000
0000E080C08080000000000000000000
00006080E0A04000000000000000A000
0000A0A0E0A0A0000000000000000000
0000E0404040E0000000000000000000
0000602020A0E0000000000000000000
0000A0A0C0A0A0000000000000000000
000080808080E0000000000000000000
0000A040A0A0A000000000A040000000
0000A020A080A0000000008040200000
000040A0A0A040000000000000000000
0000C0A0C08080000000000000000000
000040A0A0A040000000000000402000
0000C0A0C0A0A0000000000000000000
000060804020C0000000000000000000
0000E040404040000000000000000000
0000A0A0A0A0E0000000000000000000
0000A0A0A0A040000000000000000000
0000A0A0A040A0000000000040A00000
0000A0A040A0A0000000000000000000
0000A0A0404040000000000000000000
0000E0204080E0000000000000000000
00707070707070000000000000000000
000E0E0E0E0E0E000000000000000000
000044AA440000000000000000474040
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
000C0E0E0E0E0E0C000C0A040004040C
000C0E0E0E0E0E0C000C02040204020C
000C0E0E0E0E0E0C000C08060606080C
00000C0A0A0A0C000000000000000000
00000E080C080E000000000000000000
00000E080C0808000000000000000000
000006080E0A04000000000000000A00
00000A0A0E0A0A000000000000000000
00000E0404040E000000000000000000
00000602020A0E000000000000000000
00000A0A0C0A0A000000000000000000
0000080808080E000000000000000000
00000A040A0A0A000000000A04000000
00000A020A080A000000000804020000
0000040A0A0A04000000000000000000
00000C0A0C0808000000000000000000
0000040A0A0A04000000000000040200
00000C0A0C0A0A000000000000000000
0000060804020C000000000000000000
00000E04040404000000000000000000
00000A0A0A0A0E000000000000000000
00000A0A0A0A04000000000000000000
00000A0A0A040A0000000000040A0000
00000A0A040A0A000000000000000000
00000A0A040404000000000000000000
00000E0204080E000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000010000000000000000000000000
00181818180018000000000000000000
006C6C24000000000000000000000000
00247E24247E24000000000000000000
00083E380E3E08000000000000000000
00626408102646000000000000000000
001C34386E643A000000000000000000
00181830000000000000000000000000
000C183030180C000000000000000000
0030180C0C1830000000000000000000
000024187E1824000000000000000000
000018187E1818000000000000000000
00000000181830000000000000000000
000000007E0000000000000000000000
00000000001818000000000000000000
00060C18306040000000000000000000
003C666E76663C000000000000000000
0018381818187E000000000000000000
003C660C18307E000000000000000000
003C660C06663C000000000000000000
0066667E060606000000000000000000
007E607C06067C000000000000000000
001C307C66663C000000000000000000
007E060C183030000000000000000000
003C663C66663C000000000000000000
003C663E06663C000000000000000000
00000018001800000000000000000000
00000018001830000000000000000000
00000C1830180C000000000000000000
0000007E007E00000000000000000000
000030180C1830000000000000000000
003C660C180018000000000000000000
003C666E6E603C000000000000000000
00183C667E6666000000000000000000
007C667C66667C000000000000000000
003C666060663C000000000000000000
00786C66666C78000000000000000000
007E607860607E000000000000000000
007E6078606060000000000000000000
003C606E66663C000000000000000000
0066667E666666000000000000000000
003C181818183C000000000000000000
001E060606663C000000000000000000
00666C78786C66000000000000000000
0060606060607E000000000000000000
0042667E7E6666000000000000000000
0066767E6E6666000000000000000000
003C666666663C000000000000000000
007C667C606060000000000000000000
003C66666A6C3E000000000000000000
007C667C786C66000000000000000000
003E603C06067C000000000000000000
007E1818181818000000000000000000
0066666666663C000000000000000000
00666666663C18000000000000000000
0066667E7E6642000000000000000000
00663C183C6666000000000000000000
0066663C181818000000000000000000
007E0C1830607E000000000000000000
003C303030303C000000000000000000
006030180C0602000000000000000000
003C0C0C0C0C3C000000000000000000
00183C66000000000000000000000000
0000000000007E000000000000000000