--- parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:12:40 1.102
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104
@@ -1,12 +1,13 @@
-^for[i](1;200){
+^for[i](1;100){
$original[^for[j](1;$i){$j}]
-$original
+$original[^file::create[text;original.txt;$original]]
+$original.text
-$encoded[^string:base64[$original]]
+$encoded[^original.base64[]]
$encoded
-$decoded[^encoded.base64[]]
-$decoded
-^if($decoded ne $original){^throw[bug;here]}
+$decoded[^file::base64[$encoded]]
+$decoded.text
+^if($decoded.text ne $original.text){^throw[bug;here]}
}