getint

(getint [prompt])

Asks for an integer between -32768 and 32767.

(initget 7)
(setq n (getint "\nNumber of copies: "))