FontSize = InputBox("フォントサイズを入力してください。", 11);
writeln("");
writeln("");
writeln(" " + GetFileName() + "");
writeln(" ");
writeln("");
writeln("");
writeln("" + GetFilePath() + GetFileName() + "
");
writeln("");
writeln(" " + GetYear() + "/" + GetMonth() + "/" + GetDate());
writeln("
");
writeln("");
writeln("");
B = Bottom;
R = Right;
For(y to B){
writeln("");
For(x to R){
if([x,y] == ""){
writeln("
| ");
}else if(left([x,y], 7) == "http://"){
writeln(" " + [x,y] + " | ");
}else{
str = [x,y];
str = replace(str, "&", "&");
str = replace(str, "<", "<");
str = replace(str, ">", ">");
writeln(" " + str + " | ");
}
}
writeln("
");
}
writeln("
");
writeln("");
writeln("");
writeln("");