SUPER MICRO Computer MIIC-203 manual

If Msg$ = Chr$(13) Then Msg$ = ""	' Remove CR
If Msg$ = Chr$(10) Then Msg$ = ""	' Remove LF
If Msg$ = "*" Then	' if iPort/AFM Ready
Msg$ = "****"	‘ Substitute Token
CharIn$ = Chr$(13)	‘ Terminate Line
End If
LineBuf$ = LineBuf$ + Msg$	'Add new text to line buffer
If CharIn$ = Chr$(13) Then	' if Carriage Return detected
iPortResp$ = Left$(LineBuf$, 4)	'Isolate Response Code

' Test for iPort/AFM Synchronous Interface Events

If (StrComp(iPortResp$, "/OCC") = 0) Then

'Open Connection Complete Processing TextBox.Text = "/OCC Open Connection Complete"

ElseIf (StrComp(iPortResp$, "/MTC") = 0) Then

'Master Transmit Complete Processing TextBox.Text = "/MTC Master Tx Complete"

ElseIf (StrComp(iPortResp$, "/MRC") = 0) Then

'Master Rx Complete Processing TextBox.Text = LineBuf$ 'Update Display

ElseIf (StrComp(iPortResp$, "/STC") = 0) Then

'Slave Tx Complete Processing TextBox.Text = "/STC Slave Tx Complete"

ElseIf (StrComp(iPortResp$, "/CCC") = 0) Then

'Close Connection Complete Processing TextBox.Text = "/CCC Close Connection Complete "

ElseIf (StrComp(iPortResp$, "/BC0") = 0) Then

' iPort/AFM Baud Change 0 {19.2K}

TextBox.Text = "iPort/AFM Baud Change 0 {19.2K} "

ElseIf (StrComp(iPortResp$, "/BC1") = 0) Then

' iPort/AFM Baud Change 1 {57.6K}

TextBox.Text = "iPort/AFM Baud Change 1 {57.6K} "

51