0  BEGIN PGM 21 MM 
1  FN 18: SYSREAD Q99 = ID30 NR52 IDX13 ;Abfrage ob WZ-Name programmiert
2  FN 10: IF +Q99 NE +1 GOTO LBL 1 ;falls kein Name programmiert FN-Funktion direkt aufrufen
3  FN 18: SYSREAD Q13 = ID990 NR10 IDX13 ;Suche WZ-Nummer zu WZ-Namen
4  FN 10: IF +Q13 NE -1 GOTO LBL 1 ;falls kein WZ gefunden wurde Fehler, sonst FN-Funktion aufrufen
5  FN 14: ERROR= 1092
6  LBL 1
7  FN 22: FUNCT Q0 FNR810 PIN21
8  END PGM 21 MM 
