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 ID 212 =+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 18: SYSREAD Q0 = ID1000 NR7441
18 Q0 = 8 * FRAC ( Q0 / 8 )
19 FN 12: IF +Q0 LT +4 GOTO LBL 206
20 FN 12: IF +Q201 LT +0 GOTO LBL 206
21 FN 9: IF +Q201 EQU +0 GOTO LBL 206
22 FN 14: ERROR= 1077
23 LBL 206
24 FN 10: IF +Q109 NE -1 GOTO LBL 198
25 FN 14: ERROR= 1001
26 LBL 198
27 FN 18: SYSREAD QL0 = ID1000 NR7260
28 FN 9: IF +QL0 EQU +0 GOTO LBL "Compare_Pitch"
29 FN 18: SYSREAD Q0 = ID1000 NR7224 IDX0
30 Q0 = 8 * FRAC ( Q0 / 8 )
31 FN 11: IF +Q0 GT +3 GOTO LBL "Compare_Pitch"
32 FN 18: SYSREAD QL0 = ID50 NR33 IDX0
33 FN 9: IF +QL0 EQU +0 GOTO LBL "Compare_Pitch"
34 FN 18: SYSREAD QL1 = ID20 NR4 IDX0
35 QL1 = Q206 / QL1
36 FN 18: SYSREAD QL2 = ID20 NR5 IDX0
37 FN 10: IF +QL2 NE +1 GOTO LBL "Sign_Pitch"
38 QL1 = QL1 * ( - 1 )
39 LBL "Sign_Pitch"
40 QL0 = QL1 - QL0
41 QL0 = ABS QL0
42 FN 12: IF +QL0 LT +0.002 GOTO LBL "Compare_Pitch"
43 FN 14: ERROR= 1124
44 LBL "Compare_Pitch"
45 FN 9: IF +Q201 EQU +0 GOTO LBL 254
46 FN 12: IF +Q201 LT +0 GOTO LBL 197
47 FN 0: Q30 =-1
48 FN 9: IF +0 EQU +0 GOTO LBL 194
49 LBL 197
50 FN 0: Q30 =+1
51 LBL 194
52 FN 9: IF +Q195 EQU +1 GOTO LBL 193
53 CALL LBL 4
54 LBL 193
55 FN 1: Q19 =+Q203 + +Q200
56 Q51 = ABS Q200
57 Q52 = ABS Q204
58 FN 11: IF +Q51 GT +Q52 GOTO LBL 2
59 FN 1: Q19 =+Q203 + +Q204
60 LBL 2
61 FN 1: Q20 =+Q203 + +Q200
62 FN 1: Q24 =+Q203 + +Q201
63 FN 0: Q25 =+Q206
64 LBL 4
65 FN 9: IF +Q195 EQU +1 GOTO LBL 192
66 FN 3: Q200 =+Q200 * +Q30
67 FN 3: Q204 =+Q204 * +Q30
68 LBL 0
69 LBL 192
70 L  Z+Q20 R0 FMAX
71 CYCL DEF 2.0 GEWINDEBOHREN
72 CYCL DEF 2.1 ABSTQ200
73 CYCL DEF 2.2 TIEFE+Q201
74 CYCL DEF 2.3 V.ZEITQ211
75 CYCL DEF 2.4 FQ206
76 CYCL CALL
77 FN 9: IF +Q195 EQU +1 GOTO LBL 254
78 L  Z+Q19 R0 FMAX
79 LBL 254
80 END PGM 206 MM 
