Sub PassArray(TestArray() as String)
'do nothing
End Sub

Option Explicit
Option Default Integer

Dim string ProgTitle$ = "Array Test"
Dim String ProgVer$ = "v1.0 - 03-Nov-2017"

'working variables
Dim Integer I

Dim String S$(4) 'String Array (5 array elements)

'initialize
Print "Starting " + ProgTitle$ + ": " + ProgVer$

'setup data in the String Array elements
S$(0) = "0"
S$(1) = "25"
S$(2) = "50"
S$(3) = "75"
S$(4) = "100"

Print "S$ = ";
For I = 0 to 4
Print S$(I) + " ";
Next I
Print ""

ArrayTest()

Print "End of ArrayTest Program"

End

Sub ArrayTest()
For I = 0 to 4
Print "Test Iteration #" + Str$((I + 1))

PassArray(S$())

CheckArrayValues()

Pause 1000
Next I
End Sub

Sub CheckArrayValues()
'verify array values - report if mismatch found

If S$(0) <> "0" Then
Print "S$(0) Value corrupted - Expected: 0, Actual: " + S$(0)
EndIf

If S$(1) <> "25" Then
Print "S$(1) Value corrupted - Expected: 25, Actual: " + S$(1)
EndIf

If S$(2) <> "50" Then
Print "S$(2) Value corrupted - Expected: 50, Actual: " + S$(2)
EndIf

If S$(3) <> "75" Then
Print "S$(3) Value corrupted - Expected: 75, Actual: " + S$(3)
EndIf

If S$(4) <> "100" Then
Print "S$(4) Value corrupted - Expected: 100, Actual: " + S$(4)
EndIf
End Sub

Sub PassArray(TestArray() as String)
'do nothing
End Sub