Updated Examples.

audio.mod/doc/audiodriverexists.bmx

@@ -0,0 +1,9 @@
+SuperStrict
+
+'Iterate through every available audio driver on your system
+For Local a:String = EachIn AudioDrivers()
+	Print a + ":"+AudioDriverExists(a)
+Next
+
+Local a:String ="imaginary driver"
+Print a+":"+AudioDriverExists(a)

audio.mod/doc/audiodrivers.bmx

@@ -0,0 +1,8 @@
+SuperStrict
+
+'Iterate through every available audio driver on your system
+For Local a:String = EachIn AudioDrivers()
+	Print a
+Next
+
+

audio.mod/doc/cuesound.bmx

@@ -1,6 +1,4 @@
-Rem
-CueSound example
-End Rem
+' CueSound example
 
 SuperStrict
 

audio.mod/doc/pausechannel.bmx

@@ -0,0 +1,23 @@
+' PauseChannel Example
+
+SuperStrict
+
+Graphics 640 , 480
+
+Local noise:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local channel:TChannel = PlaySound(noise)
+Local elapsed:Int = MilliSecs()
+
+Repeat
+	Cls
+	DrawText "Press P to play sound" , 10 , 10
+	If (MilliSecs() - elapsed) > 500
+		PauseChannel(channel) ' pause after 0.5 secs played
+	End If
+	
+	If KeyHit(KEY_P) Then
+		channel = PlaySound(noise)
+		elapsed = MilliSecs() 
+	End If
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/resumechannel.bmx

