Jak obsłużyć panel dotykowy z wyjściami typu X+ X- Y+ Y-

$regfile = "m16def.dat"
$crystal = 16000000
Config Graphlcd = 128 * 128 , Dataport = Portb , Controlport = Portd , Ce = 4 , Cd = 5 , Wr = 2 , Rd = 3 , Reset = 6 , Fs = 7 , Mode = 8
Dim X As Word
Dim Y As Word

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Cls
Cursor Off

Do
X = Getadc(2)
Y = Getadc(3)
Locate 10 , 1 : Lcd X
Locate 12 , 1 : Lcd Y
Waitms 250
Loop

$regfile = "m32def.dat"
$crystal = 7372800
$hwstack = 64
$swstack = 32
$framesize = 64
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Portd , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
Dim X As Word
Dim Y As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Enable Interrupts
Start Adc
Cls
Cursor Off
Do
Config Pina.0 = Output
Config Pina.2 = Output
Set Porta.0
Reset Porta.2
Ddra.1 = 0
Ddra.3 = 0
Waitms 1
Y = Getadc(3)
Y = Y - 332
If Y > 385 Then Y = 0
 Locate 7 , 2 : Lcd "Y: " ; Y ; "    "
Config Pina.1 = Output
Config Pina.3 = Output
Reset Porta.1
Set Porta.3
Ddra.0 = 0
Ddra.2 = 0
Waitms 1
X = Getadc(2)
X = X - 170
If X > 691 Then X = 0
 Locate 6 , 2 : Lcd "X: " ; X ; "    "
Loop
End

podlaczenie
-x - adc0
x - adc2
-y - adc1
y - adc3