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 18: SYSREAD Q0 = ID1000 NR7441
8  Q0 = 8 * FRAC ( Q0 / 8 )
9  FN 12: IF +Q0 LT +4 GOTO LBL 206
10 FN 12: IF +Q201 LT +0 GOTO LBL 206
11 FN 9: IF +Q201 EQU +0 GOTO LBL 206
12 FN 14: ERROR= 1077
13 LBL 206
14 FN 17: SYSWRITE ID 212 =+3
15 FN 10: IF +Q109 NE -1 GOTO LBL 198
16 FN 14: ERROR= 1001
17 LBL 198
18 FN 18: SYSREAD QL0 = ID1000 NR7260
19 FN 9: IF +QL0 EQU +0 GOTO LBL "Compare_Pitch"
20 FN 18: SYSREAD Q0 = ID1000 NR7224 IDX0
21 Q0 = 8 * FRAC ( Q0 / 8 )
22 FN 11: IF +Q0 GT +3 GOTO LBL "Compare_Pitch"
23 FN 18: SYSREAD QL0 = ID50 NR33 IDX0
24 FN 9: IF +QL0 EQU +0 GOTO LBL "Compare_Pitch"
25 QL0 = Q239 - QL0
26 QL0 = ABS QL0
27 FN 12: IF +QL0 LT +0.002 GOTO LBL "Compare_Pitch"
28 FN 14: ERROR= 1124
29 LBL "Compare_Pitch"
30 FN 9: IF +Q201 EQU +0 GOTO LBL 254
31 FN 12: IF +Q201 LT +0 GOTO LBL 197
32 FN 0: Q30 =-1
33 FN 9: IF +0 EQU +0 GOTO LBL 194
34 LBL 197
35 FN 0: Q30 =+1
36 LBL 194
37 FN 9: IF +Q195 EQU +1 GOTO LBL 193
38 CALL LBL 4
39 LBL 193
40 FN 1: Q19 =+Q203 + +Q200
41 Q51 = ABS Q200
42 Q52 = ABS Q204
43 FN 11: IF +Q51 GT +Q52 GOTO LBL 2
44 FN 1: Q19 =+Q203 + +Q204
45 LBL 2
46 Q20 = Q203 + Q200
47 Q21 = Q201
48 FN 1: Q24 =+Q203 + +Q201
49 FN 0: Q25 =+Q206
50 LBL 4
51 FN 9: IF +Q195 EQU +1 GOTO LBL 192
52 FN 3: Q200 =+Q200 * +Q30
53 FN 3: Q204 =+Q204 * +Q30
54 LBL 0
55 LBL 192
56 L  Z+Q20 R0 FMAX
57 CYCL DEF 17.0 GEW.-BOHREN GS
58 CYCL DEF 17.1 ABSTQ200
59 CYCL DEF 17.2 TIEFE+Q201
60 CYCL DEF 17.3 STEIG+Q239
61 CYCL CALL
62 FN 9: IF +Q195 EQU +1 GOTO LBL 254
63 L  Z+Q19 R0 FMAX
64 LBL 254
65 END PGM 207 MM 
