BEGIN PGM 215 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 ID 212 =+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 10: IF +Q202 NE +0 GOTO LBL 21
FN 14: ERROR= 1030
LBL 21
FN 9: IF +Q222 EQU +Q223 GOTO LBL 22
FN 11: IF +Q222 GT +Q223 GOTO LBL 22
FN 14: ERROR= 1036
LBL 22
FN 9: IF +Q195 EQU +1 GOTO LBL 193
CALL LBL 99
LBL 193
FN 18: SYSREAD Q1 = ID200 NR1
Q1 = ABS Q1
FN 4: Q17 =+Q222 DIV +2
FN 4: Q18 =+Q223 DIV +2
Q26 = 0.5 * Q5 ; / Q5
FN 11: IF +Q1 GT +Q26 GOTO LBL 23
Q26 = Q1 * Q5 ; / Q5
LBL 23
Q25 = Q26 * 0.75
Q27 = ( Q17 - Q18 )
FN 4: Q28 =+Q207 DIV +1.5
Q29 = ( 2 * Q1 ) + Q18 + Q26 + Q27
LBL 24
Q31 = ( Q29 - Q18 ) * Q5
FN 11: IF +Q31 GT +Q1 GOTO LBL 25
Q29 = Q29 + ( 4 * Q1 )
FN 9: IF +0 EQU +0 GOTO LBL 24
LBL 25
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 11: IF +Q27 GT +Q25 GOTO LBL 5
FN 3: Q22 =+Q207 * +2
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 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 121
LBL 120
FN 12: IF +Q0 LT +Q19 GOTO LBL 121
L  Z+Q19 R0 FMAX
LBL 121
L  X+Q216  Y+Q217 R0 FMAX
LBL 98
CC IX+0 IY+0
LP  PR+Q29  PA+0 FMAX
L  Z+Q20 FMAX
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
APPR PLCT  PR+Q18  PA+0 RQ26 RL FQ22
CP IPA-360 DR- FQ207
DEP PLCT  PR+Q29  PA+0 RQ26 FQ22
LP  PR+Q29 R0 FQ22
LBL 0
LBL 99
FN 9: IF +Q195 EQU +1 GOTO LBL 192
FN 3: Q200 =+Q200 * +Q30
FN 3: Q202 =+Q202 * +Q30
FN 3: Q204 =+Q204 * +Q30
LBL 0
LBL 192
L  Z+Q20 FMAX
FN 9: IF +Q195 EQU +1 GOTO LBL 253
FN 0: Q15 =+0
L  Z+Q19 FMAX
LBL 253
FN 9: IF +Q176 EQU +0 GOTO LBL 254
LP  PR+0  PA+0 FMAX
LBL 254
END PGM 215 MM 
