Adding header to a delimited export

[Matthew Williams]

I hate to keep flooding the list like this, it's just pretty important
that this eventually works :).  Anywhere, this is where i'm at with
the help of Courtney:

 1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If: xx=""                                                             
      Then: xx(1,*,g);gosub init                                              
 2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(1)=1;plant(2)=2;plant(3)=3;plant(4)=4;plant(5)=5            
 3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(6)=6;plant(7)=7;plant(8)=8;plant(9)=9                       
 4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(10)=10            
 5  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: end                                                               
 6  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
init   If:                                                                   
      Then: export word plant = /upss/ups.txt -r=\n -f=,                      
7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(1)="CustomerID";plant(2)="Country";plant(3)="Attention"     
 8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(4)="Company";plant(5)="Address1";plant(6)="Address2"        
 9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: plant(7)="City";plant(8)="State";plant(9)="Phone";plant(10)="Zip"
10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      If:                                                                   
      Then: return                                                            


My output, ups.txt, looks fine and has each of the records all nice
and delimited however the header still refuses to show up!  Courtney
had suggested debugging however i'm not that Filepro literate to pull
that off (I made an attempt and got no where).

Any last suggestions or tips?

Thanks
-Matt
Hale Mfg.