BEGIN PGM 29 MM
FN 9: IF Q1  EQU 0  GOTO LBL "IFNOT1_0"
FN 12: IF Q1  LT 0  GOTO LBL "IFNOT1_0"
 QS0 = SYSSTR( ID 10025 NR 1 )
 QS1 = "CfgGeoCycle"
 QS2 = "displayDepthErr"
 QL1 = CFGREAD( KEY_ QS0 TAG_ QS1 ATR_ QS2 )
 FN 10: IF QL1  NE 1  GOTO LBL "IFNOT1_1"
  FN 14: ERROR= 1077
 LBL "IFNOT1_1"
LBL "IFNOT1_0"
Q21 = 0
FN 22: FUNCT Q0 FNR810 PIN29 PIN0
END PGM 29 MM 
