define Start(p)
{

  win <- MakeWindow("black")
  tb <- EasyTextBox("Baseline instructions",50,50,win,22,gVideoWidth-100,gVideoHeight-100)

  tb.text <- "These are the first set of instructions"
  Draw()
  WaitForAnyKeyPress()
  tb.text <- "These are the second set of instructions"
  Draw()
  WaitForAnyKeyPress()
  Hide(tb)
  Draw()



 MessageBox("These are the first instructions.",win)
 MessageBox("These are the second instructions.",win)

}
