macro read dispersion.sm
doit 0
macro read dispersion.sm
doit 0
macro read dispersion.sm
doit 0
macro read dispersion.sm
doit 0
erase
doit 0
macro read dispersion.sm erase doit 0
macro read dispersion.sm erase doit 1
!display dispersion.ps
device x11
!display dispersion.ps
quit
macro read mikezp.sm erase doit 0
relocate 0 19.6 draw 10000 19.6
macro read mikezp.sm erase doit 1
quit