Code:
xNum = *On;
Monitor;
  xhZahl = %Int(%subst(feld:1:3));
  On-Error 150;  // Dezimaldatenfehler
    xNum = *Off;
EndMon;