'CIRCUIT
'SPRITES
'..
DIM GLOBAL CHARGE(32,32)
X=0
Y=0
TAPX=0
TAPY=0
T=0
VIEWX=0
VIEWY=0
N=0
DIM GLOBAL MENU(3)
TOUCHSCREEN
BG 1
PAL 0
BG FILL 0,0 TO 31,31 CHAR 0
BG FILL 1,1 TO 30,30 CHAR 9
'.....................
MAIN:
'CONTROL
IF TAP THEN
TAPX=TOUCH.X
TAPY=TOUCH.Y
T=TIMER
END IF
IF TOUCH THEN
'DRAG SCREEN
SCROLL 1,VIEWX+(TAPX-TOUCH.X),VIEWY+(TAPY-TOUCH.Y)
SCROLL 0,VIEWX+(TAPX-TOUCH.X),VIEWY+(TAPY-TOUCH.Y)
ELSE IF T<>0 THEN
IF TIMER-T<10 THEN
'TAP SELECTION
X=INT((TOUCH.X+SCROLL.X(1))/8)
Y=INT((TOUCH.Y+SCROLL.Y(1))/8)
IF MENU(2)=0 THEN
'SHOW MENU
MENU(2)=1
MENU(0)=X
MENU(1)=Y
'SCROLL 0,MENU(0)-8,MENU(1)-8
BG 0
PAL 1
CELL MENU(0),MENU(1),8
PAL 3
TEXT MENU(0)+1,MENU(1),"DELETE"
TEXT MENU(0)+1,MENU(1)+1,"WIRE"
TEXT MENU(0)+1,MENU(1)+2,"INVERT"
TEXT MENU(0)+1,MENU(1)+3,"POWER"
TEXT MENU(0)+1,MENU(1)+4,"LIGHT"
TEXT MENU(0)+1,MENU(1)+5,"DIODE >"
TEXT MENU(0)+1,MENU(1)+6,"DIODE <"
TEXT MENU(0)+1,MENU(1)+7,"DIODE ^"
TEXT MENU(0)+1,MENU(1)+8,"DIODE V"
TEXT MENU(0)+1,MENU(1)+9,"CAPACITOR"
TEXT MENU(0)+1,MENU(1)+10,"RESISTOR"
TEXT MENU(0)+1,MENU(1)+11,"AMPLIFIER"
ELSE
'MAKE SELECTION
MENU(2)=0
'N=INT((TOUCH.Y-SCROLL.Y(0))/8)
N=Y-MENU(1)
IF X>MENU(0) AND X