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