TiOpenSample("res\sound\buttonclick.wav", "buttonclick")
TiOpenSample("res\sound\dead.wav", "dead")
TiOpenSample("res\sound\finish.wav", "finish")
TiOpenSample("res\sound\ambience.mp3", "ambience")
TiOpenSample("res\sound\explosion.wav", "explosion")

For a as Integer = 0 to 4
    TiOpenSample("res\sound\breakstone.wav",        "breakstone"        & STR(a))
    TiOpenSample("res\sound\dig.wav",               "dig"               & STR(a))
    TiOpenSample("res\sound\pickup.wav",            "pickup"            & STR(a))
    TiOpenSample("res\sound\rollstone.wav",         "rollstone"         & STR(a))
    TiOpenSample("res\sound\stonecoll.wav",         "stonecoll"         & STR(a))
    TiOpenSample("res\sound\stoneslideside.wav",    "stoneslideside"    & STR(a))
    TiOpenSample("res\sound\fassroll.wav",          "fassroll"          & STR(a))
    TiOpenSample("res\sound\leak.wav",              "leak"              & STR(a))
Next a