iurieздрасте всем

есть код в EPL котории надо зделать в ZPL

можете помочь буду очень благодарен.

N
S2
D15
q400
R
A10,10,0,2,1,1,N,"ORANGE MOLDOVA MMCS CONTRACTS"
B10,40,0,1,2,30,100,B, " Label"
P1

Daca codez in VFP, am facut cindva astfel:

.MSComm1.PortOpen = .T.
.MSComm1.Output ='N'+CHR(10)
.MSComm1.Output ='OD'+CHR(10)
.MSComm1.Output ='D10'+CHR(10) && Наыщенность черного цвета
.MSComm1.Output ='S4'+CHR(10)
.MSComm1.Output ='Q200,27'+CHR(10) && Размер этикетки 100 Pix = 12,5 мм = зазора
.MSComm1.Output ='q320'+CHR(10) &&Ширина этикетки
.MSComm1.Output ='I8,C,001'+CHR(10) &&Кодовая страница 866 кириллица
.MSComm1.Output ='A21,0,0,1,1,2,N,"'+pCompany+'"'+CHR(10)
.MSComm1.Output ='A15,25,0,1,0,1,N,"'+pAddress+'"'+CHR(10)
.MSComm1.Output ='A15,40,0,1,0,1,N,"'+pAddress1+'"'+CHR(10)
.MSComm1.Output ='A15,55,0,1,0,1,N,"'+pImporter+'"'+CHR(10)
.MSComm1.Output ='A15,70,0,1,0,1,N,"'+pAddress2+'"'+CHR(10)
.MSComm1.Output ='A20,90,0,1,0,2,N,"'+SUBSTR(TextItems1,1,21)+'"'+CHR(10)
.MSComm1.Output ='A240,95,0,1,0,2,N,"Pret MDL:"'+CHR(10)
.MSComm1.Output ='A230,125,0,1,1,4,N," '+Alltrim(STR(xPrice,12,2))+' "'+CHR(10)
************ Штрих - код EAN13 ************************
.MSComm1.Output ='B15,120,0,E30,2,2,55,B,'+xEan13+CHR(10)
*--------------------------------------------------------
.MSComm1.Output ='P'+ALLTRIM(STR(xQuqntity))+CHR(10)
.MSComm1.PortOpen = .F.
Este o eticheta cu date si cu ean-13 barcode