0  BEGIN PGM 207 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 10: IF +Q109 NE -1 GOTO LBL 198
9  FN 14: ERROR = 1001
10  LBL 198
11  FN 9: IF +Q201 EQU +0 GOTO LBL 254
12  FN 12: IF +Q201 LT +0 GOTO LBL 197
13  FN 0: Q30 = -1
14  FN 9: IF +0 EQU +0 GOTO LBL 194
15  LBL 197
16  FN 0: Q30 = +1
17  LBL 194
18  FN 9: IF +Q195 EQU +1 GOTO LBL 193
19  CALL LBL 4
20  LBL 193
21  FN 1: Q19 = +Q203 + +Q200
22  Q51 = ABS Q200  
23  Q52 = ABS Q204  
24  FN 11: IF +Q51 GT +Q52 GOTO LBL 2
25  FN 1: Q19 = +Q203 + +Q204
26  LBL 2
27  Q20 = Q203 + Q200  
28  Q21 = Q201  
29  FN 1: Q24 = +Q203 + +Q201
30  FN 0: Q25 = +Q206
31  LBL 4
32  FN 9: IF +Q195 EQU +1 GOTO LBL 192
33  FN 3: Q200 = +Q200 * +Q30
34  FN 3: Q204 = +Q204 * +Q30
35  LBL 0
36  LBL 192
37  L Z+Q20 R0 F MAX
38  CYCL DEF 17.0 GEW.-BOHREN GS
39  CYCL DEF 17.1 ABST +Q200
40  CYCL DEF 17.2 TIEFE +Q201
41  CYCL DEF 17.3 STEIG +Q239
42  CYCL CALL
43  FN 9: IF +Q195 EQU +1 GOTO LBL 254
44  L Z+Q19 R0 F MAX
45  LBL 254
46  END PGM 207 MM