@@ -0,0 +1,22 @@
+' ResumeChannel example
+SuperStrict
+
+Graphics 640, 480
+
+Local sound:TSound = LoadSound(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg")
+Local channel:TChannel = CueSound(sound)
+
+Repeat
+	DrawText "Press A to play sound",10,10
+	DrawText "Press C to Cue sound",10,30
+	
+	If KeyHit(KEY_A) Then
+		ResumeChannel channel
+	End If
+	
+	If KeyHit(KEY_C) Then
+		Channel=CueSound(sound)
+	End If
+
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/setaudiodriver.bmx

@@ -0,0 +1,27 @@
+SuperStrict
+
+Repeat
+	Print "Select Audio Driver:"
+	Print "1) FreeAudio"
+	Print "2) OpenAL"
+	Print "3) DirectSound"
+
+	Local n:Int
+	Select Input( ">" )
+		Case 1
+			n = SetDriver( "FreeAudio" )
+		Case 2
+			n = SetDriver( "OpenAL" )
+		Case 3
+			n = SetDriver( "DirectSound" )
+	End Select
+	If n Exit
+Forever
+
+Function SetDriver:Int(d:String)
+	If AudioDriverExists(d) Then
+		Return SetAudioDriver(d)
+	Else
+		RuntimeError "Cannot set " + d
+	EndIf
+End Function

audio.mod/doc/setchanneldepth.bmx

@@ -8,7 +8,9 @@ Local channel:TChannel = AllocChannel ()
 Local sound:TSound = LoadSound ("shoot.wav") ' Use a short sample...
 
 Repeat
-	If MouseHit(1) PlaySound sound,channel
+	If MouseHit(1) Then
+		PlaySound sound,channel
+	End If
 	
 	Local pan# = MouseX () / (640 / 2.0) - 1
 	Local depth# = MouseY () / (480 /2.0) -1

audio.mod/doc/setchannelpan.bmx

@@ -8,7 +8,9 @@ Local channel:TChannel = AllocChannel ()
 Local sound:TSound = LoadSound ("shoot.wav") ' Use a short sample...
 
 Repeat
-	If MouseHit(1) PlaySound sound,channel
+	If MouseHit(1) Then
+		PlaySound sound,channel
+	End If
 	
 	Local pan# = MouseX () / (GraphicsWidth () / 2.0) - 1
 	Local vol# = 1 - MouseY () / 480.0

audio.mod/doc/stopchannel.bmx

@@ -1,14 +1,10 @@
-Rem
-StopChannel example
-End Rem
+' StopChannel example
 
 SuperStrict
 
 Local sound:TSound = LoadSound("shoot.wav",True)
 Local channel:TChannel = PlaySound(sound)
 
-Print "channel="+channel
-
 Input "Press return key to stop sound"
 
 StopChannel channel

audio.mod/doc/tchannel.bmx

@@ -0,0 +1,19 @@
+'TChannel controls the pipe thru which the sound plays
+SuperStrict
+
+Graphics 640 , 480
+
+Local noise:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local channel:TChannel = PlaySound(noise)
+
+Repeat
+	Cls
+	DrawText "Press P to play sound", 10, 10
+	If channel.Playing() Then
+		DrawText "You should hear something...",10,30
+	End If
+	If KeyHit(KEY_P) Then
+		Channel=PlaySound(Noise)
+	End If
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/tchannel_playing.bmx

@@ -0,0 +1,22 @@
+'TChannel Playing Method Example
+SuperStrict
+
+Graphics 640, 480
+
+Local noise:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local channel:TChannel = PlaySound(noise)
+
+Repeat
+	Cls
+	DrawText "Press P to play sound", 10, 10
+	
+	If channel.Playing() Then
+		DrawText "You should hear something...", 10, 30
+	End If
+	
+	If KeyHit(KEY_P) Then
+		channel = PlaySound(noise)
+	End If
+	
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/tsound.bmx

@@ -0,0 +1,25 @@
+' TSound has three methods Play and Cue and a Load Function
+SuperStrict
+
+Graphics 640 , 480
+
+Local Sound:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local Channel:TChannel = Sound.Cue() ' cue to a channel
+
+Repeat
+	DrawText "Press P to play, C to Cue and R to Resume sound",10,10
+	
+	If KeyHit(KEY_P) Then
+		Sound.Play()
+	End If
+	
+	If KeyHit(KEY_C) Then
+		Channel=Sound.Cue()
+	End If
+	
+	If KeyHit(KEY_R) Then
+		ResumeChannel(Channel)
+	End If
+	
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/tsound_cue.bmx

@@ -0,0 +1,23 @@
+'Cue Method
+
+SuperStrict
+
+Graphics 640 , 480
+
+Local sound:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local channel:TChannel = CueSound(sound)
+
+Repeat
+	DrawText "Press A to play sound",10,10
+	DrawText "Press C to Cue sound",10,30
+	
+	If KeyHit(KEY_A) Then
+		ResumeChannel channel
+	End If
+	
+	If KeyHit(KEY_C) Then
+		channel = sound.Cue()
+	End If
+
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/tsound_load.bmx

@@ -0,0 +1,23 @@
+' load function
+
+SuperStrict
+
+Graphics 640 ,480
+
+Local Sound:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+Local Channel:TChannel = CueSound(sound)
+
+Repeat
+	DrawText "Press A to play sound",10,10
+	DrawText "Press C to Cue sound",10,30
+
+	If KeyHit(KEY_A) Then
+		ResumeChannel channel
+	End If
+	
+	If KeyHit(KEY_C) Then
+		channel = sound.Cue()
+	End If
+
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

audio.mod/doc/tsound_play.bmx

@@ -0,0 +1,16 @@
+' Play method example
+SuperStrict
+
+Graphics 640, 480
+
+Local noise:TSound = TSound.Load(blitzmaxpath()+"\samples\hitoro\sounds\gameover.ogg",0)
+
+Repeat
+	DrawText "Press P to play sound",10,10
+	
+	If KeyHit(KEY_P) Then
+		noise.Play
+	End If
+	
+	Flip
+Until AppTerminate() Or KeyHit(KEY_ESCAPE)

bank.mod/doc/bankbuf.bmx

@@ -0,0 +1,9 @@
+SuperStrict
+
+Local bank:TBank = CreateBank(100)
+PokeByte bank, 10, 255
+ 
+Local bptr:Byte Ptr = BankBuf(bank)
+
+Print PeekByte(bank , 10)
+Print bptr[10]

bank.mod/doc/bankcapacity.bmx

@@ -0,0 +1,6 @@
+SuperStrict
+
+Local bank:TBank = CreateBank( Int(20 + Rnd(40)) )
+
+Print "size of the bank is: "+BankSize(bank)
+Print "capacity of the bank is: "+BankCapacity(bank)

bank.mod/doc/banksize.bmx

@@ -0,0 +1,5 @@
+SuperStrict
+
+Local bank:TBank = CreateBank( Int(10 + Rnd(40)) )
+
+Print "size of the bank is: "+BankSize(bank)

bank.mod/doc/copybank.bmx

@@ -0,0 +1,19 @@
+SuperStrict
+
+Local bank:TBank = CreateBank(100)
+
+For Local i:Int = 0 Until 100
+	PokeByte bank, i ,i
+Next
+
+Print "Original Bank Values..."
+For Local i:Int = 0 To 10
+	Print PeekByte(bank , 50 + i)
+Next
+
+Local copiedbank:TBank = CreateBank(100)
+CopyBank(bank, 50, copiedBank, 0, 10+1) 
+Print "Copied Bank Values..."
+For Local i:Int = 0 To 10
+	Print PeekByte(CopiedBank , i)
+Next

bank.mod/doc/createbank.bmx

@@ -0,0 +1,7 @@
+SuperStrict
+
+Local myBank:TBank = CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/loadbank.bmx

@@ -0,0 +1,16 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int=0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+SaveBank myBank,"mybank.dat"
+
+Local myNextBank:TBank=LoadBank("mybank.dat")
+
+For Local t:Int = 0 Until BankSize(myNextBank)
+	Print PeekByte(myNextBank,t)
+Next

bank.mod/doc/peekbyte.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+Next
+
+Print PeekByte(myBank,0)
+Print PeekByte(myBank,1)
+
+End

bank.mod/doc/peekdouble.bmx

@@ -0,0 +1,15 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Print
+Print PeekDouble(myBank,0)
+Print PeekDouble(myBank,1)
+Print PeekDouble(myBank,8)
+
+End

bank.mod/doc/peekfloat.bmx

@@ -0,0 +1,15 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Print
+Print PeekFloat(myBank,0)
+Print PeekFloat(myBank,1)
+Print PeekFloat(myBank,12)
+
+End

bank.mod/doc/peekint.bmx

@@ -0,0 +1,13 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Print
+Print PeekInt(myBank,0)
+Print PeekInt(myBank,1)
+Print PeekInt(myBank,12)

bank.mod/doc/peeklong.bmx

@@ -0,0 +1,13 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Print
+Print PeekLong(myBank,0)
+Print PeekLong(myBank,1)
+Print PeekLong(myBank,8)

bank.mod/doc/peekshort.bmx

@@ -0,0 +1,15 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Print
+Print PeekShort(myBank,0)
+Print PeekShort(myBank,1)
+Print PeekShort(myBank,14)
+
+End

bank.mod/doc/pokebyte.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeByte myBank,0,123
+PokeByte myBank,15,234
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/pokebyte_1.bmx

@@ -0,0 +1,8 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeByte myBank,0,$11
+PokeShort myBank,1,$1122 ' new address = 0+1=[1]
+PokeInt myBank,3,$11223344 ' new address = [1]+2=(3)
+PokeLong myBank,7,$1122334455667788 ' new address = (3)+4=7

bank.mod/doc/pokedouble.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeDouble myBank,0,123495543.12342345123:Double
+PokeDouble myBank,8,121235567.89015678123:Double
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/pokefloat.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeFloat myBank,0,0.123456
+PokeFloat myBank,12,1234.5678
+
+For Local t:Int = 0 ubtil BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/pokeint.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeInt myBank,0,-10000001
+PokeInt myBank,12,31415926
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/pokeint_1.bmx

@@ -0,0 +1,7 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until 4
+	PokeInt MyBank,t*4,Int(Rnd($12345678))
+Next

bank.mod/doc/pokelong.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeLong myBank,0,-10000001234567
+PokeLong myBank,8,31415926000000
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/pokeshort.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+PokeShort myBank,0,256
+PokeShort myBank,14,32768+1
+
+For Local t:Int = 0 Until BankSize(myBank)
+	Print PeekByte(myBank,t)
+Next

bank.mod/doc/savebank.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(16)
+
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+SaveBank MyBank,"mybank.dat"

bank.mod/doc/tbank_buf.bmx

@@ -0,0 +1,9 @@
+SuperStrict
+
+Local bank:TBank = CreateBank(100)
+PokeByte bank, 10, 255
+ 
+Local bptr:Byte Ptr = bank.Buf()
+
+Print PeekByte(bank , 10)
+Print bptr[10]

bank.mod/doc/tbank_capacity.bmx

@@ -0,0 +1,6 @@
+SuperStrict
+
+Local bank:TBank=CreateBank( Int(20 + Rnd(40)) )
+
+Print "size of the bank is: "+BankSize(bank)
+Print "capacity of the bank is: "+Bank.Capacity()

bank.mod/doc/tbank_create.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Local bank:TBank=TBank.Create(100)
+
+For Local i:Int = 0 Until 100
+	PokeByte bank , i , i
+Next
+
+Print "Original Bank Values..."
+For Local i:Int = 0 Until 10
+	Print PeekByte(Bank , 50 + i)
+Next

bank.mod/doc/tbank_load.bmx

@@ -0,0 +1,17 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(8)
+
+Print "Created Bank..."
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+myBank.Save("mybank.dat")
+
+Local myNextBank:TBank=TBank.Load("mybank.dat")
+Print "Loaded Bank..."
+For Local t:Int = 0 Until BankSize(myNextBank)
+	Print PeekByte(myNextBank,t)
+Next

bank.mod/doc/tbank_save.bmx

@@ -0,0 +1,17 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(8)
+
+Print "Created Bank..."
+For Local t:Int = 0 Until BankSize(myBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+myBank.Save("mybank.dat")
+
+Local myNextBank:TBank = TBank.Load("mybank.dat")
+Print "Loaded Bank..."
+For Local t:Int = 0 Until BankSize(myNextBank)
+	Print PeekByte(myNextBank,t)
+Next

bank.mod/doc/tbank_write.bmx

@@ -0,0 +1,19 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(8)
+
+Print "Created Bank..."
+For Local t:Int = 0 Until BankSize(MyBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Local bankStream:TStream=WriteStream("mybank.dat")
+myBank.write(bankStream,0,BankSize(MyBank))
+CloseStream(bankStream)
+
+Local myNextBank:TBank=TBank.Load("mybank.dat")
+Print "Loaded Bank..."
+For Local t:Int = 0 Until BankSize(myNextBank)
+	Print PeekByte(myNextBank,t)
+Next

bank.mod/doc/writebank.bmx

@@ -0,0 +1,19 @@
+SuperStrict
+
+Local myBank:TBank=CreateBank(8)
+
+Print "Created Bank..."
+For Local t:Int = 0 Until BankSize(MyBank)
+	PokeByte mybank,t,Int(Rnd(255))
+	Print PeekByte(myBank,t)
+Next
+
+Local bankStream:TStream=WriteStream("mybank.dat")
+WriteBank(myBank,bankStream,0,BankSize(myBank))
+CloseStream(bankStream)
+
+Local myNextBank:TBank=TBank.Load("mybank.dat")
+Print "Loaded Bank..."
+For Local t:Int = 0 Until BankSize(MyNextBank)
+	Print PeekByte(MyNextBank,t)
+Next