#charset "UTF-8"
/*
 *   ad hoc tests / bug diagnostics
 */

#include <tads.h>
#include <file.h>
#include <date.h>
#include <charset.h>


main()
{
"<?T2>";

" <center>";
" by";

" </center>";

"
";
"<BR HEIGHT=0>";
"
";
//TODO !!! use "<BR><font size=\"+3\">V<font size=\"-3\">ICTOR";
//"<BR><font size=\"+3\">V<font size=\"-3\">ICTOR</font></font>";
"<BR><font size=\"+3\">VICTOR";

"
";
"<BR>What?";
"
";
"<BR HEIGHT=0>";
"><B>";

"cmd";

//-----------
	/*
	"<center>center?<p>p</p>center?</center>after";
	*/
	
	/*
	"<center>center?<h1>h1</h1>center?</center>after";	
	*/

	/*
	local b0 = nil;
    
    local b1 = bannerCreate(b0, BannerFirst, nil, BannerTypeText, BannerAlignTop,
                       50, BannerSizePercent,
                       BannerStyleVScroll | BannerStyleAutoVScroll | BannerStyleBorder);
    bannerSay(b1, 
		'<TAB MULTIPLE=4> &gt;TIE THE ROPE
		<BR HEIGHT=0>
		<TAB MULTIPLE=4> (to the hook)
		<BR HEIGHT=0>');
    inputKey();
    */

	/*
	for (local cur = 0; cur < 200; cur++) {
		"line <<cur>><br>";
	}*/
	
	/*
	// 1893 dossier note tab bug:
	"<BR HEIGHT=0>";
	"<BR><TAB MULTIPLE=4><TAB MULTIPLE=4><TAB MULTIPLE=4> Bullish Adam stays";
	" ";
	"outdoors,";
	"<BR HEIGHT=0>";
	"<TAB MULTIPLE=4><TAB MULTIPLE=4><TAB MULTIPLE=4> Free and strong and wild;";
	"<BR HEIGHT=0>";
	"<TAB MULTIPLE=4><TAB MULTIPLE=4><TAB MULTIPLE=4> Mary studies Egyptian script,";
	*/

	// 1893 dossier missing zwsp bug:
	//"<BR HEIGHT=0>";
	//"<BR><TAB MULTIPLE=4>You"; // step off the train into a huge crowd of";

    inputKey();
}
