0 BEGIN PGM Absatz mit Q MM 1 BLK FORM 0.1 Z X+0 Y-80 Z-190 2 BLK FORM 0.2 X+450 Y+0 Z+0 3 TOOL CALL 29 Z S( VC = 250 ) ~ F600 4 * - EMK 100 AL 5 CYCL DEF 301 ~ Q1998=+1 6 L X+440 Y+75 FMAX M13 7 Q2 = 1 8 LBL "ABSATZ-R" 9 L Z+5 FMAX 10 FN 11: IF +Q2 GT +85 GOTO LBL "NEXT" 11 L Z-Q2 F1000 12 L Y-155 F AUTO 13 L Z+50 FMAX 14 L X+440 Y+75 FMAX 15 Q2 = Q2 + 1 16 FN 9: IF +0 EQU +0 GOTO LBL "ABSATZ-R" 17 LBL 0 18 LBL "NEXT" 19 L Z+50 FMAX 20 L X+10 Y-155 FMAX 21 Q3 = 1 22 LBL "ABSATZ-L" 23 L Z+5 FMAX 24 FN 11: IF +Q3 GT +85 GOTO LBL "ENDE" 25 L Z-Q3 F1000 26 L Y+75 F AUTO 27 L Z+50 FMAX 28 L X+10 Y-155 FMAX 29 Q3 = Q3 + 1 30 FN 9: IF +0 EQU +0 GOTO LBL "ABSATZ-L" 31 LBL 0 32 LBL "ENDE" 33 L Z+50 FMAX 34 TOOL CALL 32 Z S100 35 CYCL DEF 301 ~ Q1998=+1 36 L X+1000 Y+70 FMAX M30 37 END PGM Absatz mit Q MM