FWD » Core Development » Base Language

def var txt    as char.

def var e-txt  as char  format "x(16)".

def var i-file as char   init "text_string_input.txt".

def var o-file as char   init "encoded.txt".

def var idx    as int.

def var i      as int.

def stream infile.

def stream out.

input stream infile from value(i-file).

output stream out to value(o-file).

do while (true) on endkey undo, leave:

   import stream infile unformatted txt.

   e-txt = encode(txt).

   put stream out unformatted e-txt skip.

end.

input stream infile close.

output stream out close.