Copying Array to Array

[Bruce]

Works fine here!

String1 Var Byte(26)
String2 Var Byte(26)
Index Var Byte
 
   PAUSE 5000
   Hserout ["Testing",13,10]  
 
Main:   
   Clear     ' Clear RAM before entry
 
   ' Load String1 with data
   ARRAYWRITE String1,["ABCDEFGHIJKLMNOPQRSTUVWXYZ"]
 
   ' Show what's in String1  
   Hserout [13,10,"String1 = "]
   For Index = 0 TO 25
       Hserout [String1(Index)]
   Next Index
 
   ' Copy String1 to String2
   ARRAYWRITE String2, [STR String1\26]
 
   ' Show what's in String2 
   Hserout [13,10,"String2 = "]
   For Index = 0 TO 25
       Hserout [String2(Index)]
   Next Index
   Pause 500
   Goto Main

Returns;

Testing
String1 = ABCDEFGHIJKLMNOPQRSTUVWXYZ
String2 = ABCDEFGHIJKLMNOPQRSTUVWXYZ