BEGIN PGM 214 MM
Q195 = Q197  
Q197 = 0  
FN 9: IF +Q195 EQU +1 GOTO LBL 200
Q200 = ABS Q200  
Q202 = ABS Q202  
Q204 = ABS Q204  
Q222 = ABS Q222  
Q223 = ABS Q223  
LBL 200
FN 17: SYSWRITE ID212 = +3
FN 18: SYSREAD Q5 = ID210 NR4 IDX1
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 2 * FRAC (Q0 / 2)  
FN 9: IF +Q0 EQU +1 GOTO LBL 199
FN 9: IF +Q110 EQU +0 GOTO LBL 199
FN 9: IF +Q110 EQU +1 GOTO LBL 199
FN 14: ERROR = 1000
LBL 199
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC (Q0 / 8)  
FN 12: IF +Q0 LT +4 GOTO LBL 206
FN 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 14: ERROR = 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR = 1001
LBL 198
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q30 = -1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q30 = +1
LBL 194
FN 9: IF +Q222 EQU +Q223 GOTO LBL 196
FN 12: IF +Q222 LT +Q223 GOTO LBL 196
FN 14: ERROR = 1040
LBL 196
; Aktiven WZR lesen
FN 18: SYSREAD Q2 = ID200 NR1
Q2 = ABS Q2  
Q2 = Q2 / Q5
Q21 = (2.1 * Q2)
FN 12: IF +Q21 LT +Q223 GOTO LBL 193
FN 14: ERROR = 1029
LBL 193
FN 10: IF +Q202 NE +0 GOTO LBL 21
FN 14: ERROR = 1030
LBL 21
FN 9: IF +Q195 EQU +1 GOTO LBL 192
CALL LBL 99
LBL 192
FN 4: Q17 = +Q222 DIV +2
FN 4: Q18 = +Q223 DIV +2
Q1 = 0.1 / Q5   ;  
FN 0: Q26 = +Q1
FN 4: Q28 = +Q207 DIV +1.5
FN 0: Q29 = +0
FN 9: IF +Q222 EQU +0 GOTO LBL 195
FN 2: Q26 = +Q18 - +Q17
LBL 190
Q29 = Q18 - 2 * Q26 - 2 * Q2  
FN 11: IF +Q29 GT +0 GOTO LBL 195
FN 9: IF +Q29 EQU +0 GOTO LBL 195
Q26 = Q26 / 2  
FN 9: IF +Q26 EQU +0 GOTO LBL 188
FN 11: IF +2 GT +1 GOTO LBL 190
LBL 188
FN 0: Q26 = +Q1
FN 0: Q29 = +0
LBL 195
Q0 = ABS ( Q17 - Q2 )
FN 12: IF +Q29 LT +Q0 GOTO LBL 207
Q29 = 0
LBL 207
Q0 = 2 * Q2
FN 9: IF +Q222 EQU +0 GOTO LBL 208
FN 12: IF +Q0 LT +Q222 GOTO LBL 208
FN 14: ERROR = 1003
LBL 208
FN 1: Q19 = +Q203 + +Q200
Q51 = ABS Q200  
Q52 = ABS Q204  
FN 11: IF +Q51 GT +Q52 GOTO LBL 3
FN 1: Q19 = +Q203 + +Q204
LBL 3
FN 1: Q20 = +Q203 + +Q200
FN 0: Q22 = +Q207
FN 12: IF +Q206 LT +Q207 GOTO LBL 5
FN 9: IF +Q206 EQU +Q207 GOTO LBL 5
FN 0: Q22 = +Q207
LBL 5
FN 2: Q23 = +Q203 - +Q202
FN 2: Q24 = +Q203 - -Q201
FN 9: IF +Q195 EQU +1 GOTO LBL 98
FN 1: Q0 = +Q109 + +1
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
FN 9: IF +Q30 EQU -1 GOTO LBL 120
FN 11: IF +Q0 GT +Q19 GOTO LBL 121
L Z+Q19 R0 F MAX
FN 9: IF +0 EQU +0 GOTO LBL 121
LBL 120
FN 12: IF +Q0 LT +Q19 GOTO LBL 121
L Z+Q19 R0 F MAX
LBL 121
L X+Q216 Y+Q217 R0 F MAX
LBL 98
CC IX+0 IY+0
LP PR+Q29 PA+0 F MAX
L Z+Q20 F MAX
FN 10: IF +Q30 NE -1 GOTO LBL 30
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 11: IF +Q23 GT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 30
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 12: IF +Q23 LT +Q24 GOTO LBL 12
LBL 10
CALL LBL 11
FN 2: Q23 = +Q23 - +Q202
FN 10: IF +Q30 NE -1 GOTO LBL 32
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 11: IF +Q23 GT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 32
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 12: IF +Q23 LT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 12
FN 0: Q23 = +Q24
CALL LBL 11
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 11
L Z+Q23 FQ206
LP PR+Q18 PA+0 RL FQ22
RND RQ26 FQ28
CP IPA+360 DR+ FQ207
RND RQ26 FQ28
LP PR+Q29 R0 FQ22
LBL 0
LBL 99
FN 9: IF +Q195 EQU +1 GOTO LBL 191
FN 3: Q200 = +Q200 * +Q30
FN 3: Q202 = +Q202 * +Q30
FN 3: Q204 = +Q204 * +Q30
LBL 0
LBL 191
L Z+Q20 F MAX
FN 9: IF +Q195 EQU +1 GOTO LBL 253
FN 0: Q15 = +0
L Z+Q19 F MAX
LBL 253
FN 9: IF +Q176 EQU +0 GOTO LBL 254
LP PR+0 PA+0 F MAX
LBL 254
END PGM 214 MM
