15 lines
420 B
Plaintext
15 lines
420 B
Plaintext
$ include "seed7_05.s7i";
|
|
include "gethttp.s7i";
|
|
include "encoding.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var string: original is "";
|
|
var string: encoded is "";
|
|
begin
|
|
original := getHttp("rosettacode.org/favicon.ico");
|
|
encoded := toBase64(original);
|
|
writeln("Is the Rosetta Code icon the same (byte for byte) encoded then decoded: " <&
|
|
fromBase64(encoded) = original);
|
|
end func;
|