Global arrays

Try this...

[Code]
Graphics 640,480,32,2
SetBuffer BackBuffer()

Dim spellings$(10)
example

Text 10,10,spellings$(0)
Flip

Repeat
Until KeyHit(1)
End


Function example()
spellings$(0) = "test"
End Function

[/Code]