Intermec Transaction Manager 9560, User Manual

Page: 241 / 309

Interactive Reader Language
9-15
9
Program Listing #3 Controlling the Magnetic Card Reader
:Program - MAGDRVR.IRL Intermec Disk No. 061795
: Copyright Intermec, 1994 All rights reserved.
:
:***********************************************************************
:Purpose - This program enables communication between the 9560 and the
: magnetic strip card reader. You must add code to send the
: data to a host computer for processing.
:***********************************************************************
.MAIN
:
.READ
P"\e[2J"
D$0=""
S.MAGINIT
D$0=""
P"READY FOR SCAN"
VDEB;300 : Looks for input
G#0=0.READ : Timeout occurs loopback to read
S#0=4.MAGREAD : Input received from mag stripe card reader
G#0<3.ERROR : Error code received
G$0="E".QUIT
P$0
W2
G.READ
.ERROR : Input error from mag stripe
P"INPUT ERROR"
B1010
W2
G.READ
:
:***********************************************************************
: Mag reader utility routines
:***********************************************************************
:
.MAGINIT : Clears input buffer
YTN;1
YTP;1
.MAGINT1
D$0=""
VTP;1
G#0>0.MAGINT1
D$0="\0x1b" : <ESC>
XTP,$0 : Tell mag reader to stop waiting for a
: card swipe
VTP;300
D$0="P"
XTP,$0 : Tell mag reader to clear storage and
: start read cycle
D$0=""