0  BEGIN PGM 230 MM
1  Q200 = ABS Q200  
2  Q218 = ABS Q218  
3  Q219 = ABS Q219  
4  Q240 = ABS Q240  
5  FN 17: SYSWRITE ID212 = +3
6  FN 18: SYSREAD Q0 = ID1000 NR7441
7  Q0 = 2 * FRAC (Q0 / 2)  
8  FN 9: IF +Q0 EQU +1 GOTO LBL 199
9  FN 9: IF +Q110 EQU +0 GOTO LBL 199
10  FN 9: IF +Q110 EQU +1 GOTO LBL 199
11  FN 14: ERROR = 1000
12  LBL 199
13  FN 10: IF +Q109 NE -1 GOTO LBL 198
14  FN 14: ERROR = 1001
15  LBL 198
16  FN 18: SYSREAD Q1 = ID200 NR1
17  Q1 = ABS Q1  
18  FN 2: Q11 = +Q225 - +Q1
19  FN 1: Q12 = +Q226 + +Q1
20  FN 0: Q13 = +1
21  FN 1: Q14 = +Q225 + +Q218
22  FN 1: Q14 = +Q14 + +Q1
23  FN 2: Q16 = +Q219 - +Q1
24  FN 2: Q16 = +Q16 - +Q1
25  FN 9: IF +Q240 EQU +1 GOTO LBL 1
26  FN 2: Q18 = +Q240 - +1
27  FN 4: Q16 = +Q16 DIV +Q18
28  LBL 1
29  FN 1: Q17 = +Q227 + +Q200
30  L X+Q11 Y+Q12 R0 F MAX
31  L Z+Q17 F MAX
32  L Z+Q227 FQ206
33  LBL 2
34  L X+Q11 Y+Q12 FQ209
35  L X+Q14 FQ207
36  FN 1: Q12 = +Q12 + +Q16
37  FN 1: Q13 = +Q13 + +1
38  FN 11: IF +Q13 GT +Q240 GOTO LBL 99
39  L X+Q14 Y+Q12 FQ209
40  L X+Q11 Y+Q12 FQ207
41  FN 1: Q12 = +Q12 + +Q16
42  FN 1: Q13 = +Q13 + +1
43  FN 12: IF +Q13 LT +Q240 GOTO LBL 2
44  FN 9: IF +Q13 EQU +Q240 GOTO LBL 2
45  LBL 99
46  L Z+Q17 F MAX
47  END PGM 230 MM
