0  BEGIN PGM 4_KONTUR_CONTOUR MM 
1  BLK FORM 0.1 Z X+0 Y+0 Z-40
2  BLK FORM 0.2  X+100  Y+100  Z+0
3  ;
4  ;
5  ;SET INITIAL CONDITIONS AND START POSITION
6  Q105 = 100 ;X START UPPER RIGHT
7  Q106 = 100 ;Y START UPPER RIGHT
8  Q100 = 2 ;DIRECTION FLAG, 2 IS R2L 1 IS L2R
9  ;
10 TOOL CALL 1 S10000 F500
11 ;
12 L  X+Q105  Y+Q106 R0 FMAX M3
13 L  Z+2 R0 FMAX
14 ;
15 ;
16 LBL "TOP_MAIN_LOOP"
17 L  X+Q105  Y+Q106  Z-1 R0 F500
18 ;
19 FN 9: IF +Q100 EQU +2 GOTO LBL "X++"
20 FN 9: IF +Q100 EQU +1 GOTO LBL "X--"
21 ;
22 LBL "X++"
23 Q105 = Q105 + 0.1
24 LBL 0
25 ;
26 LBL "X--"
27 Q105 = Q105 - 0.1
28 LBL 0
29 ;
30 FN 11: IF +Q105 GT +100 GOTO LBL "RESET_DIRECTION_FLAG_R2L"
31 FN 12: IF +Q105 LT +0 GOTO LBL "RESET_DIRECTION_FLAG_L2R"
32 ;
33 LBL "RESET_DIRECTION_FLAG_L2R"
34 Q106 = Q106 + 0.1
35 Q100 = 2
36 LBL 0
37 ;
38 LBL "RESET_DIRECTION_FLAG_R2L"
39 Q106 = Q106 - 0.1
40 Q100 = 1
41 LBL 0
42 ;
43 ;
44 FN 12: IF +Q106 LT +0 GOTO LBL 99 ;END OF GRID - EXIT MAINLOOP - END PROGRAM
45 ;
46 FN 9: IF +0 EQU +0 GOTO LBL "TOP_MAIN_LOOP"
47 ;
48 ;
49 ;
50 LBL 99
51 ;
52 M30
53 END PGM 4_KONTUR_CONTOUR MM