%\n { 0a }  %\0 { 00 }

|18 @Console/write

|100

;str2 ;str1 copy-str
;str2 print-str

BRK

@copy/str ( dest* src* -: )
    STH2
    &loop
        LDAkr STH2k STAr INC2 LDAkr STHr INC2r ?/loop
    POP2 POP2r
    JMP2r

@print/str_ ( str* -: )
    LDAk .Console/write DEO
    INC2 @print/str LDAk ?/str_
    POP2 JMP2r

@str1 "Uxntal \n \0
@str2