0  BEGIN PGM 208 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q206 = ABS Q206  
7  Q335 = ABS Q335  
8  Q342 = ABS Q342  
9  LBL 200
10  FN 17: SYSWRITE ID212 = +3
11  FN 18: SYSREAD Q0 = ID1000 NR7441
12  Q0 = 2 * FRAC (Q0 / 2)  
13  FN 9: IF +Q0 EQU +1 GOTO LBL 199
14  FN 9: IF +Q110 EQU +0 GOTO LBL 199
15  FN 9: IF +Q110 EQU +1 GOTO LBL 199
16  FN 14: ERROR = 1000
17  LBL 199
18  FN 10: IF +Q109 NE -1 GOTO LBL 198
19  FN 14: ERROR = 1001
20  LBL 198
21  FN 18: SYSREAD Q17 = ID200 NR1
22  Q17 = ABS Q17  
23  Q18 = Q335 / 2  
24  FN 9: IF +Q17 EQU +Q18 GOTO LBL 196
25  FN 12: IF +Q17 LT +Q18 GOTO LBL 196
26  FN 14: ERROR = 1003
27  LBL 196
28  FN 9: IF +Q201 EQU +0 GOTO LBL 254
29  FN 12: IF +Q201 LT +0 GOTO LBL 197
30  FN 0: Q30 = -1
31  FN 9: IF +0 EQU +0 GOTO LBL 194
32  LBL 197
33  FN 0: Q30 = +1
34  LBL 194
35  FN 9: IF +Q195 EQU +1 GOTO LBL 193
36  CALL LBL 4
37  LBL 193
38  FN 1: Q19 = +Q203 + +Q200
39  Q51 = ABS Q200  
40  Q52 = ABS Q204  
41  FN 11: IF +Q51 GT +Q52 GOTO LBL 2
42  FN 1: Q19 = +Q203 + +Q204
43  LBL 2
44  FN 1: Q20 = +Q203 + +Q200
45  FN 1: Q24 = +Q203 + +Q201
46  Q32 = ATAN (ABS Q334 / ABS (Q335 * PI))  
47  FN 18: SYSREAD Q33 = ID50 NR14
48  FN 9: IF +Q33 EQU +0 GOTO LBL 6
49  FN 11: IF +Q33 GT +Q32 GOTO LBL 6
50  FN 9: IF +Q33 EQU +Q32 GOTO LBL 6
51  Q334 = TAN Q33 * ABS (Q335 * PI)  
52  LBL 6
53  Q25 = ABS Q200 + ABS Q201  
54  Q25 = (Q25 / Q334)  
55  Q26 = INT Q25  
56  Q27 = ABS (360 * (Q25 - Q26))  
57  Q26 = ABS Q26  
58  Q28 = ((Q335 / 2) - Q17) / 2  
59  FN 0: Q31 = +0
60  Q29 = (Q17 * 4)  
61  FN 11: IF +Q342 GT +0 GOTO LBL 7
62  FN 11: IF +Q29 GT +Q335 GOTO LBL 7
63  FN 9: IF +Q29 EQU +Q335 GOTO LBL 7
64  FN 14: ERROR = 1047
65  LBL 7
66  L Z+Q20 R0 F MAX
67  FN 12: IF +Q28 LT +0.0002 GOTO LBL 251
68  FN 12: IF +Q28 LT +0.008 GOTO LBL 240
69  CC IX+0 IY+0
70  LP PR+Q18 PA+0 RL FQ206
71  RND RQ28
72  LBL 10
73  FN 9: IF +Q26 EQU +0 GOTO LBL 11
74  CP IPA+360 IZ-Q334 DR+ FQ206
75  FN 1: Q31 = +Q31 + +1
76  FN 12: IF +Q31 LT +Q26 GOTO LBL 10
77  LBL 11
78  CP IPA+Q27 Z+Q24 DR+ FQ206
79  CP IPA+360 DR+ FQ206
80  RND RQ28
81  LP PR+0 R0 F MAX
82  FN 9: IF +0 EQU +0 GOTO LBL 252
83  LBL 240
84  CC IX+0 IY+0
85  LP PR+Q18 PA+0 RL FQ206
86  LBL 241
87  FN 9: IF +Q26 EQU +0 GOTO LBL 13
88  CP IPA+360 IZ-Q334 DR+ FQ206
89  FN 1: Q31 = +Q31 + +1
90  FN 12: IF +Q31 LT +Q26 GOTO LBL 241
91  LBL 13
92  CP IPA+Q27 Z+Q24 DR+ FQ206
93  CP IPA+360 DR+ FQ206
94  LP PR+0 R0 F MAX
95  FN 9: IF +0 EQU +0 GOTO LBL 252
96  LBL 251
97  L Z+Q24 R0 FQ206
98  LBL 252
99  L Z+Q20 R0 F MAX
100  FN 9: IF +Q195 EQU +1 GOTO LBL 253
101  L Z+Q19 R0 F MAX
102  LBL 253
103  FN 9: IF +Q195 EQU +1 GOTO LBL 192
104  LBL 4
105  FN 3: Q200 = +Q200 * +Q30
106  FN 3: Q334 = +Q334 * +Q30
107  FN 3: Q204 = +Q204 * +Q30
108  LBL 0
109  LBL 192
110  LBL 254
111  END PGM 208 MM
