MODPORT 의 8 점입력을 읽어들여 화면에 표시합니다. 동시에 읽어들인 값을 MD-DOSO8 출력모듈에 출력합니다.

#include "CT18XX"
Dim TX1 As Integer
Dim TY1 As Integer
On Pad Gosub TouchOccur
'
'********************* 메인 do 루프 ************************
'
Locate 1,1
Print "MD-DIDC8 Input Status"
Locate 3,3
Print "7 6 5 4 3 2 1 0"
Locate 3,4
Print "==============="
Do
    Locate 2,5
    Print hex2 MPin(1,7),hex2 MPin(1,6),hex2 MPin(1,5),hex2 MPin(1,4),hex2 MPin(1,3),hex2 MPin(1,2),hex2 _
             MPin(1,1),hex2 MPin(1,0)
    MPsource 2,0,MPin(1,0)
    MPsource 2,1,MPin(1,1)
    MPsource 2,2,MPin(1,2)
    MPsource 2,3,MPin(1,3) 
    MPsource 2,4,MPin(1,4)
    MPsource 2,5,MPin(1,5)
    MPsource 2,6,MPin(1,6)
    MPsource 2,7,MPin(1,7)
    Wait 500
Loop
 
TouchOccur:
    TX1 = Sys(10)
    Y1 = Sys(11)
    Pset TX1,TY1
    Ct18beep 10
    Return 

MODPORT 입력모듈인 MD-DIDC8 에는 <입력 시뮬레이터> 를 사용하였습니다.

간편하게 토글스위치를 ON /OFF 해서 입력상태를 바꿀수 있는 모듈입니다. 터치입력한 지점에는 점을 표시합니다.