HP HP-28S - Page 240

« ~ keys ml m2 m3 m4
·K DO CLLCD
ml I DISP
r'l 2 2 D I :;;;F'
m3 3 DI::;P
m4 4 DISP
DO UNTIL KEY END
UNTIL keys SWAP POS
IF DUP
THH~ I
ELSE' CLLCD "8ad ke'=," I DI:3P
440 ,I 8EEP I WAIT
Et·W
Et~D
GET E',}AL CU1F
If you store this program in a variable named KEY?, you could per-
form the example above by executing
-:: "Apple" "8anan."," "Chet-t-'='''
IIAI! liB I! IIC
II
IIPress
ll
" [AJ f,:,t- Apple"
" [8J fot- 8.",nana"
" [CJ for Chert-'=,"
f:::E"""~'
27: Interactive Programs 239
l