'--------------------------------------------------------
'Simple "Priority1" model RFID232-R/W command program - via COM1
'--------------------------------------------------------
SendCommand: Open "com1:" As #1 'open COM1 to the RFID R/W unit
Input "RFID command =", cmd$ 'request RFID command from keyboard
cmd$ = UCase$(cmd$) 'make input uppercase
exitchk$ = Left$(cmd$,1) 'look for Exit, Quit, E or Q to stop pgm
If exitchk$ = "E" Then Close #1:End
If exitchk$ = "Q" Then Close #1:End
Print #1,cmd$+Chr$(13) 'send command and <CR> to RFID unit
Pause 200 'give it time to respond - a guess
n=Loc(1) 'check if characters received in input buffer from RFID
If n=0 Then Print "No reply in input buffer"
reply$ = "" 'initialize reply variable for input from buffer
reply$ = Input$(36,#1) 'read the buffer. 36 characters should be plenty
Print "RFID reply =" reply$ 'display what was read
If Left$(reply$,1)="?" Then ErrorHandler(reply$) 'RFID errors start with ?
Close #1 'empty input buffer and close
GoTo SendCommand 'loop for another command
End
'---------------------------
Sub ErrorHandler (ercode$) 'RFID error codes are: ?0,?1,?2,?3,?4
erno = Val(Mid$(ercode$,2,1)) 'get the error no. and convert to numeric
If erno = 0 Then 'display appropriate error description
? "Command not understood"
ElseIf erno = 1 Then
? "Tag not present"
ElseIf erno = 2 Then
? "Tag failure to Read/Write"
ElseIf erno = 3 Then
? "Access to block 0 not allowed"
ElseIf erno = 4 Then
? "Page address invalid for this tag"
EndIf
End Sub