Dim TxPin As Byte Dim Baudmode As Word Dim Data As String*1 Sub main() #DEFINE Baudrate 38400 '宣告Baudrate速率為38400 TxPin = 14 '設定TxPin為14 Baudmode = (4096 - (2000000\Baudrate)) '計算Baudmode值 Do Keyin Data '輸入Data值 Serout TxPin,Baudmode,[Data] '第14Pin輸出Data值 Debug CSRXY(1,1),Data,CLREOL 'Data值顯示於終端視窗 Loop End Sub