.PS 8.5i
.ps 20
## figure 11
ellipsewid = ellipsewid*3/2
ellipseht = ellipseht*5/4
linewid = linewid*3/2
##
B1:	ellipse "RO spec"
B2:	box "ROSY" "compiler" \
		with .w at (B1.e.x+linewid, B1.e.y) 
	arrow from B1.e to B2.w
B2a:	ellipse invis with .s at (B2.n.x, B2.n.y+lineht)
B2b:	ellipse "stub" "defs/tables" "for operations" \
		with .c at B2a.c width 9*ellipsewid/8 height 9*ellipseht/8
	arrow from B2.n to B2b.s
##
B3:	box "POSY" "compiler" \
		with .w at (B2.e.x+linewid, B2.e.y) 	
	arrow from B2.e to B3.w
B3a:	ellipse invis with .s at (B3.n.x, B3.n.y+lineht)
B3b:	ellipse "structure defs" "for data types" \
		with .c at B3a.c width 9*ellipsewid/8 height 9*ellipseht/8
	arrow from B3.n to B3b.s
##
B4:	box "PEPY" "compiler" \
		with .w at (B3.e.x+linewid, B3.e.y) 	
	arrow from B3.e to B4.w
B4a:	ellipse invis with .s at (B4.n.x, B4.n.y+lineht)
B4b:	ellipse "conversion" "routines" "for data types" \
		with .c at B4a.c width 9*ellipsewid/8 height 9*ellipseht/8
	arrow from B4.n to B4b.s
##
	box dashed with .nw at (B2a.w.x-linewid/2, B2a.n.y+lineht/2) \
		height ellipseht+boxht width B4a.e.x-B2a.w.x+boxwid
##
.PE