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

 #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