HP50,49,48 Matrix Alpha Lock

[buffalo]

Excellent DavidM
a short elegant solution. i now have new respect for the input command (which i've never used much)

(for anyone interested)
enter Davids program to the stack

\<<
{ }
DO
"Enter a word" { "" 1 \Ga } INPUT
IF
DUP "" \=/
THEN
+
0
ELSE
DROP
1
END
UNTIL
END
\>>

@(note Ga is the alpha character or 140 CHR)
@(note \=/ is not equals character <- +/- or 139 CHR)

i STOred this program under the name 'FOO' (@copyright JKH)
then from the Matrix Writer i selected the VAR(menu)
then selected FOO EVAL(make sure u r in right DIRECTORY-the one with FOO in it)
this should launch Davids program enter a list of words (ENTER after each word)
after typing the last word press ENTER then ENTER again this will exit the Matrix writer
& put the list onto the stack.

buffalo