====== SAMPLE 2 보턴입력 ======

다음은 화면상에 RESET 보턴을 그리고, 이 보턴이 터치되었을 때 증가되는 값을 0 으로 리셋하는 샘플 프로그램
입니다. 

{{ :ct1820:sample_2_보턴입력:dsc_0124.jpg?nolink |}}

<code basic>
 #include “CT18XX”
 Dim I As Integer
 Ct18contrast 150               ' LCD CONTRAST SETTING
 Dim TX1 As Integer, TY1 As Integer
 Contrast 550
 On Pad Gosub GETTOUCH
 Menuset 0,2,120,155,195,200
 Menutitle 0,20,14,"RESET"

 Do
 Locate 15,6
 Print DEC5 I
 Incr I
 Delay 200
 Loop

GETTOUCH:
 TX1 = Sys(10)
 TY1 = Sys(11)
 If Menucheck(0,TX1,TY1) = 1 Then
 CT18beep 20 ‘키터치음 발생
 I = 0
 End If
 Return
</code>

SET PAD 명령에 의해 터치입력이 활성화되고, ON PAD 명령에 의해 터치입력 시 점프할 라벨을 선언합니다.