impresora,Star SP212 (TearBar) on LPT1:
/impresora,Genrico / slo texto on LPT1:
/impresora,1
/********************************
variable4=0

$
si(variable4=0)
tipo,Arial
tamao,16
estilo,negrita
@15,0,COMEX  
@15,1,Los Remedios
@7,2,ACEPTAMOS TARJETAS  DE CREDITO
tamao,8
@4,3,Av. De los Arcos No. 220 Local  B5
@3,4,Col. La Ribera Naucalpan, Edo. Mex.
@6,5,Tels. 5300 7032  Y  5300 9758
estilo,normal
saltar(1)
@1,5,HORA +HORAX_F
@25,5,COTIZACION DEL : +FEDOC_F
*@1,7,NOTA DE VENTA
@1,6,CAJA +CLVEN_F
*@1,9,NOMBRE +CLCLI_F
@1,8,DESCRIPCION              IMPORTE
@1,9,-----------------------------------
saltar(10)
variable1=0
variable2=0
tamao,9
variable4=1
variable3=10
terminacondicion
$
&
variable2=variable2+1
@1,1,variable2
@15,1,producto
sql(5,1,CODIG_I,INVENTAR,CLPRO_I=,CLAVE)
saltar(1)
formato(##0.00)
moneda(1,1,cantidad)
formato(#,##0.00)
@8,1,X
moneda(16,1,precio)
moneda(24,1,importe)
saltar(1)
variable1=variable1+[000]
&
saltar(2)
@1,1,SUBTOTAL
moneda(25,1,SUBTO_F,$)
@1,2,I.V.A.
moneda(25,2,IMIM2_F,$)
@1,3,TOTAL
moneda(25,3,IMTOD_F,$,Arial Bold)
tamao,7
traduce(1,4,IMTOD_F)
tamao,8
saltar(4)
@1,1,------------------------------------
*saltar(2)
*@15,1,SELLO
*saltar(7)
@10,1,GRACIAS POR SU COMPRA......
@11,2,LOS MEJORES PRODUCTOS
@10,3,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,.
  



