impresora,Generic / Text Only
/impresora,Star SP512 Line Mode Printer
/impresora,Generic / Text Only
//impresora,Genérico / sólo texto on LPT1:
/********************************
*variable4=0
//****lineasmaximo,100
$
*si(variable4=0)
maximo,100
tipo,Arial
tamaño,9
estilo,normal
@29,0,COMEX  
@24,1,Los Remedios
@21,2,BEBE470502VD1
@2,3,ACEPTAMOS TARJETAS  DE CREDITO
tamaño,8
@4,4,Av. De los Arcos No. 220 Local  B5
@3,5,Col. La Ribera Naucalpan, Edo. Mex.
@6,6,Tels. 5300 7032  Y  5300 9758
@6,7,EDUARDO JOSE BETANCOURT BLAKE
estilo,normal
//saltar(1)
@1,8,HORA:
@15,8,HORAX_F
@39,8,FECHA:
@55,8,FEDOC_F
*@1,7,NOTA DE VENTA
@1,9,CAJA +CLVEN_F
*@1,9,NOMBRE +CLCLI_F
@1,10,DESCRIPCION                                  IMPORTE
@1,11,------------------------------------------------------------------
saltar(11)
variable1=0
variable2=0
tamaño,8
variable4=1
variable3=10
maximo,22
terminacondicion
$
&
variable2=variable2+1

@1,1,variable2
vsql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE,cadena1)
@5,1,cadena1
si(cadena1<0)
vsql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE,cadena2)
@5,1,cadena2
terminacondicion
@25,1,producto
saltar(2)
formato(##0.00)
moneda(1,1,cantidad)
formato(#,##0.00)
@25,1,X
moneda(32,1,precio)
moneda(54,1,importe)
saltar(1)
variable1=variable1+[000]
&
maximo,100
//saltar(1)
/@1,1,SUBTOTAL
/moneda(25,1,SUBTO_F,$)
/@1,2,I.V.A.
/moneda(25,2,IMIM2_F,$)
@5,1,TOTAL
moneda(45,1,IMTOD_F,$,Arial Bold)
tamaño,8
traduce(1,2,IMTOD_F)
tamaño,8
saltar(2)
@1,1,---------------------------------------------------------------------
*saltar(2)
*@15,1,SELLO
*saltar(7)
@10,2,GRACIAS POR SU COMPRA......
@4,3,LOS MEJORES PRODUCTOS

variable4=cldoc_f-18500
@66,3,variable4
@10,4,A LOS MEJORES PRECIOS....                           
saltar(4)
@1,1,UNIDADES
moneda(40,1,variable1)
@1,2,PRODUCTOS
moneda(40,2,variable2)
/**********************************
//saltar(1)
@1,1,
@1,2,
@1,3, --------------------------------------------------------------------
@1,4,  
@1,5,  
@1,6,.  
//@1,7,  
//@1,8,  
//@1,9,  
//@1,10,.   

///escape,7