Do
   Porta.2 = 1                                              'DF
For Zae = 1 To 119

   Porta.0 = 1                                              'Data für ABC
   Porta.5 = 1                                              'Data für DEF

   Porta.4 = 0                                              'CP
   Waitms 10
   Porta.4 = 1
   Waitms 10
   Porta.4 = 0
   Waitms 10

Next
   Porta.3 = 0                                              'Load
Waitms 25
   Porta.3 = 1
   waitms 25
   Porta.3 = 0
Waitms 25

Loop