impresora,Star SP512 Line Mode Printer
impresora,Generic / Text Only
impresora,serial
//impresora,Generic / Text Only
//impresora,\\CARLOS\Generic / Text Only
//impresora,Generic / Text Only
variable4=0
****lineasmaximo,100
$
si(variable4=0)
tipo,Arial
tamaņo,8
estilo,negrita
@10,0,LA MICHOACANA
@0,1,AGUAS Y PALETAS DE FRUTAS NATURALES
@0,3,Carr. a Progresp Induastrial, Central de Abastos, Nave 23
@0,4,Col. Lomas Lindas,  Atizapan de Zaragoza, Edo. Mex.
@13,5,Tel. 58 16 22 44
estilo,normal
saltar(1)
@1,5,HORA +HORAX_F
@25,5,FECHA +FEDOC_F
/@1,6,VENTA +cldoc_f
@1,6,CAJA +direc_f
*@1,9,NOMBRE +DIREC_F
@1,8,DESCRIPCION              IMPORTE
@1,9,-----------------------------------
saltar(10)
variable1=0
variable2=0
tamaņo,9
variable4=1
variable3=10
terminacondicion
$
&
@0,1,producto
saltar(1)
formato(##0.00)
moneda(0,1,cantidad)
formato(#,##0.00)
@12,1,X
moneda(20,1,precio)
moneda(30,1,importe)
saltar(1)
variable1=variable1+[000]
variable2=variable2+1
&
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,,,3)

moneda(25,4,variable6,$,Arial Bold)
saltar(1)
tamaņo,7
traduce(1,4,IMTOD_F)
tamaņo,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,5,      
@1,6,  
@1,7,        
@1,8,      
@1,9,.

//escape para abrir cajon de dinero  
//escape,24,101,125,255
//escape,27,112,0,40,40

//escape para cortar el papel
//escape,27,77
//escape,27,105