如何让nentsel函数直接接受键盘输入的整数

yx5277

就是让nentsel函数能选取屏幕，也能接受键盘上的输入，怎样编？
可以使用initget达到输入特定字符，但范围太窄，只能是固定数量的，比方说是1-1000以内的整数怎么编？
请教大侠帮忙
(initget "  ")
(setq s1 (nentsel "\n选择数字(1-1000): "))
(if (= s1 "1") (progn
;...
))