Euro-character on epson

Hi,
I'm trying to make a program that prints the euro-symbol on my printer
(Epson Stylus 440)
There is no such symbol in the standard characterset, so I have to create
it.
I have some succes with it.
In the program below I give at the end the instruction to print the
euro-symbol 10 times.
But there is the problem: my printer prints it only one time, and then a few
marks on my paper.
So there is something wrong.

May be there is someone who can help me?
Wim

The program is:
program euro;
uses printer;
const
EuroArr:Array[1..108] of byte = (
0,0,0, 0,0,0, 0,68,0, 0,204,0, 0,204,0, 0,204,0, 0,252,0, 1,254,0, 3,255,0,
15,205,128, 28,204,192, 24,204,96, 48,204,112, 48,204,48, 96,204,48,
96,204,24, 96,204,24,
64,204,24, 192,204,8, 192,204,12, 192,204,12, 192,204,12, 192,204,12,
192,204,12, 192,204,12,
192,204,8, 64,204,24, 96,200,24, 96,192,24, 96,192,56, 48,128,48, 56,0,112,
24,0,0,
16,0,0, 0,0,0, 0,0,0);

esc= #27;

var i: integer;

begin
write(lst,esc,'%0'); {ROM}
write(lst,esc,'x1'); {LQ mode}
write(lst,esc,':'#0#0#0); {copy ROM to RAM}

write(lst,ESC, '&'#0#85#85#0#36#0); {teken toevoegen}
for i:=1 to 108 do write(lst,chr(EuroArr[i]));
write(lst,esc,'%0',esc,'t2'); {copy to upper part of characterset}
for i:=1 to 10 do writeln(lst,#213);
end.