|
|
| version 1.101, 2005/11/21 15:08:45 | version 1.104, 2005/11/22 11:31:58 |
|---|---|
| Line 1 | Line 1 |
| @USE | ^for[i](1;100){ |
| /child.p | <hr> |
| $original[^for[j](1;$i){$j}] | |
| @main[] | $original[^file::create[text;original.txt;$original]] |
| $child[^child::create[]] | $original.text |
| ^child.procedure[] | <br> |
| $encoded[^original.base64[]] | |
| $encoded | |
| <br> | |
| $decoded[^file::base64[$encoded]] | |
| $decoded.text | |
| ^if($decoded.text ne $original.text){^throw[bug;here]} | |
| } |