0  BEGIN PGM VAL MM 
1  FN 17: SYSWRITE ID 212 =+3
2  Q25 = 0
3  Q55 = 0
4  Q29 = 0
5  ;)))))))))))))-(((((((((((((((
6  ;Werte aus TNC 320 lesen
7  FN 9: IF +1 EQU +0 GOTO LBL 88
8  FN 18: SYSREAD Q20 = ID30 NR1
9  FN 18: SYSREAD Q21 = ID30 NR2
10 FN 18: SYSREAD Q22 = ID30 NR3
11 FN 18: SYSREAD Q26 = ID30 NR4
12 FN 9: IF +Q93 EQU +1 GOTO LBL 144
13 FN 18: SYSREAD Q32 = ID30 NR5
14 FN 18: SYSREAD Q33 = ID30 NR6
15 FN 9: IF +Q94 EQU +1 GOTO LBL 145
16 LBL 144
17 FN 18: SYSREAD Q32 = ID30 NR7
18 FN 18: SYSREAD Q33 = ID30 NR8
19 LBL 145
20 FN 18: SYSREAD Q34 = ID30 NR9
21 FN 18: SYSREAD Q31 = ID30 NR9
22 FN 18: SYSREAD Q37 = ID30 NR10
23 FN 18: SYSREAD Q35 = ID30 NR11
24 FN 18: SYSREAD Q49 = ID30 NR12
25 LBL 88
26 DECLARE STRING QS40
27 QS40 = SYSSTR( ID10025 NR1 )
28 DECLARE STRING QS41 = "CfgGeoCycle"
29 DECLARE STRING QS42 = "pocketOverlap"
30 Q70 = CFGREAD( KEY_QS40 TAG_QS41 ATR_QS42 )
31 FN 9: IF +0 EQU +0 GOTO LBL 89
32 FN 0: Q20 =+2 ;ABST
33 FN 0: Q21 =-3.5 ;TIEFE
34 FN 0: Q22 =+3.5 ;ZUSTLG
35 FN 0: Q49 =+0 ;V.ZEIT
36 FN 0: Q26 =+200 ;F
37 ;************************
38 FN 0: Q32 =+30 ;1.Seitenlaenge
39 FN 0: Q33 =+25 ;2. Seitenlaenge
40 FN 0: Q37 =+300 ;VORSCHUB FRAESEN
41 FN 0: Q35 =+1 ;FRAESART
42 ;************************
43 FN 0: Q34 =+5 ;Radius
44 ;************************
45 FN 0: Q31 =+8 ;Radius Kreistasche
46 LBL 89
47 ;FN 37: EXPORT Q0 - Q99
48 END PGM VAL MM 
