Sub PPD_Touch (Action As Int, X As Float, Y As Float)
Log($"Action =${Action}, X =${X}, Y =${Y}"$)
' Activity.Title=$"Action =${Action}, X =${X}, Y =${Y}"$
Select Action
Case Activity.ACTION_DOWN
PPD.DotColor=Colors.Cyan
Case Activity.ACTION_UP
PPD.DotColor=Colors.Red
End Select
End Sub