subr setup_common
if !pdev ne 0 then pen,3 else pen,1
!erase=0
!landscape=1
!symsize=0.4
!fsize=0.4
!tickx=.004
!ticky=.004
endsubr