Clipper/FiveWin - PROGRAMA

a ahi va un ejemplo Saludos Jose, cualquier duda me avisas
cls
Do While .T.
@ 10,10 Get codi
Read
If Lastkey()#27 //Si le day Esc sale del propgrama
Do Imp_Cliente With cod
Else
Exit
Endif
EndDo
Close Database
Return

PROCEDURE Imp_Cliente
Parameters cod
use clientes index age //tienes que indexarlo por codigo
go top
total=0
lin=1
set device to printer
set printer om
Seek cod
do while.not.eof() .And. cod=CLIENTE->codigo
@ lin,1 say codigo
@ lin,10 say nombre
@ lin,30 say factura
@ lin,50 say saldo
total=total+saldo
lin++
if lin=55
lin=1
eject
Endif
skip
Enddo
If total=0
cls
Else
@ lin,50 say total
Endif
Return