0  BEGIN PGM 231 MM
1  Q240 = ABS Q240  
2  FN 17: SYSWRITE ID212 = +3  
3  FN 18: SYSREAD Q0 = ID1000 NR7441
4  Q0 = 2 * FRAC (Q0 / 2)  
5  FN 9: IF +Q0 EQU +1 GOTO LBL 199
6  FN 9: IF +Q110 EQU +0 GOTO LBL 199
7  FN 9: IF +Q110 EQU +1 GOTO LBL 199
8  FN 14: ERROR = 1000
9  LBL 199
10  FN 10: IF +Q109 NE -1 GOTO LBL 198
11  FN 14: ERROR = 1001
12  LBL 198
13  FN 18: SYSREAD Q1 = ID200 NR1
14  Q1 = ABS Q1  
15  CALL LBL 1
16  CALL LBL 2
17  CALL LBL 4
18  L X+Q31 Y+Q32 Z+Q33 R0 FQ42
19  LBL 10
20  L X+Q31 Y+Q32 Z+Q33 R0 FQ207
21  L X+Q34 Y+Q35 Z+Q36 R0 FQ42
22  L X+Q34 Y+Q35 Z+Q38 R0 F MAX
23  FN 9: IF +Q30 EQU +Q46 GOTO LBL 99
24  L X+Q31 Y+Q32 Z+Q37 R0 F MAX
25  L IZ-Q1 F MAX
26  L X+Q31 Y+Q32 Z+Q33 R0 FQ42
27  CALL LBL 3
28  FN 11: IF +Q30 GT +Q46 GOTO LBL 99
29  FN 9: IF +Q30 EQU +Q46 GOTO LBL 10
30  FN 12: IF +Q30 LT +Q46 GOTO LBL 10
31  LBL 1
32  FN 0: Q30 = +0
33  FN 0: Q31 = +Q225
34  FN 0: Q32 = +Q226
35  FN 1: Q33 = +Q227 + +0
36  FN 0: Q34 = +Q228
37  FN 0: Q35 = +Q229
38  FN 1: Q36 = +Q230 + +0
39  FN 1: Q37 = +Q33 + +Q1
40  FN 1: Q37 = +Q37 + +Q1
41  FN 1: Q38 = +Q36 + +Q1
42  FN 1: Q38 = +Q38 + +Q1
43  LBL 0
44  LBL 2
45  FN 4: Q46 = +Q240 DIV +1
46  FN 2: Q51 = +Q234 - +Q225
47  FN 4: Q51 = +Q51 DIV +Q46
48  FN 2: Q52 = +Q235 - +Q226
49  FN 4: Q52 = +Q52 DIV +Q46
50  FN 2: Q53 = +Q236 - +Q227
51  FN 4: Q53 = +Q53 DIV +Q46
52  FN 2: Q54 = +Q231 - +Q228
53  FN 4: Q54 = +Q54 DIV +Q46
54  FN 2: Q55 = +Q232 - +Q229
55  FN 4: Q55 = +Q55 DIV +Q46
56  FN 2: Q56 = +Q233 - +Q230
57  FN 4: Q56 = +Q56 DIV +Q46
58  FN 4: Q42 = +Q207 DIV +2
59  LBL 0
60  LBL 3
61  FN 1: Q30 = +Q30 + +1
62  FN 1: Q31 = +Q31 + +Q51
63  FN 1: Q32 = +Q32 + +Q52
64  FN 1: Q33 = +Q33 + +Q53
65  FN 1: Q34 = +Q34 + +Q54
66  FN 1: Q35 = +Q35 + +Q55
67  FN 1: Q36 = +Q36 + +Q56
68  FN 1: Q37 = +Q33 + +Q1
69  FN 1: Q37 = +Q37 + +Q1
70  FN 1: Q38 = +Q36 + +Q1
71  FN 1: Q38 = +Q38 + +Q1
72  FN 0: Q42 = +Q207
73  LBL 0
74  LBL 4
75  FN 11: IF +Q227 GT +Q230 GOTO LBL 11
76  FN 0: Q25 = +Q230
77  FN 9: IF +0 EQU +0 GOTO LBL 6
78  LBL 11
79  FN 0: Q25 = +Q227
80  LBL 6
81  FN 11: IF +Q233 GT +Q236 GOTO LBL 9
82  FN 0: Q26 = +Q236
83  FN 9: IF +0 EQU +0 GOTO LBL 8
84  LBL 9
85  FN 0: Q26 = +Q233
86  LBL 8
87  FN 11: IF +Q25 GT +Q26 GOTO LBL 12
88  FN 0: Q27 = +Q26
89  FN 9: IF +0 EQU +0 GOTO LBL 14
90  LBL 12
91  FN 0: Q27 = +Q25
92  LBL 14
93  FN 1: Q27 = +Q27 + +Q1
94  FN 1: Q27 = +Q27 + +Q1
95  LBL 0
96  LBL 99
97  L Z+Q27 R0 F MAX
98  END PGM 231 MM
