This:
load sound "sound-01.wav",1
load sound "sound-02.wav",2
load sound "sound-03.wav",3
load sound "sound-04.wav",4
load sound "sound-05.wav",5
load sound "sound-06.wav",6
load sound "sound-07.wav",7
load sound "sound-08.wav",8
load sound "sound-09.wav",9
load sound "sound-10.wav",10
load sound "sound-11.wav",11
load sound "sound-12.wav",12
load sound "sound-13.wav",13
load sound "sound-14.wav",14
load sound "sound-15.wav",15
load sound "sound-16.wav",16
load sound "sound-17.wav",17
load sound "sound-18.wav",18
load sound "sound-19.wav",19
load sound "sound-20.wav",20
load sound "sound-21.wav",21
load sound "sound-22.wav",22
load sound "sound-23.wav",23
load sound "sound-24.wav",24
load sound "sound-25.wav",25
load sound "sound-26.wav",26
load sound "sound-27.wav",27
load sound "sound-28.wav",28
load sound "sound-29.wav",29
load sound "sound-30.wav",30
load sound "sound-31.wav",31
load sound "sound-32.wav",32
load sound "sound-33.wav",33
load sound "sound-34.wav",34
load sound "sound-35.wav",35
load sound "sound-36.wav",36
load sound "sound-37.wav",37
load sound "sound-38.wav",38
load sound "sound-39.wav",39
load sound "sound-40.wav",40
load sound "sound-41.wav",41
load sound "sound-42.wav",42
load sound "sound-43.wav",43
load sound "sound-44.wav",44
load sound "sound-45.wav",45
load sound "sound-46.wav",46
load sound "sound-47.wav",47
load sound "sound-48.wav",48
load sound "sound-49.wav",49
load sound "sound-50.wav",50
load sound "sound-51.wav",51
load sound "sound-52.wav",52
load sound "sound-53.wav",53
load sound "sound-54.wav",54
load sound "sound-55.wav",55
Could be changed to:
For N=1 To 55
SndNum$=Str$(N): If Len(SndNum$)=1 Then SndNum$="0"+SndNum$
Load Sound "sound-"+SndNum$+".wav",N
Next N
You also need Return after all of the Mode procedures at the end. Without a return they are only labels and you would need to use Goto to get back into the main loop - definitely NOT recommended!
Also, this section can be made a little simpler:
sc=scancode()
if sc >1 and sc<12
Mode=Sc-1
Gosub MainMode
Endif
MainMode:
Select Mode
Case 1: Rem Do Whatever: EndCase
Case 2: Rem Do Whatever: EndCase
Case 3: Rem Do Whatever: EndCase
Case 4: Rem Do Whatever: EndCase
Rem And so on up to 10...
EndSelect
Return
Not a lot different to what LBFN suggests - just my way of doing it.
There's always more than one way to skin a cat...
TDK_Man