0  BEGIN PGM 215 MM 
1  ;Stand: 340490 02
2  Q195 = Q197
3  Q197 = 0
4  FN 9: IF +Q195 EQU +1 GOTO LBL 200
5  Q200 = ABS Q200
6  Q202 = ABS Q202
7  Q204 = ABS Q204
8  Q222 = ABS Q222
9  Q223 = ABS Q223
10 LBL 200
11 FN 17: SYSWRITE ID 212 =+3
12 FN 18: SYSREAD Q5 = ID210 NR4 IDX1
13 CALL PGM CHECK_MP7441
14 FN 10: IF +Q109 NE -1 GOTO LBL 198
15 FN 14: ERROR= 1001
16 LBL 198
17 FN 9: IF +Q201 EQU +0 GOTO LBL 254
18 FN 12: IF +Q201 LT +0 GOTO LBL 197
19 FN 0: Q30 =-1
20 FN 9: IF +0 EQU +0 GOTO LBL 194
21 LBL 197
22 FN 0: Q30 =+1
23 LBL 194
24 FN 10: IF +Q202 NE +0 GOTO LBL 21
25 FN 14: ERROR= 1030
26 LBL 21
27 FN 9: IF +Q222 EQU +Q223 GOTO LBL 22
28 FN 11: IF +Q222 GT +Q223 GOTO LBL 22
29 FN 14: ERROR= 1036
30 LBL 22
31 FN 9: IF +Q195 EQU +1 GOTO LBL 193
32 CALL LBL 99
33 LBL 193
34 FN 18: SYSREAD Q1 = ID200 NR1
35 Q1 = ABS Q1
36 FN 4: Q17 =+Q222 DIV +2
37 FN 4: Q18 =+Q223 DIV +2
38 Q26 = 0.5 * Q5 ; / Q5
39 FN 11: IF +Q1 GT +Q26 GOTO LBL 23
40 Q26 = Q1 * Q5 ; / Q5
41 LBL 23
42 Q25 = Q26 * 0.75
43 Q27 = ( Q17 - Q18 )
44 FN 4: Q28 =+Q207 DIV +1.5
45 Q29 = ( 2 * Q1 ) + Q18 + Q26 + Q27
46 LBL 24
47 Q31 = ( Q29 - Q18 ) * Q5
48 FN 11: IF +Q31 GT +Q1 GOTO LBL 25
49 Q29 = Q29 + ( 4 * Q1 )
50 FN 9: IF +0 EQU +0 GOTO LBL 24
51 LBL 25
52 FN 1: Q19 =+Q203 + +Q200
53 Q51 = ABS Q200
54 Q52 = ABS Q204
55 FN 11: IF +Q51 GT +Q52 GOTO LBL 3
56 FN 1: Q19 =+Q203 + +Q204
57 LBL 3
58 FN 1: Q20 =+Q203 + +Q200
59 FN 0: Q22 =+Q207
60 FN 12: IF +Q206 LT +Q207 GOTO LBL 5
61 FN 11: IF +Q27 GT +Q25 GOTO LBL 5
62 FN 3: Q22 =+Q207 * +2
63 LBL 5
64 FN 2: Q23 =+Q203 - +Q202
65 FN 2: Q24 =+Q203 - -Q201
66 FN 9: IF +Q195 EQU +1 GOTO LBL 98
67 FN 1: Q0 =+Q109 + +1
68 FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
69 FN 9: IF +Q30 EQU -1 GOTO LBL 120
70 FN 11: IF +Q0 GT +Q19 GOTO LBL 121
71 L  Z+Q19 R0 FMAX
72 FN 9: IF +0 EQU +0 GOTO LBL 121
73 LBL 120
74 FN 12: IF +Q0 LT +Q19 GOTO LBL 121
75 L  Z+Q19 R0 FMAX
76 LBL 121
77 L  X+Q216  Y+Q217 R0 FMAX
78 LBL 98
79 CC IX+0 IY+0
80 LP  PR+Q29  PA+0 FMAX
81 L  Z+Q20 FMAX
82 FN 10: IF +Q30 NE -1 GOTO LBL 30
83 FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
84 FN 11: IF +Q23 GT +Q24 GOTO LBL 12
85 FN 9: IF +0 EQU +0 GOTO LBL 10
86 LBL 30
87 FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
88 FN 12: IF +Q23 LT +Q24 GOTO LBL 12
89 LBL 10
90 CALL LBL 11
91 FN 2: Q23 =+Q23 - +Q202
92 FN 10: IF +Q30 NE -1 GOTO LBL 32
93 FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
94 FN 11: IF +Q23 GT +Q24 GOTO LBL 12
95 FN 9: IF +0 EQU +0 GOTO LBL 10
96 LBL 32
97 FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
98 FN 12: IF +Q23 LT +Q24 GOTO LBL 12
99 FN 9: IF +0 EQU +0 GOTO LBL 10
100 LBL 12
101 FN 0: Q23 =+Q24
102 CALL LBL 11
103 FN 9: IF +0 EQU +0 GOTO LBL 99
104 LBL 11
105 L  Z+Q23 FQ206
106 APPR PLCT  PR+Q18  PA+0 RQ26 RL FQ22
107 CP IPA-360 DR- FQ207
108 DEP PLCT  PR+Q29  PA+0 RQ26 FQ22
109 LP  PR+Q29 R0 FQ22
110 LBL 0
111 LBL 99
112 FN 9: IF +Q195 EQU +1 GOTO LBL 192
113 FN 3: Q200 =+Q200 * +Q30
114 FN 3: Q202 =+Q202 * +Q30
115 FN 3: Q204 =+Q204 * +Q30
116 LBL 0
117 LBL 192
118 L  Z+Q20 FMAX
119 FN 9: IF +Q195 EQU +1 GOTO LBL 253
120 FN 0: Q15 =+0
121 L  Z+Q19 FMAX
122 LBL 253
123 FN 9: IF +Q176 EQU +0 GOTO LBL 254
124 LP  PR+0  PA+0 FMAX
125 LBL 254
126 END PGM 215 MM 
