BEGIN PGM CPOCKI MM 
; locale Parameter:
; Q97..Q99 sollen geschuetzt sein MP_7261
SEL CONTOUR "CPOCKI"
; Geometrie: Kreistasche 
FN 17: SYSWRITE ID 30 NR9 =+Q272 ;Radius
FN 17: SYSWRITE ID 30 NR34 =+4  ;Typ Kreistasche incr.
FN 18: SYSREAD Q97 = ID20 NR3 ;WZ-Achse 
FN 17: SYSWRITE ID 212 =+3 ;WERKZEUGACHSE 
Q96 = Q272 - Q221
Q97 = (Q97+2)%3	; +2 X=1 Y=2 Z=3
FN 18: SYSREAD Q98 = ID270 NR1 IDXQ97  
Q97 = (Q97+1) %3
FN 18: SYSREAD Q99 = ID270 NR1 IDXQ97  
LBL 1
CC  X+Q98 Y+Q99
LP  PR+Q96  PA+0
CP IPA+90 DR+
CP IPA+90 DR+
CP IPA+90 DR+
CP IPA+90 DR+
END PGM CPOCKI MM 
