Ich hab mal was ähnliches gemacht.
Hier wird vom
CAM der theoretische Radius & Länge ausgegeben und bei der Simulation geprüft.
0 BEGIN PGM M891 MM
1 FN 18: SYSREAD Q14 = ID990 NR2 IDX16
2 FN 10: IF +Q14 NE +0 GOTO LBL "ENDE"
3 FN 2: Q12 =+Q10 - +Q114
4 FN 2: Q13 =+Q11 - +Q108
5 QS12 = TOCHAR( DAT+Q12 DECIMALS2 )
6 FN 12: IF +Q12 LT +0 GOTO LBL "MINUS"
7 LBL "WEITER"
8 ;
9 FN 11: IF +Q12 GT +1 GOTO LBL "END"
10 FN 11: IF +Q13 GT +0.15 GOTO LBL "END"
11 FN 9: IF +1 EQU +1 GOTO LBL "ENDE"
12 LBL "END"
13 FN 16: F-PRINT TNC:\PRUEFEN.a / SCREEN:
14 FN 9: IF +1 EQU +1 GOTO LBL "ENDE"
15 LBL "MINUS"
16 QS12 = "Nicht"
17 FN 9: IF +1 EQU +1 GOTO LBL "WEITER"
18 LBL "ENDE"
19 END PGM M891 MM
" ";
"%S %S zu kurz | Radius %2.2LF zu klein",QS6,QS12,Q13;