0  BEGIN PGM 201 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  LBL 200
7  FN 17: SYSWRITE ID212 = +3
8  FN 18: SYSREAD Q0 = ID1000 NR7441
9  Q0 = 2 * FRAC (Q0 / 2)  
10  FN 9: IF +Q0 EQU +1 GOTO LBL 199
11  FN 9: IF +Q110 EQU +0 GOTO LBL 199
12  FN 9: IF +Q110 EQU +1 GOTO LBL 199
13  FN 14: ERROR = 1000
14  LBL 199
15  FN 10: IF +Q109 NE -1 GOTO LBL 198
16  FN 14: ERROR = 1001
17  LBL 198
18  FN 9: IF +Q201 EQU +0 GOTO LBL 254
19  FN 12: IF +Q201 LT +0 GOTO LBL 197
20  FN 0: Q30 = -1
21  FN 9: IF +0 EQU +0 GOTO LBL 194
22  LBL 197
23  FN 0: Q30 = +1
24  LBL 194
25  FN 9: IF +Q195 EQU +1 GOTO LBL 193
26  CALL LBL 4
27  LBL 193
28  FN 1: Q19 = +Q203 + +Q200
29  Q51 = ABS Q200  
30  Q52 = ABS Q204  
31  FN 11: IF +Q51 GT +Q52 GOTO LBL 2
32  FN 1: Q19 = +Q203 + +Q204
33  LBL 2
34  FN 1: Q20 = +Q203 + +Q200
35  FN 1: Q24 = +Q203 + +Q201
36  FN 0: Q25 = +Q208
37  FN 10: IF +Q208 NE +0 GOTO LBL 4
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  L Z+Q24 R0 FQ206
47  FN 9: IF +Q211 EQU +0 GOTO LBL 180
48  CYCL DEF 9.0 VERWEILZEIT
49  CYCL DEF 9.1 V.ZEIT Q211
50  LBL 180
51  L Z+Q20 R0 FQ25
52  FN 9: IF +Q195 EQU +1 GOTO LBL 254
53  L Z+Q19 R0 F MAX
54  LBL 254
55  END PGM 201 MM
