Texas Instruments TI-83-Plus - Page 79

Chapter 2: TI-83 Plus Specific Information 69
TI-83 Plus Developer Guide Third Release May 28, 2002
For example, use the GetKey routine to input only keys A-Z until either Í or É
is pressed.
Enter_Alphas:
B_CALL RunIndicOff ; no run indicator
RES indicOnly,(IY+indicFlags) ; make key reads are
; done
B_CALL DisableApd ; no auto power down
keyLoop:
RES onInterrupt,(IY+onFlags) ; clear on pressed
EI
B_CALL GetKey ; wait for a key
;
RES onInterrupt,(IY+onFlags) ; clear on pressed
OR A ; on key ?
JR Z,Return ; yes return
;
CP kEnter
JR Z,Return ; jump if Enter key
;
CP kCapZ+1 ; possible A-Z
JR NC,keyLoop ; no ignore
;
CP kCapA
CALL NC,StoreKey ; store it if A-Z
JR keyLoop ; look for more
;
Return:
B_CALL EnableApd ; auto power down is
; enabled
RET