PC Toledo

Olá, primeiramente queria agradecer todos do forum por me ajudarem com pequenos problemas de que não estou dando jeito, e gostaria de pedir ajuda em mais um ponto...

Estou criando um programa, onde vai haver a impressão de etiquetas com o endereço dos clientes, ja consegui fazer esta parte do programa funcionar desta forma:

if found()
@ 10,32 say subs(cli->razao,1,25)
xC=' '
@ 12,4 say "Confirma Impressao?" get xc pict "!" valid xC $ "SN"
read
if xC="S"
set devi to print
do imp_etides
set devi to screen
else
exit
endif

Ok, mas desta forma que está. só imprime uma etiqueta de cada vez e eu queria inserir um get para 2 digitos, ondi eu fossa colocar o numero de cópias a serem impressas... Obrigado

Sugiro o seguinte:
if found()
@ 10,32 say subs(cli->razao,1,25)
xC=0
@ 12,4 say "Numero de Copias?" get xc pict "99"
read
if xC>0
set devi to print
imp_etides(xC)
set devi to screen
else
exit
endif