본 프로그램은 출력포트의 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