' prog to test touch on virtual lcdpanel - TX END

Option default integer

SetPin gp27,intl,touchint

Do :Pause 50:Loop Until Inkey$<>""

Sub touchint
 Pause 10
 A$=""
 tch.x=Touch(x)
 tch.y=Touch(y)
 If (tch.x=-1) Or (tch.y=-1) Then Exit Sub
 A$="AA" + Bin2str$(uint16,tch.x) + Bin2str$(uint16,tch.y) + "55"
 Print A$
End Sub

' prog to test usb-cdc touch - HDMI END

Option default integer
MODE 3
CLS
tcho.x=-50:tcho.y=-50
Open "COM3:115200,,touchint,10" As #1
Print #1,"RUN"
Pause 50
A$=Input$(10,#1)
A$=""

Do :Pause 500:Loop Until Inkey$<>""

Print #1,"E"
Pause 10
Close #1
End

Sub touchint
 a$=Input$(10,#1)
 'Print Left$(a$,2),Str2bin(uint16,Mid$(A$,3,2)),
 'Print Str2bin(uint16,Mid$(A$,5,2)),Mid$(A$,7,2),Len(A$)
 tch.x=Str2bin(uint16,Mid$(A$,3,2))
 tch.y=Str2bin(uint16,Mid$(A$,5,2))
 tch.x=tch.x*1.25 ' for mode 3 800 x resolution
 Text 0,0,Str$(tch.x,5)+Str$(tch.y,5),,1,2,&hff00
 Pixel tch.x,tch.y
 Circle tch.x,tch.y,30,3,,&hff0000,-1
 Circle tcho.x,tcho.y,30,3,,0,-1
 Circle tcho.x,tcho.y,10,3,,&hff,-1
 tcho.x=tch.x:tcho.y=tch.y
End Sub

' prog to test usb-cdc touch - HDMI END

Option default integer
MODE 3
CLS
tcho.x=-50:tcho.y=-50
Open "COM3:115200,,touchint,1" As #1
Pause 50
Print #1,"GUI CALIBRATE"
Pause 50
A$=Input$(10,#1)
A$=""

Do :Pause 500:Loop Until Inkey$<>""

Print #1,"E"
Pause 10
Close #1
End

Sub touchint
 a$=a$+Input$(10,#1)
 Text 0,0,A$,,1,2,&hff00
 Circle 30,30,10,3
 Circle 770,30,10,3
 Circle 30,450,10,3
 Circle 770,450,10,3
End Sub