Auf_input_stellen Alias &H00                                ' für Daten-Bus
Auf_output_stellen Alias &HFF
Bussy Alias 7



Y_minus Alias 0                                             ' für Touch
Y_plus Alias 1
X_plus Alias 2
X_minus Alias 3

Out_y_minus Alias 0
Out_y_plus Alias 1
Out_x_plus Alias 2
Out_x_minus Alias 3

In_y_minus Alias 0
In_y_plus Alias 1
In_x_plus Alias 2
In_x_minus Alias 3

Ungedrueckt Alias &HF0
Kalibriert Alias 173

Dim X_vorher As Byte
Dim Y_vorher As Byte


Dim Dummy As Byte


Accu_l Alias R0
Accu_h Alias R1
Bccu_l Alias R2
Bccu_h Alias R3
' R4, R5, R6 und R8 verwendet von Bascom
Zeile Alias R9
Spalte Alias R10
Zeichen Alias R11


Set_touch_aktiviert Alias &B00000010
Clear_touch_aktiviert Alias &B00000010
Skip_touch_aktiviert Alias 1
Set_touch_meldet Alias &B00000001

Flag_touch_aktiviert Alias R16
Flag_touch_meldet Alias R17


Temp_1 Alias R18
Temp_2 Alias R19
Temp_3 Alias R20

Daten Alias R22
Befehl Alias R23
Cursor_l Alias R24
Cursor_h Alias R25



Dim X_oben_links As Byte
Dim X_oben_rechts As Byte
Dim X_unten_links As Byte
Dim X_unten_rechts As Byte

Dim Y_oben_links As Byte
Dim Y_oben_rechts As Byte
Dim Y_unten_links As Byte
Dim Y_unten_rechts As Byte

Dim X_1_pos As Byte
Dim Y_1_pos As Byte
Dim X_pro_spaltenbreite As Byte
Dim Y_pro_zeilenhoehe As Byte