Sub MakeNotDirty()
    ActivePresentation.Saved = True 'This was wrong in the book
End Sub

Sub Save()
    ActivePresentation.Save
End Sub

Sub Quit()
    Application.Quit
End Sub

Sub QuitAndSave()
    Save
    Quit
End Sub

Sub ChangeSomething()
    ActivePresentation.SlideShowWindow.View.Slide.Shapes(1).Fill.ForeColor.RGB = _
        RGB(Round(Rnd(Timer) * 255, 0), Round(Rnd(Timer) * 255, 0), Round(Rnd(Timer) * 255, 0))
End Sub