tex print-cursive

n-x=1;
k=1;
while( text-x[1] == [ \cursive{ ] ; text-x[k] != [ } ] ; k++ )
{
print-tex-positiu(text-y[k],\cursive);
n-x++;
}
k=(-1);
while( text-y[(-1)] == [ } ] ; text-y[k] != [ \cursive{ ] ; k-- )
{
print-tex-negatiu(text-y[k],\cursive);
}
avanç-text-positiu(n-x);


k=1;
while( text-x[1] == [ \dual-cursive{ ] ; text-x[k] != [ } ] ; k++ )
{
print-tex-positiu(text-y[k],\dual-cursive);
}
n-y=(-1);
k=(-1);
while( text-y[(-1)] == [ } ] ; text-y[k] != [ \dual-cursive{ ] ; k-- )
{
print-tex-negatiu(text-y[k],\dual-cursive);
n-y--;
}
avanç-text-negatiu(n-y);