1
%!PS-Adobe-2.0 EPSF-2.0
3
%%Creator: fig2dev Version 3.2 Patchlevel 3d
4
%%CreationDate: Mon Oct 1 15:51:54 2001
5
%%For: root@t-27-94 (Charlie &)
6
%%BoundingBox: 0 0 232 554
7
%%Magnification: 1.0000
9
/$F2psDict 200 dict def
11
$F2psDict /mtrx matrix put
12
/col-1 {0 setgray} bind def
13
/col0 {0.000 0.000 0.000 srgb} bind def
14
/col1 {0.000 0.000 1.000 srgb} bind def
15
/col2 {0.000 1.000 0.000 srgb} bind def
16
/col3 {0.000 1.000 1.000 srgb} bind def
17
/col4 {1.000 0.000 0.000 srgb} bind def
18
/col5 {1.000 0.000 1.000 srgb} bind def
19
/col6 {1.000 1.000 0.000 srgb} bind def
20
/col7 {1.000 1.000 1.000 srgb} bind def
21
/col8 {0.000 0.000 0.560 srgb} bind def
22
/col9 {0.000 0.000 0.690 srgb} bind def
23
/col10 {0.000 0.000 0.820 srgb} bind def
24
/col11 {0.530 0.810 1.000 srgb} bind def
25
/col12 {0.000 0.560 0.000 srgb} bind def
26
/col13 {0.000 0.690 0.000 srgb} bind def
27
/col14 {0.000 0.820 0.000 srgb} bind def
28
/col15 {0.000 0.560 0.560 srgb} bind def
29
/col16 {0.000 0.690 0.690 srgb} bind def
30
/col17 {0.000 0.820 0.820 srgb} bind def
31
/col18 {0.560 0.000 0.000 srgb} bind def
32
/col19 {0.690 0.000 0.000 srgb} bind def
33
/col20 {0.820 0.000 0.000 srgb} bind def
34
/col21 {0.560 0.000 0.560 srgb} bind def
35
/col22 {0.690 0.000 0.690 srgb} bind def
36
/col23 {0.820 0.000 0.820 srgb} bind def
37
/col24 {0.500 0.190 0.000 srgb} bind def
38
/col25 {0.630 0.250 0.000 srgb} bind def
39
/col26 {0.750 0.380 0.000 srgb} bind def
40
/col27 {1.000 0.500 0.500 srgb} bind def
41
/col28 {1.000 0.630 0.630 srgb} bind def
42
/col29 {1.000 0.750 0.750 srgb} bind def
43
/col30 {1.000 0.880 0.880 srgb} bind def
44
/col31 {1.000 0.840 0.000 srgb} bind def
45
/col32 {0.667 0.667 0.667 srgb} bind def
46
/col33 {0.333 0.333 0.333 srgb} bind def
47
/col34 {0.557 0.561 0.557 srgb} bind def
48
/col35 {0.251 0.251 0.251 srgb} bind def
49
/col36 {0.502 0.502 0.502 srgb} bind def
50
/col37 {0.753 0.753 0.753 srgb} bind def
51
/col38 {0.878 0.878 0.878 srgb} bind def
55
newpath 0 554 moveto 0 0 lineto 232 0 lineto 232 554 lineto closepath clip newpath
56
-202.1 574.8 translate
59
/cp {closepath} bind def
61
/gr {grestore} bind def
64
/rs {restore} bind def
67
/rm {rmoveto} bind def
71
/slc {setlinecap} bind def
72
/slj {setlinejoin} bind def
73
/slw {setlinewidth} bind def
74
/srgb {setrgbcolor} bind def
75
/rot {rotate} bind def
77
/sd {setdash} bind def
78
/ff {findfont} bind def
79
/sf {setfont} bind def
80
/scf {scalefont} bind def
81
/sw {stringwidth} bind def
82
/tr {translate} bind def
83
/tnt {dup dup currentrgbcolor
84
4 -2 roll dup 1 exch sub 3 -1 roll mul add
85
4 -2 roll dup 1 exch sub 3 -1 roll mul add
86
4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
88
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
89
4 -2 roll mul srgb} bind def
90
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
91
/$F2psEnd {$F2psEnteredState restore end} def
99
/Times-Roman ff 75.00 scf sf
101
gs 1 -1 sc (Current_Module^.In_Compile:=TRUE) dup sw pop 2 div neg 0 rm col0 sh gr
102
/Times-Roman ff 90.00 scf sf
104
gs 1 -1 sc (level) dup sw pop 2 div neg 0 rm col0 sh gr
107
n 4693 777 m 5624 777 l 5624 1004 l 4693 1004 l
109
/Times-Roman ff 90.00 scf sf
111
gs 1 -1 sc (Save all global) dup sw pop 2 div neg 0 rm col0 sh gr
112
/Times-Roman ff 90.00 scf sf
114
gs 1 -1 sc (state variables) dup sw pop 2 div neg 0 rm col0 sh gr
116
n 4697 1198 m 5628 1198 l 5628 1424 l 4697 1424 l
118
/Times-Roman ff 90.00 scf sf
120
gs 1 -1 sc (Indicate that) dup sw pop 2 div neg 0 rm col0 sh gr
121
/Times-Roman ff 90.00 scf sf
123
gs 1 -1 sc (module is being) dup sw pop 2 div neg 0 rm col0 sh gr
124
/Times-Roman ff 90.00 scf sf
126
gs 1 -1 sc (compiled) dup sw pop 2 div neg 0 rm col0 sh gr
128
n 4689 2818 m 5611 2818 l 5611 3183 l 4689 3183 l
130
/Times-Roman ff 90.00 scf sf
132
gs 1 -1 sc (Initialize compiler) dup sw pop 2 div neg 0 rm col0 sh gr
133
/Times-Roman ff 90.00 scf sf
135
gs 1 -1 sc (switches) dup sw pop 2 div neg 0 rm col0 sh gr
137
n 4685 3380 m 5616 3380 l 5616 3606 l 4685 3606 l
139
/Times-Roman ff 90.00 scf sf
141
gs 1 -1 sc (Initialize CPU) dup sw pop 2 div neg 0 rm col0 sh gr
142
/Times-Roman ff 90.00 scf sf
144
gs 1 -1 sc (target) dup sw pop 2 div neg 0 rm col0 sh gr
146
n 4681 3803 m 5613 3803 l 5613 4029 l 4681 4029 l
148
/Times-Roman ff 90.00 scf sf
150
gs 1 -1 sc (Init and assign) dup sw pop 2 div neg 0 rm col0 sh gr
151
/Times-Roman ff 90.00 scf sf
153
gs 1 -1 sc (scanner object) dup sw pop 2 div neg 0 rm col0 sh gr
155
n 4685 4218 m 5616 4218 l 5616 4444 l 4685 4444 l
157
/Times-Roman ff 90.00 scf sf
159
gs 1 -1 sc (Initialize code) dup sw pop 2 div neg 0 rm col0 sh gr
160
/Times-Roman ff 90.00 scf sf
162
gs 1 -1 sc (generator) dup sw pop 2 div neg 0 rm col0 sh gr
164
n 4685 5054 m 5616 5054 l 5616 5281 l 4685 5281 l
168
5155 5980 l gs col0 s gr
171
5147 5987 l gs col0 s gr
174
5673 5740 l gs col0 s gr
177
5155 5487 l gs col0 s gr
178
/Times-Roman ff 75.00 scf sf
180
gs 1 -1 sc (Token=UNIT?) dup sw pop 2 div neg 0 rm col0 sh gr
181
/Times-Roman ff 75.00 scf sf
183
gs 1 -1 sc (or compile_level=1) dup sw pop 2 div neg 0 rm col0 sh gr
186
5145 2112 l gs col0 s gr
189
5138 2119 l gs col0 s gr
192
5664 1873 l gs col0 s gr
195
5145 1620 l gs col0 s gr
196
/Times-Roman ff 90.00 scf sf
198
gs 1 -1 sc (Current module) dup sw pop 2 div neg 0 rm col0 sh gr
199
/Times-Roman ff 90.00 scf sf
201
gs 1 -1 sc (valid?) dup sw pop 2 div neg 0 rm col0 sh gr
204
5129 6275 m 5156 6275 l 5156 6188 l 5143 6244 l 5129 6188 l cp
207
5143 6260 l gs col0 s gr gr
210
n 5129 6188 m 5143 6244 l 5156 6188 l 5129 6188 l cp gs 0.00 setgray ef gr col0 s
212
n 5143 5984 m 5143 6047 l
213
5140 6047 l gs col0 s gr
214
/Times-Roman ff 75.00 scf sf
216
gs 1 -1 sc (No) dup sw pop 2 div neg 0 rm col0 sh gr
217
/Times-Roman ff 90.00 scf sf
219
gs 1 -1 sc (Parse program) dup sw pop 2 div neg 0 rm col0 sh gr
220
/Times-Roman ff 90.00 scf sf
222
gs 1 -1 sc (or library) dup sw pop 2 div neg 0 rm col0 sh gr
223
/Times-Roman ff 90.00 scf sf
225
gs 1 -1 sc (generate tree) dup sw pop 2 div neg 0 rm col0 sh gr
226
/Times-Roman ff 90.00 scf sf
228
gs 1 -1 sc (and code) dup sw pop 2 div neg 0 rm col0 sh gr
229
/Times-Roman ff 90.00 scf sf
231
gs 1 -1 sc (Free scanner) dup sw pop 2 div neg 0 rm col0 sh gr
232
/Times-Roman ff 90.00 scf sf
234
gs 1 -1 sc (object) dup sw pop 2 div neg 0 rm col0 sh gr
237
5122 8506 m 5149 8506 l 5149 8419 l 5136 8475 l 5122 8419 l cp
240
5136 8491 l gs col0 s gr gr
243
n 5122 8419 m 5136 8475 l 5149 8419 l 5122 8419 l cp gs 0.00 setgray ef gr col0 s
245
n 5136 8215 m 5136 8278 l
246
5132 8278 l gs col0 s gr
247
/Times-Roman ff 75.00 scf sf
249
gs 1 -1 sc (Yes) dup sw pop 2 div neg 0 rm col0 sh gr
252
5957 5747 m 5957 5720 l 5870 5720 l 5926 5734 l 5870 5747 l cp
255
5942 5734 l gs col0 s gr gr
258
n 5870 5747 m 5926 5734 l 5870 5720 l 5870 5747 l cp gs 0.00 setgray ef gr col0 s
260
n 5667 5734 m 5730 5734 l
261
5730 5738 l gs col0 s gr
262
/Times-Roman ff 90.00 scf sf
264
gs 1 -1 sc (Proc_Program\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
265
/Times-Roman ff 90.00 scf sf
267
gs 1 -1 sc (Increment compile) dup sw pop 2 div neg 0 rm col0 sh gr
270
5953 1883 m 5953 1856 l 5866 1856 l 5922 1870 l 5866 1883 l cp
273
5938 1870 l gs col0 s gr gr
276
n 5866 1883 m 5922 1870 l 5866 1856 l 5866 1883 l cp gs 0.00 setgray ef gr col0 s
278
n 5663 1870 m 5726 1870 l
279
5726 1873 l gs col0 s gr
280
/Times-Roman ff 90.00 scf sf
282
gs 1 -1 sc (Reset module info) dup sw pop 2 div neg 0 rm col0 sh gr
283
/Times-Roman ff 90.00 scf sf
285
gs 1 -1 sc (to defaults) dup sw pop 2 div neg 0 rm col0 sh gr
286
/Times-Roman ff 90.00 scf sf
288
gs 1 -1 sc (Restore all state) dup sw pop 2 div neg 0 rm col0 sh gr
289
/Times-Roman ff 90.00 scf sf
291
gs 1 -1 sc (global variables) dup sw pop 2 div neg 0 rm col0 sh gr
293
n 5348.5 9000.5 111.5 -88.2 89.8 arc
297
n 4927.5 9000.5 111.5 -91.3 89.7 arcn
302
5358 8889 l gs col0 s gr
305
5358 9113 l gs col0 s gr
307
n 5373.0 459.0 112.0 -88.5 89.5 arc
311
n 4952.9 459.0 112.0 -91.5 90.0 arcn
316
5383 348 l gs col0 s gr
319
5383 571 l gs col0 s gr
320
/Times-Roman ff 90.00 scf sf
322
gs 1 -1 sc (Read first token) dup sw pop 2 div neg 0 rm col0 sh gr
323
/Times-Roman ff 90.00 scf sf
325
gs 1 -1 sc (from scanner) dup sw pop 2 div neg 0 rm col0 sh gr
326
/Times-Roman ff 90.00 scf sf
328
gs 1 -1 sc (Decrement) dup sw pop 2 div neg 0 rm col0 sh gr
329
/Times-Roman ff 90.00 scf sf
331
gs 1 -1 sc (compile level) dup sw pop 2 div neg 0 rm col0 sh gr
332
/Times-Roman ff 90.00 scf sf
334
gs 1 -1 sc (Indicate that) dup sw pop 2 div neg 0 rm col0 sh gr
335
/Times-Roman ff 90.00 scf sf
337
gs 1 -1 sc (module is a unit) dup sw pop 2 div neg 0 rm col0 sh gr
338
/Times-Roman ff 90.00 scf sf
340
gs 1 -1 sc (Parse unit and) dup sw pop 2 div neg 0 rm col0 sh gr
341
/Times-Roman ff 90.00 scf sf
343
gs 1 -1 sc (generate tree) dup sw pop 2 div neg 0 rm col0 sh gr
344
/Times-Roman ff 90.00 scf sf
346
gs 1 -1 sc (and code) dup sw pop 2 div neg 0 rm col0 sh gr
348
n 5938 6282 m 6865 6282 l 6865 6613 l 5938 6613 l
352
5139 783 m 5166 783 l 5166 696 l 5153 752 l 5139 696 l cp
355
5153 768 l gs col0 s gr gr
358
n 5139 696 m 5153 752 l 5166 696 l 5139 696 l cp gs 0.00 setgray ef gr col0 s
361
5139 1212 m 5166 1212 l 5166 1125 l 5153 1181 l 5139 1125 l cp
364
5153 1197 l gs col0 s gr gr
367
n 5139 1125 m 5153 1181 l 5166 1125 l 5139 1125 l cp gs 0.00 setgray ef gr col0 s
370
5133 1631 m 5160 1631 l 5160 1544 l 5147 1600 l 5133 1544 l cp
373
5147 1616 l gs col0 s gr gr
376
n 5133 1544 m 5147 1600 l 5160 1544 l 5133 1544 l cp gs 0.00 setgray ef gr col0 s
379
5121 2836 m 5148 2836 l 5148 2749 l 5135 2805 l 5121 2749 l cp
382
5135 2821 l gs col0 s gr gr
385
n 5121 2749 m 5135 2805 l 5148 2749 l 5121 2749 l cp gs 0.00 setgray ef gr col0 s
388
5125 3395 m 5152 3395 l 5152 3308 l 5139 3364 l 5125 3308 l cp
391
5139 3380 l gs col0 s gr gr
394
n 5125 3308 m 5139 3364 l 5152 3308 l 5125 3308 l cp gs 0.00 setgray ef gr col0 s
397
5125 3817 m 5152 3817 l 5152 3730 l 5139 3786 l 5125 3730 l cp
400
5139 3802 l gs col0 s gr gr
403
n 5125 3730 m 5139 3786 l 5152 3730 l 5125 3730 l cp gs 0.00 setgray ef gr col0 s
406
5128 4237 m 5155 4237 l 5155 4150 l 5142 4206 l 5128 4150 l cp
409
5142 4222 l gs col0 s gr gr
412
n 5128 4150 m 5142 4206 l 5155 4150 l 5128 4150 l cp gs 0.00 setgray ef gr col0 s
415
5125 4649 m 5152 4649 l 5152 4562 l 5139 4618 l 5125 4562 l cp
418
5139 4634 l gs col0 s gr gr
421
n 5125 4562 m 5139 4618 l 5152 4562 l 5125 4562 l cp gs 0.00 setgray ef gr col0 s
424
5128 5067 m 5155 5067 l 5155 4980 l 5142 5036 l 5128 4980 l cp
427
5142 5052 l gs col0 s gr gr
430
n 5128 4980 m 5142 5036 l 5155 4980 l 5128 4980 l cp gs 0.00 setgray ef gr col0 s
433
5132 5496 m 5159 5496 l 5159 5409 l 5146 5465 l 5132 5409 l cp
436
5146 5481 l gs col0 s gr gr
439
n 5132 5409 m 5146 5465 l 5159 5409 l 5132 5409 l cp gs 0.00 setgray ef gr col0 s
441
n 4681 2395 m 5613 2395 l 5613 2622 l 4681 2622 l
444
n 5136 2118 m 5136 2181 l
445
5132 2181 l gs col0 s gr
448
5118 2409 m 5145 2409 l 5145 2322 l 5132 2378 l 5118 2322 l cp
451
5132 2394 l gs col0 s gr gr
454
n 5118 2322 m 5132 2378 l 5145 2322 l 5118 2322 l cp gs 0.00 setgray ef gr col0 s
456
n 4685 6256 m 5616 6256 l 5616 6675 l 4685 6675 l
460
5118 6878 m 5145 6878 l 5145 6791 l 5132 6847 l 5118 6791 l cp
463
5132 6863 l gs col0 s gr gr
466
n 5118 6791 m 5132 6847 l 5145 6791 l 5118 6791 l cp gs 0.00 setgray ef gr col0 s
469
5118 7312 m 5145 7312 l 5145 7225 l 5132 7281 l 5118 7225 l cp
472
5132 7297 l gs col0 s gr gr
475
n 5118 7225 m 5132 7281 l 5145 7225 l 5118 7225 l cp gs 0.00 setgray ef gr col0 s
477
n 4689 7294 m 5620 7294 l 5620 7519 l 4689 7519 l
480
n 4685 6871 m 5616 6871 l 5616 7098 l 4685 7098 l
484
5122 7727 m 5149 7727 l 5149 7640 l 5136 7696 l 5122 7640 l cp
487
5136 7712 l gs col0 s gr gr
490
n 5122 7640 m 5136 7696 l 5149 7640 l 5122 7640 l cp gs 0.00 setgray ef gr col0 s
492
n 4681 6249 m 5613 6249 l 5613 6668 l 4681 6668 l
496
5138 8208 l gs col0 s gr
499
5131 8215 l gs col0 s gr
502
5656 7968 l gs col0 s gr
505
5138 7716 l gs col0 s gr
507
n 5936 1760 m 6866 1760 l 6866 1986 l 5936 1986 l
511
5605 2485 m 5605 2512 l 5691 2512 l 5636 2499 l 5691 2485 l cp
513
n 6382 1986 m 6382 2499 l
514
5620 2499 l gs col0 s gr gr
517
n 5691 2485 m 5636 2499 l 5691 2512 l 5691 2485 l cp gs 0.00 setgray ef gr col0 s
519
n 4685 8494 m 5616 8494 l 5616 8721 l 4685 8721 l
522
n 4685 4634 m 5616 4634 l 5616 4860 l 4685 4860 l
526
5121 8898 m 5148 8898 l 5148 8811 l 5135 8867 l 5121 8811 l cp
529
5135 8883 l gs col0 s gr gr
532
n 5121 8811 m 5135 8867 l 5148 8811 l 5121 8811 l cp gs 0.00 setgray ef gr col0 s
534
n 5669 7964 m 5958 7964 l
535
5958 8139 l gs col0 s gr
538
5609 8579 m 5608 8607 l 5695 8608 l 5640 8594 l 5695 8580 l cp
540
n 5955 8408 m 5955 8597 l
541
5624 8594 l gs col0 s gr gr
544
n 5695 8580 m 5640 8594 l 5695 8608 l 5695 8580 l cp gs 0.00 setgray ef gr col0 s
546
n 5948 5622 m 6879 5622 l 6879 5848 l 5948 5848 l
550
6384 6300 m 6411 6300 l 6411 6213 l 6398 6269 l 6384 6213 l cp
553
6398 6285 l gs col0 s gr gr
556
n 6384 6213 m 6398 6269 l 6411 6213 l 6384 6213 l cp gs 0.00 setgray ef gr col0 s
559
5603 6969 m 5603 6996 l 5689 6996 l 5634 6983 l 5689 6969 l cp
561
n 6397 6615 m 6397 6983 l
562
5618 6983 l gs col0 s gr gr
565
n 5689 6969 m 5634 6983 l 5689 6996 l 5689 6969 l cp gs 0.00 setgray ef gr col0 s
568
n 5934 7159 m 6865 7159 l 6865 7386 l 5934 7386 l
569
cp gs col0 s gr [] 0 sd
573
6383 7172 m 6410 7172 l 6410 7085 l 6397 7141 l 6383 7085 l cp
576
6397 7157 l gs col0 s gr gr
579
n 6383 7085 m 6397 7141 l 6410 7085 l 6383 7085 l cp gs 0.00 setgray ef gr col0 s
583
4170 7390 m 4170 7417 l 4256 7417 l 4201 7404 l 4256 7390 l cp
586
4185 7404 l gs col0 s gr gr
589
n 4256 7390 m 4201 7404 l 4256 7417 l 4256 7390 l cp gs 0.00 setgray ef gr col0 s
592
n 3238 6354 m 4170 6354 l 4170 6580 l 3238 6580 l
593
cp gs col0 s gr [] 0 sd
596
n 3245 7289 m 4177 7289 l 4177 7516 l 3245 7516 l
597
cp gs col0 s gr [] 0 sd
601
4158 6441 m 4157 6468 l 4244 6469 l 4189 6455 l 4244 6441 l cp
604
4173 6455 l gs col0 s gr gr
607
n 4244 6441 m 4189 6455 l 4244 6469 l 4244 6441 l cp gs 0.00 setgray ef gr col0 s
610
n 3241 5055 m 4173 5055 l 4173 5281 l 3241 5281 l
611
cp gs col0 s gr [] 0 sd
615
4158 5138 m 4157 5166 l 4244 5167 l 4189 5153 l 4244 5139 l cp
618
4173 5153 l gs col0 s gr gr
621
n 4244 5139 m 4189 5153 l 4244 5167 l 4244 5139 l cp gs 0.00 setgray ef gr col0 s
625
4166 4731 m 4166 4758 l 4252 4758 l 4197 4745 l 4252 4731 l cp
628
4181 4745 l gs col0 s gr gr
631
n 4252 4731 m 4197 4745 l 4252 4758 l 4252 4731 l cp gs 0.00 setgray ef gr col0 s
634
n 3221 2893 m 4151 2893 l 4151 3119 l 3221 3119 l
635
cp gs col0 s gr [] 0 sd
639
4145 2974 m 4145 3001 l 4231 3001 l 4176 2988 l 4231 2974 l cp
642
4160 2988 l gs col0 s gr gr
645
n 4231 2974 m 4176 2988 l 4231 3001 l 4231 2974 l cp gs 0.00 setgray ef gr col0 s
648
n 3241 4634 m 4173 4634 l 4173 4860 l 3241 4860 l
649
cp gs col0 s gr [] 0 sd
650
/Times-Roman ff 90.00 scf sf
652
gs 1 -1 sc (Initialize module) dup sw pop 2 div neg 0 rm col0 sh gr
653
/Times-Roman ff 75.00 scf sf
655
gs 1 -1 sc (No) dup sw pop 2 div neg 0 rm col0 sh gr
656
/Times-Roman ff 90.00 scf sf
658
gs 1 -1 sc (Dispose of the tree) dup sw pop 2 div neg 0 rm col0 sh gr
659
/Times-Roman ff 90.00 scf sf
661
gs 1 -1 sc (compile level>=1) dup sw pop 2 div neg 0 rm col0 sh gr
662
/Times-Roman ff 90.00 scf sf
664
gs 1 -1 sc (Parser.Compile\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
665
/Times-Roman ff 90.00 scf sf
667
gs 1 -1 sc (No) dup sw pop 2 div neg 0 rm col0 sh gr
668
/Times-Roman ff 90.00 scf sf
670
gs 1 -1 sc (Proc_ unit\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
671
/Times-Roman ff 90.00 scf sf
673
gs 1 -1 sc (codegen_donemodule\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
674
/Times-Roman ff 90.00 scf sf
676
gs 1 -1 sc (Codegen_NewModule\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
677
/Times-Roman ff 75.00 scf sf
679
gs 1 -1 sc (Current_Scanner^.Read_Token\(\)) dup sw pop 2 div neg 0 rm col0 sh gr
680
/Times-Roman ff 75.00 scf sf
682
gs 1 -1 sc (Yes) dup sw pop 2 div neg 0 rm col0 sh gr
683
/Times-Roman ff 75.00 scf sf
685
gs 1 -1 sc (Yes) dup sw pop 2 div neg 0 rm col0 sh gr