RosettaCodeData/Task/Reverse-a-string/Vedit-macro-language/reverse-a-string-1.vedit

Reg_Empty(10)
for (BOL; !At_EOL; Char) {
    Reg_Copy_Block(10, CP, CP+1, INSERT)
}