RANDOMIZE TIMER REM WAS8BIT TOUCHSCREEN BG 1 FOR Y=0 TO 30 STEP 2 FOR X=0 TO 30 STEP 2 ATTR(RND(7)) C=2+(2*RND(2)) CELL X,Y,C CELL X+1,Y,C+1 CELL X,Y+1,C+16 CELL X+1,Y+1,C+17 NEXT X NEXT Y CALL SHOWBUTTON GLOBAL IBUTTON,XBUTTON,YBUTTON,XSCROLL,YSCROLL,XCBUTTON,YCBUTTON,IHOLD IBUTTON=0 XBUTTON=0 YBUTTON=0 XSCROLL=0 YSCROLL=0 XCBUTTON=8*1 YCBUTTON=8*13 IHOLD=0 SPRITE 0,0,0,1 SPRITE 1,XCBUTTON,YCBUTTON,8 SPRITE.A 1,(2,,,1,1) DO IF TOUCH THEN IF IBUTTON=0 THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN CALL INITBUTTON ELSE IF IBUTTON=1 THEN CALL DOBUTTON(TOUCH.X,TOUCH.Y) ELSE IF IBUTTON=2 THEN CALL MOVEBUTTON(TOUCH.X,TOUCH.Y) END IF ELSE IF IBUTTON>0 THEN CALL SHOWBUTTON END IF WAIT VBL LOOP SUB DOBUTTON(X,Y) DX=(XBUTTON-X)\5 DY=(YBUTTON-Y)\5 XSCROLL=XSCROLL+DX YSCROLL=YSCROLL+DY SCROLL 1,XSCROLL,YSCROLL IF DX<>0 OR DY<>0 THEN IHOLD=0 ELSE INC IHOLD IF IHOLD>100 THEN IBUTTON=2 SPRITE 1,,,8 END IF END SUB SUB INITBUTTON SPRITE 1,,,10 XBUTTON=TOUCH.X YBUTTON=TOUCH.Y IBUTTON=1 END SUB SUB SHOWBUTTON IBUTTON=0 SPRITE 0,-1,-1, SPRITE 1,,,8 IHOLD=0 END SUB SUB MOVEBUTTON(X,Y) XCBUTTON=X-8 YCBUTTON=Y-8 SPRITE 1,XCBUTTON,YCBUTTON, END SUB #1:MAIN PALETTES 0030201000382410003C2814000C0804 000F0A05000B06020023121100332211 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000000000000000000000 00384545453B073F387CFEFEFE7C3B03 001CA2A2A2DCE0FC1C3E7F7F7F3EDCC0 000011391103073F387CFEFEFE7C3903 0000889C88C0E0FC1C3E7F7F7F3E9CC0 000007091123273F387CFEFFFE7D3A14 0000E09088C4E4FC1C3E7FFF7FBE5C28 071F3F7F7EFEFEF0000001030101113F E0F8FCFE7E7F7F0F000080C0808088FC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F073B4545453800033B7CFEFEFE7C38 FCE0DCA2A2A21C00C0DC3E7F7F7F3E1C 3F0703113911000003397CFEFEFE7C38 FCE0C0889C880000C09C3E7F7F7F3E1C 3F27231109070000143A7DFEFFFE7C38 FCE4C48890E00000285CBE7FFF7F3E1C F0FEFE7E7F3F1F073F11010103010000 0F7F7F7EFEFCF8E0FC888080C0800000