다음은 화면상에 RESET 보턴을 그리고, 그 보턴이 터치되었을때 0으로 리셋하는 프로그램입니다.
#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,215,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