Mister thank a lot I will try now your code,
I try this too:
Delay1 var Word
Delay2 var Byte

Delay1 = Datain[3] * Datain[4]

if Delay1 < 256 then
Delay2 = Delay1
Delay1 = 0
else
Delay2 = 0
endif

Loop = (Datain[2] * 10)
''''''''''''''''''''''''''''''''''''''''''''Progra m 1''''''''''''''''''''''''''''''''''''''''''''''''' ''
IF Datain[1] = 0 then
for N = 0 to Widerholung

High PortC.0
High PortC.1
low PortC.2
low PortC.3

Pause Delay1
Pause Delay2

low PortC.0
High PortC.1
high PortC.2
low PortC.3

Pause Delay1
Pause Delay2

low PortC.0
low PortC.1
high PortC.2
high PortC.3

Pause Delay1
Pause Delay2

high PortC.0
low PortC.1
low PortC.2
high PortC.3

Pause Delay1
Pause Delay2

Next N
endif

This Work ! :-)