sub störningsmoment()
msgbox "detta börjar: " + tid,okonly,"börjar"
msg box "hej nu kommer du ångra dig
allt",vbokonly,"störningsmoment"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "",okonly,"hehe"
msgbox "detta slutar:"+ tid,okonly,"hehe"

Function tid()
tid = time$
end function