procedure Gnat.Io.D is C:Character;Begin Get(C);If C<'~'Then Put(C&C);D;End If;End;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page