본 프로그램은 출력포트의 On / Off 상태를 바꿀수 있는 프로그램입니다.

#include "CT18XX"
Dim TX1 As Integer
Dim TY1 As Integer
Dim Ixx As Integer
Basic_FORM1
Byteout 4,0
Byteout 5,0
Byteout 6,0
On Pad Gosub TouchOccur
Do
Loop
TouchOccur:
 TX1 = Sys(10)
 TY1 = Sys(11)
 Ct18beep 10
 
 If Menucheck(0,TX1,TY1) = 1 Then
 Menureverse2 0,1
 Reverse 32
 Elseif Menucheck(1,TX1,TY1) = 1 Then
 Menureverse2 1,1
 Reverse 33
 Elseif Menucheck(2,TX1,TY1) = 1 Then
 Menureverse2 2,1
 Reverse 34
 Elseif Menucheck(3,TX1,TY1) = 1 Then
 Menureverse2 3,1
 Reverse 35
 Elseif Menucheck(4,TX1,TY1) = 1 Then
 Menureverse2 4,1
 Reverse 40
 Elseif Menucheck(5,TX1,TY1) = 1 Then
 Menureverse2 5,1
 Reverse 41
 Elseif Menucheck(6,TX1,TY1) = 1 Then
 Menureverse2 6,1
 Reverse 42
 Elseif Menucheck(7,TX1,TY1) = 1 Then
 Menureverse2 7,1
 Reverse 43
 Elseif Menucheck(8,TX1,TY1) = 1 Then
 Menureverse2 8,1 
 Reverse 44
 Elseif Menucheck(9,TX1,TY1) = 1 Then
 Menureverse2 9,1
 Reverse 45
 Elseif Menucheck(10,TX1,TY1) = 1 Then
 Menureverse2 10,1
 Reverse 46
 Elseif Menucheck(11,TX1,TY1) = 1 Then
 Menureverse2 11,1
 Reverse 47
 Elseif Menucheck(12,TX1,TY1) = 1 Then
 Menureverse2 12,1
 Reverse 48
 Elseif Menucheck(13,TX1,TY1) = 1 Then
 Menureverse2 13,1
 Reverse 49
 Elseif Menucheck(14,TX1,TY1) = 1 Then
 Menureverse2 14,1
 Reverse 50
 Elseif Menucheck(15,TX1,TY1) = 1 Then
 Menureverse2 15,1
 Reverse 51
 Elseif Menucheck(16,TX1,TY1) = 1 Then
 Menureverse2 16,1
 Reverse 52
 Elseif Menucheck(17,TX1,TY1) = 1 Then
 Menureverse2 17,1
 Reverse 53
 Elseif Menucheck(18,TX1,TY1) = 1 Then
 Menureverse2 18,1
 Reverse 54
 Elseif Menucheck(19,TX1,TY1) = 1 Then
 Menureverse2 19,1
 Reverse 55
 Endif
 Return
 
End
 
Sub Basic_FORM1()
 Font 0,0
 Style 0,0,0
 Menuset2 0,1,70,80,105,100
 Menutitle 0,10,4,"32"
 Menuset2 1,1,110,80,145,100
 Menutitle 1,10,4,"33"
 Menuset2 2,1,150,80,185,100
 Menutitle 2,10,4,"34"
 Menuset2 3,1,190,80,225,100
 Menutitle 3,10,4,"35"
 Menuset2 4,1,5,115,40,135 
 Menutitle 4,10,4,"40"
 Menuset2 5,1,45,115,80,135
 Menutitle 5,10,4,"41"
 Menuset2 6,1,85,115,120,135
 Menutitle 6,10,4,"42"
 Menuset2 7,1,125,115,160,135
 Menutitle 7,10,4,"43"
 Menuset2 8,1,165,115,200,135
 Menutitle 8,10,4,"44"
 Menuset2 9,1,205,115,240,135
 Menutitle 9,10,4,"45"
 Menuset2 10,1,245,115,280,135
 Menutitle 10,10,4,"46"
 Menuset2 11,1,285,115,319,135
 Menutitle 11,9,4,"47"
 Menuset2 12,1,5,150,40,170
 Menutitle 12,10,4,"48"
 Menuset2 13,1,45,150,80,170
 Menutitle 13,10,4,"49"
 Menuset2 14,1,85,150,120,170
 Menutitle 14,10,4,"50"
 Menuset2 15,1,125,150,160,170
 Menutitle 15,10,4,"51"
 Menuset2 16,1,165,150,200,170
 Menutitle 16,10,4,"52"
 Menuset2 17,1,205,150,240,170
 Menutitle 17,10,4,"53"
 Menuset2 18,1,245,150,280,170
 Menutitle 18,10,4,"54"
 Menuset2 19,1,285,150,319,170
 Menutitle 19,9,4,"55"
 Font 6,1
 Glocate 50,25
 Gprint "OUT PORT CHECK"
 Font 4,0
End Sub