0  BEGIN PGM 22 MM 
1  FN 18: SYSREAD Q99 = ID30 NR52 IDX18 ;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 Q18 = ID990 NR10 IDX18 ;Suche WZ-Nummer zu WZ-Namen
4  FN 10: IF +Q18 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 PIN22
8  END PGM 22 MM 
