This will write any array out to a text file using three different 
methods with Print #:

dim as Str15     m(21)
dim as Str255    s
dim as long      k
dim as FSRef     parentFolderRef, fileRef
dim as OSStatus  err

window 1,,(0,0)-(300,70)

text _courier, 12

m(0)  = "Zero"     : m(1)  = "One"       : m(2)  = "Two"
m(3)  = "Three"    : m(4)  = "Four"      : m(5)  = "Five"
m(6)  = "Six"      : m(7)  = "Seven"     : m(8)  = "Eight"
m(9)  = "Nine"     : m(10) = "Ten"       : m(11) = "Eleven"
m(12) = "Twelve"   : m(13) = "Thirteen"  : m(14) = "Fourteen"
m(15) = "Fifteen"  : m(16) = "Sixteen"   : m(17) = "Seventeen"
m(18) = "Eighteen" : m(19) = "Nineteen"  : m(20) = "Twenty"

s = files$( _FSRefSave, "Save file as...", "Test Arrays.txt", parentFolderRef )
long if ( s )
def open "TEXTttxt"
open "O", 1, s, @parentFolderRef

for k = 0 to 20
print #1 m(k); chr$(9)
next
print #1 m(21)

print #1 : print #1

for k = 0 to 20
print #1 m(k); chr$(9);
next
print #1 m(21)

print #1 : print #1

for k = 0 to 20
print #1 m(k),
next
print #1 m(21)

close 1
err = fn GetFileFSRef( parentFolderRef, s, @fileRef )
long if ( err )
print:print "Error saving file. Error No.:" + str$( err )
xelse
print:print "File saved. Close window, or Quit to end."
end if
xelse
print:print "User canceled."
end if

local fn DoDialog
select case( dialog(0) )
case _wndClose : end
end select
end fn

on Dialog fn DoDialog

do
HandleEvents
until gFBQuit