0  BEGIN PGM 206 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q206 = ABS Q206  
7  Q211 = ABS Q211  
8  LBL 200
9  FN 17: SYSWRITE ID212 = +3
10  FN 18: SYSREAD Q0 = ID1000 NR7441
11  Q0 = 2 * FRAC (Q0 / 2)  
12  FN 9: IF +Q0 EQU +1 GOTO LBL 199
13  FN 9: IF +Q110 EQU +0 GOTO LBL 199
14  FN 9: IF +Q110 EQU +1 GOTO LBL 199
15  FN 14: ERROR = 1000
16  LBL 199
17  FN 10: IF +Q109 NE -1 GOTO LBL 198
18  FN 14: ERROR = 1001
19  LBL 198
20  FN 9: IF +Q201 EQU +0 GOTO LBL 254
21  FN 12: IF +Q201 LT +0 GOTO LBL 197
22  FN 0: Q30 = -1
23  FN 9: IF +0 EQU +0 GOTO LBL 194
24  LBL 197
25  FN 0: Q30 = +1
26  LBL 194
27  FN 9: IF +Q195 EQU +1 GOTO LBL 193
28  CALL LBL 4
29  LBL 193
30  FN 1: Q19 = +Q203 + +Q200
31  Q51 = ABS Q200  
32  Q52 = ABS Q204  
33  FN 11: IF +Q51 GT +Q52 GOTO LBL 2
34  FN 1: Q19 = +Q203 + +Q204
35  LBL 2
36  FN 1: Q20 = +Q203 + +Q200
37  FN 1: Q24 = +Q203 + +Q201
38  FN 0: Q25 = +Q206
39  LBL 4
40  FN 9: IF +Q195 EQU +1 GOTO LBL 192
41  FN 3: Q200 = +Q200 * +Q30
42  FN 3: Q204 = +Q204 * +Q30
43  LBL 0
44  LBL 192
45  L Z+Q20 R0 F MAX
46  CYCL DEF 2.0 GEWINDEBOHREN
47  CYCL DEF 2.1 ABST +Q200
48  CYCL DEF 2.2 TIEFE +Q201
49  CYCL DEF 2.3 V.ZEIT Q211
50  CYCL DEF 2.4 FQ206
51  CYCL CALL
52  FN 9: IF +Q195 EQU +1 GOTO LBL 254
53  L Z+Q19 R0 F MAX
54  LBL 254
55  END PGM 206 MM
