BEGIN PGM 484 MM
FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
FN 9: IF +Q0 EQU +1 GOTO LBL 254
FN 18: SYSREAD Q0 = ID990 NR2 IDX16
FN 9: IF +Q0 EQU +0 GOTO LBL 254
;Merker 4058 wegen Sicherheit setzen
FN 20: WAIT FOR  SYNC
FN 17: SYSWRITE ID2000 NR10 IDX4058 = +1
FN 18: SYSREAD QL10 = ID 1000 NR 6562 IDX 0
FN 9: IF +QL10 EQU -1 GOTO LBL "NO_PRE"
M QL10
LBL "NO_PRE"
;Auf X13 umschalten
FN 17: SYSWRITE ID 990 NR6 =+1.0
FN 16: F-PRINT 484CONFIRM.A / screen:
FN 17: SYSWRITE ID 990 NR14 =+0
FN 16: F-PRINT 484CONFIRM.A / sclr:
;Vorpositionierung von Zyklus 30 unterbinden
FN 17: SYSWRITE ID990 NR 13 = +1
;Kalibrierzyklus: Sichere Hoehe egal
TCH PROBE 30.0 TT KALIBRIEREN
TCH PROBE 30.1 HOEHE: +30000
;Auf X12 zurueckschalten
FN 17: SYSWRITE ID 990 NR6 =+0.0
FN 18: SYSREAD QL11 = ID 1000 NR 6562 IDX 1
FN 9: IF +QL11 EQU -1 GOTO LBL "NO_POST"
M QL11
LBL "NO_POST"
;Merker 4058 wieder zuruecknehmen
FN 17: SYSWRITE ID2000 NR10 IDX4058 = +0
LBL 254
END PGM 484 MM
