subr setup8, i
if !pdev ne 0 then pen,3 else pen,1
!erase=0
!landscape=1
if !pdev eq 0 then {!symsize=0.5 !fsize=0.5} else {!symsize=0.4  !fsize=0.4}
!psfont=1
!tickx=.004
!ticky=.004
x1 = .05	x2 = .23
y1 = .03	y2 = .19
dx = 0.01 + (i%4) * .25
dy = 0.03 + (i/4) * .23
window, x1+dx, x2+dx, y1+dy, y2+dy
endsubr