impresora,Star SP212 (TearBar) on LPT1:
/impresora,0
/********************************
variable4=0
$
si(variable4=0)
tipo,Arial
tamaņo,8
estilo,negrita
@3,1,CREMERIA SALCHICHONERIA MEXICO
@2,2,AV. TOLTECAS No. 326, COL. LA ROMANA
@6,3,VALLE DE BRAVO Y TEXCOCO
@3,4,TLANEPANTLA EDO. DE MEX. C.P. 54030 
@4,5,TELS. 55-65-29-27      53-90-02-17
@8,6,R.F.C. GALL-751216-2B9
estilo,normal
@1,7,HORA +HORAX_F
@12,7,FECHA +FEDOC_F
@1,7,NOTA DE VENTA +CLDOC_F
*@12,7,CAJA +CLVEN_F
usuario,12,7
*@1,9,NOMBRE +CLCLI_F
@1,10,DESCRIPCION    PRECIOXCAJA   TOTAL
@1,11,----------------------------------
saltar(12)
variable1=0
variable2=0
tamaņo,9
variable4=1
terminacondicion
$
variable6=0+10
&
cadena1=producto+  C/ 
cadena1=cadena1+factor
formato(##0)
variable3=tara+0
numero(variable3,,cadena3)
si(variable3>0)
cadena1=cadena1+cadena3
terminacondicion
@1,1,cadena1
saltar(1)
formato(##0.00)
formato(#,##0.00)
modulo(cantidad,factor,variable3)
entero(cantidad,factor,variable4)
numero(variable3,,cadena3)
numero(variable4,,cadena4)
cadena4=CAJAS +cadena4
cadena3=   UNIDADES   +cadena3
cadena4=cadena4+cadena3
@1,1,cadena4
saltar(1)
moneda(27,1,importe)
variable1=variable1+[000]
variable2=variable2+1
saltar(1)
&
saltar(2)
@1,1,SUBTOTAL
moneda(20,1,SUBTO_F,$)
@1,2,I.V.A.
moneda(20,2,IMIM2_F,$)
@1,3,TOTAL
moneda(20,3,IMTOD_F,$)
tamaņo,7
traduce(1,4,IMTOD_F,,Arial)
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(12,1,variable1)
@1,2,PRODUCTOS
moneda(12,2,variable2)
/**********************************
saltar(1)
@1,1,
@1,2,
@1,3,--------------------------------------
@1,4,          
@1,5,       
@1,6,  
@1,7,  
@1,8,  
@1,9,    
@1,10, .  
dato,cadena1,CON COPIA?
si(cadena1!S)
abortar
terminacondicion
impresora,0
/********************************
variable4=0
$
si(variable4=0)
tipo,Arial
tamaņo,8
estilo,negrita
@3,1,CREMERIA SALCHICHONERIA MEXICO
@2,2,AV. TOLTECAS No. 326, COL. LA ROMANA
@6,3,VALLE DE BRAVO Y TEXCOCO
@3,4,TLANEPANTLA EDO. DE MEX. C.P. 54030 
@4,5,TELS. 55-65-29-27      53-90-02-17
@8,6,R.F.C. GALL-751216-2B9
estilo,normal
@1,7,HORA +HORAX_F
@12,7,FECHA +FEDOC_F
@1,7,NOTA DE VENTA +CLDOC_F
@12,7,CAJA +CLVEN_F
*@1,9,NOMBRE +CLCLI_F
@1,10,DESCRIPCION    PRECIOXCAJA   TOTAL
@1,11,----------------------------------
saltar(12)
variable1=0
variable2=0
tamaņo,9
variable4=1
terminacondicion
$
variable6=0+10
&
cadena1=producto+  C/ 
cadena1=cadena1+factor
formato(##0)
variable3=tara+0
numero(variable3,,cadena3)
si(variable3>0)
cadena1=cadena1+cadena3
terminacondicion
@1,1,cadena1
saltar(1)
formato(##0.00)
formato(#,##0.00)
modulo(cantidad,factor,variable3)
entero(cantidad,factor,variable4)
numero(variable3,,cadena3)
numero(variable4,,cadena4)
cadena4=CAJAS +cadena4
cadena3=   UNIDADES   +cadena3
cadena4=cadena4+cadena3
@1,1,cadena4
saltar(1)
moneda(27,1,importe)
variable1=variable1+[000]
variable2=variable2+1
saltar(1)
&
saltar(2)
@1,1,SUBTOTAL
moneda(20,1,SUBTO_F,$)
@1,2,I.V.A.
moneda(20,2,IMIM2_F,$)
@1,3,TOTAL
moneda(20,3,IMTOD_F,$)
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(12,1,variable1)
@1,2,PRODUCTOS
moneda(12,2,variable2)
/**********************************
saltar(1)
@1,1,
@1,2,
@1,3,--------------------------------------
@1,4,          
@1,5,       
@1,6,  
@1,7,  
@1,8,  
@1,9,    
@1,10, .