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
Bookmarks