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

#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