
define Start(p)
{
  win <- MakeWindow()
  stim <- EasyLabel("Rate on a scale of 1 to 7 how good you feel today",
    400,300,win,18)
  Draw()
  resp <- WaitForListKeyPress(["1","2","3","4","5","6","7"])
  Print("response was: " + resp)
}
