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()
   time1 <- GetTime()
   resp <- WaitForListKeyPress(["1","2","3","4","5","6","7"])
   time2 <- GetTime()
   Print("response was: " + resp + ", which took " + (time2-time1)+" ms.")
}
