Function credits()
	//Luetaan tiedoston sisältö
	file = OpenToRead("credits")
	While Not EOF(file)
		AddText ReadLine(file)
	Wend
	CloseFile file
	
	//Estetään välitön poistuminen
	ClearKeys
	ClearMouse
	
	//Silmukka
	Repeat
		If GetKey() <> False Or GetMouse() <> False Then exit
		DrawScreen
	Forever
	
	PlaySound btthit
	ClearText
	//Estetääm välitön toiminta
	ClearKeys
	ClearMouse
EndFunction