sic verify on
device xlandscape black  ! Bring up a graphic window, with black background
!
say "Type CONTINUE to read the Gl570B example file"
pause
read gag_demo:gl570b_profile      
!
say "Type CONTINUE to fit an orbit to the Gl570B data"
pause
fit
!
say "Type CONTINUE to plot the visual orbit"
pause
visu /visual
!
say "Type CONTINUE to plot the radial velocity orbit"
pause
visu /velocity
!
say "Type CONTINUE to compute the resulting masses and distance"
pause
list mass
