I don't know exactly what you are trying to do, but the code below works.

Code:
 
        CR CON 13
        LF CON 10
 
         Data_Array VAR BYTE [30]
         AfterString1 var byte [10]
         AfterString2 var byte[10]
         ArrayWrite AfterString1,[REP 0\10]  ; Zero out the strings
         ArrayWrite AfterString2,[REP 0\10]
 
 
 
 
 
      ArrayWrite  Data_Array,"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S",0]
 
 
 
 
 
      Arrayread Data_Array,20,NotFound,[Wait ("CDE"),STR AfterString1 \6,STR AfterString2 \6]
 
      hserout [CR,LF,"AfterString1 ",STR AfterSTring1,CR,LF]
     hserout [CR,LF,"AfterString2 ",STR AfterSTring2,CR,LF]
      goto home
 
notfound:
 
     hserout["Not Found"]      
 
home:
 
   goto home