I still don't get what you're trying to sove with this arfraywrite thing, but maybe the following may give you so idea?
Code:
        ADDR        VAR WORD
        CHAR        VAR BYTE
        CLEAR
        
        goto OVERDT             
        string1     CON EXT
        string2     CON EXT
        string3     CON EXT
        
        eostring1   CON EXT
        eostring2   CON EXT
        eostring3   CON EXT
        
        string4     CON EXT
        stringend   con ext
        asm     
string1       dt "_this is string1"
eostring1 =$-1

string2       dt "_this is string2"
eostring2 =$-1

string3       dt "_this is string3"
eostring3 =$-1

stringend
        #define s4  "yaya dada String 4 "
        #define s5  "Plah plah plah string 5 "
string4         dt s4,s5, 0 
        endasm
OVERDT:
        ADDR=string4
MAIN:
        READCODE  ADDR, CHAR
        IF CHAR THEN
                hserout [char]
                ADDR=ADDR+1
                GOTO MAIN
                ENDIF
                
        HSEROUT [13,10,REP "-"\80,13,10] 
           
        for addr = string1 to eostring1
                readcode ADDR, CHAR
                HSEROUT [CHAR]
                next
                
        HSEROUT [13,10,REP "-"\80,13,10,"DONE !"]
SPIN:   GOTO SPIN
Case not, well, sorry