TOUCHSCREEN REM WAS8BIT BG 0 BG COPY 0,0,20,16 TO 0,0 BG 1 FOR Y=0 TO 31 STEP 2 FOR X=0 TO 31 STEP 2 ATTR(RND(6)+1) C=RND(25)+225 REM 225-250 NUM=RND(99) NUM$="00" CELL X,Y,C TEXT X,Y+1,NUM$ NEXT X NEXT Y GLOBAL XSCROLL GLOBAL YSCROLL GLOBAL IXSCR GLOBAL IYSCR XSCROLL=0 YSCROLL=0 IXSCR=0 IYSCR=0 DO IF TOUCH THEN BG 0 C=CELL.C(2*(TOUCH.X\16),2*(TOUCH.Y\16)) IF C=10 THEN CALL DOSCROLL(1,0) ELSE IF C=8 THEN CALL DOSCROLL(-1,0) ELSE IF C=4 THEN CALL DOSCROLL(0,1) ELSE IF C=6 THEN CALL DOSCROLL(0,-1) ELSE IF TAP THEN PLAY 0,90,1 BG 1 TX=TOUCH.X\16 TY=TOUCH.Y\16 CX=TX*2+XSCROLL\8 CY=TY*2+YSCROLL\8 NUMBER 0,0,CX,3 NUMBER 4,0,CY,3 REM 208 NUM1=CELL.C(CX,CY+1)-208 NUM2=CELL.C(CX+1,CY+1)-208 NUM=NUM1*10+NUM2 INC NUM IF NUM>99 THEN NUM=99 A=CELL.A(CX,CY) ATTR(A) NUMBER CX,CY+1,NUM,2 END IF END IF WAIT VBL END IF IF IXSCR<>0 THEN ADD XSCROLL,SGN(IXSCR),0 TO 32*8 ADD IXSCR,-SGN(IXSCR),-20 TO 20 END IF IF IYSCR<>0 THEN ADD YSCROLL,SGN(IYSCR),0 TO 32*8 ADD IYSCR,-SGN(IYSCR),-20 TO 20 END IF SCROLL 1,XSCROLL,YSCROLL WAIT VBL LOOP SUB DOSCROLL(SX,SY) IF IXSCR=0 AND SX<>0 THEN IXSCR=SX*16 IF IYSCR=0 AND SY<>0 THEN IYSCR=SY*16 END SUB #1:MAIN PALETTES 153F2A1500303010000C0C04000F0E05 003C3C14003333100038381000232301 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 FF80808080808080007F7F7F7F7F7F7F FF0101010101010100FFFFFFFFFFFFFF FF8080818284888F007F7F7E7D7B777F FF0181412111097900FF7FBFDFEFF7FF FF80838282828282007F7C7D7D7D7D7D FF0181818181818100FF7FFFFFFFFFFF FF80808182848890007F7F7E7D7B776F FF010181818181FD00FFFF7FFFFFFF83 FF8080808080809F007F7F7F7F7F7F60 FF010101C1A1918900FFFFFF7F7F7F7F FF80808384889090007F7F7C7B776F6F FF0101C12111090900FFFF3FDFEFFFFF FF80808080808080007F7F7F7F7F7F7F FF0101010101010100FFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FF7F7F7F7F7F7F7F7F 01010101010101FFFFFFFFFFFFFFFFFF 81818181818180FF7E7E7E7E7E7E7F7F 4141414141C101FFFFFFFFFFFFFFFFFF 9E908884828180FF617F7F7F7F7F7F7F F1112141810101FF8FFFFFFFFFFFFFFF 90888482818080FF7F7F7F7F7F7F7F7F 05FD8181810101FFFFFFFFFFFFFFFFFF 909F8080808080FF6F7F7F7F7F7F7F7F 058991A1C10101FFFFFFFFFFFFFFFFFF 90908884838080FF6F6F7F7F7F7F7F7F 09091121C10101FFFFFFFFFFFFFFFFFF 80808080808080FF7F7F7F7F7F7F7F7F 01010101010101FFFFFFFFFFFFFFFFFF #3:MAIN BG 00001410020003000200030002000300 02000300020003000200030002000300 02000300020003000200030012001300 12001300120013001200130012001300 12001300120013001200130012001300 12001300020003000000000000000000 00000000000000000000000000000000 00000000000000000200030012001300 00000000000000000000000000000000 00000000000000000000000000000000 12001300020003000000000000000000 00000000000000000000000000000000 00000000000000000200030012001300 00000000000000000000000000000000 00000000000000000000000000000000 12001300020003000000000000000000 00000000000000000000000000000000 00000000000000000200030012001300 00000000000000000000000000000000 00000000000000000000000000000000 12001300040005000000000000000000 00000000000000000000000000000000 00000000000000000400050014001500 00000000000000000000000000000000 00000000000000000000000000000000 140015000C000D000000000000000000 00000000000000000000000000000000 00000000000000000C000D001C001D00 00000000000000000000000000000000 00000000000000000000000000000000 1C001D00060007000000000000000000 00000000000000000000000000000000 00000000000000000600070016001700 00000000000000000000000000000000 00000000000000000000000000000000 1600170002000300080009000C000D00 0A000B00020003000200030008000900 0C000D000A000B000200030012001300 180019001C001D001A001B0012001300 12001300180019001C001D001A001B00 12001300