====== SAMPLE 3 터치지점표시 ======

터치한 지점에 원을 표시하는 프로그램입니다. 

{{ :ct1820:sample_3_터치지점_표시:dsc_0125.jpg?nolink |}}

<code xbasic>
 #include “CT18XX”
 Dim I As Integer
 Dim TX1 As Integer, TY1 As Integer
 Ct18contrast 150
 On Pad Gosub GETTOUCH
 Do
 Loop

GETTOUCH:
 TX1 = Sys(10)
 TY1 = Sys(11)
 Circlefill TX1,TY1,2
 CT18beep 20       '키터치음 발생
 Return 
</code>