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

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


main()
{
"Boston";
"<BR HEIGHT=0>";
"<TITLE>Drool</TITLE>";
" <hr>These";

/*
"<CENTER>";
"<table cellspacing=0 cellpadding=5 width=400 height=400 background=.system/CoverArt.jpg border=1> 
<tr height=60% align=center>";
"<th>";
"<h2>";
"CLOSED CIRCLES";
"<BR HEIGHT=0>
";
"</h2>";
"<h3>";
"Part I";
"</h3>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"by M.&#8194;M.&#8194;Kathrel, (c) 2010";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"Version 0.5, an IntroComp contribution.";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"</th> 
</tr> 
<tr height=20%></tr> 
<tr height=20%></tr> 
</table>";
"</CENTER>";
"<p>";
"<BR HEIGHT=0>";
*/


/*
"<br>";
"</font><i>Home Open</i> is a short game about visiting an old house for sale, with a view to making some renovations.&#8194;It&";
"rsquo;s not intended to be difficult.&#8194;If you find it difficult, I apologise.&#8194;If you haven&rsquo;t played parser int";
"eractive fiction before, please type <a plain href=\"instructions\" title=\"instructions\">INSTRUCTIONS</a> to learn the commands y";
"ou&rsquo;ll need to use.";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";

"<center> <h2><b>Home Open</b></h2>";

"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<br>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";

"<b>Written and Programmed By</b>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";

"<table cellspacing='6'><tr><td align='center'>Emily Boegheim</td></tr></table><br>";

"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<b>Programmed Using</b>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<table cellspacing='6'><tr><td align='right' width='50%'>TADS 3</td><td align='left' width='50%'>Mike Roberts</td></tr></table>";
"<BR HEIGHT=0>
";
"<table cellspacing='6'><tr><td align='right' width='50%'>CQuotes</td><td align='left' width='50%'>Stephen Granade</td></tr><tr>";
"<td align='right' width='50%'>Custom Messages</td><td align='left' width='50%'>Mark Engelberg, Eric Eve and Emily Boegheim</td>";
"</tr><tr><td align='right' width='50%'>Spelling Corrector</td><td align='left' width='50%'>Steve Breslin</td></tr></table><br>";
"<BR HEIGHT=0>
";


"<BR>";
"<BR HEIGHT=0>
";
"<b>Testers</b>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<table cellspacing='6'><tr><td align='center'>Hamish McIntyre</td></tr><tr><td align='center'>Sam Mellor</td></tr><tr><td align";
"='center'>Ryan Veeder</td></tr></table><br>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<b>Not To Mention</b>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
*/





/*
2021-05-30 22:46:49.427224+0200 XTads[50966:14311917] [] [T] [XTOutputTextParserHtml] parse: "<body bgcolor=statusbg text=statustext><a plain href="look around"><b>Entrance Hall</b></a><tab align=right><a plain href="full"
2021-05-30 22:46:49.427590+0200 XTads[50966:14311917] [] [T] [XTOutputTextParserHtml] parse: " score"></a><br><b>Exits:</b> <a plain href="north" title="Go north">north</a> &nbsp; <a plain href="south" title="Go south">so"
2021-05-30 22:46:49.428190+0200 XTads[50966:14311917] [] [T] [XTOutputTextParserHtml] parse: "uth</a> &nbsp; <a plain href="west" title="Go west">west</a> &nbsp; <a plain href="up" title="Go up">up</a><br>"
*/

/*
"<BR HEIGHT=0>
";
"<table cellspacing='6'><tr><td align='right' width='50%'><a href=\"http://pr-if.org/doc/play-if-card/\">How To Play IF Card</a></";
"td><td align='left' width='50%'>Andrew Plotkin and Lea Albaugh</td></tr></table></center>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>";
*/

/*
"before";
"<plaintext>in plaintext</plaintext>";
"after";
*/


/*
"<PRE>a\n\n\nb</PRE>";
"<br><br>";
"<pre>    pre    line 1. \n\n\npre after    3 \\n's</pre>After pre.";
*/

/*
"<br>";
"</font>";
"<PRE>&#21;A&#21;&#21;&#21;&#21;&#21;&#21;";
"
";
"&#21;|&#21;&#21;&#21;&#21;&#21;&#21;";
"
";
"&#21;C&#21;&#21;&#21;&#21;&#21;&#21;";
"
";
"&#21;|&#21;&#21;&#21;&#21;&#21;&#21;";
"
";
"&#21;H&#21;-[F]&#21;";
"
";
"&#21;&#21;&#21;&#21;&#21;|&#21;&#21;";
"
";
"&#21;&#21;&#21;&#21;&#21;D&#21;&#21;";
"
";
"</PRE>";
*/


/*
"<br>";
"<blockquote>";
"<blockquote>";
"<blockquote>";
"<font face='TADS-Sans'>Conners City&nbsp;&nbsp;&nbsp;&nbsp;<tab id=dist>25 mi";
" ";
"<br>Knighting<tab to=dist>37 mi <br>";
"Milltown<tab to=dist>51 mi";
" ";
"</font>";
"</blockquote>";
"</blockquote>";
"</blockquote>";
"<BR HEIGHT=0>";
*/

/*
"before<PRE>a\n\nb</pre>after";
*/

/*
"before<PRE>&#21;A&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;";
"\n";
"&#21;|&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;&#21;";
"\n";
"&#21;F&#21;-[H]-&#21;M&#21;-&#21;H&#21;&#21;";
"\n";
"</pre>after";
*/

/*
"Before<xmp>xmp\n\n\nxmpl2</xmp>After";
*/

/*
"<body bgcolor=black><font color=red><b>WARNING: This is an adult fiction text adventure game.&#8194;Though there is no sex, it ";
"might be mentioned (but not described).&#8194;This game contains transgendered themes including changing into the opposite sex ";
"as well as instances of age progression/regression and adult topics (not swearing but certain descriptions are intended for adu";
"lt audiences), so this game is advised for mature players only.&#8194;If you're looking where you shouldn't then there's stuff ";
"there intended for adults.&#8194;Otherwise it's basically G-rated allowing freedom for dirty minded adults to <i>try</i> things";
" and at least get some sort of parser response.<br><br>Thank you.</b><br></font>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
"&nbsp;&nbsp;&nbsp;<font color=red><b>- Cleo Kraft</b></font></body><br><br>";
inputKey();

clearScreen();

"<br>What is your first name (male)?&#8194;<font face=\"tads-input\"><font color=black>";
*/

/*
"before-body-1";
"<Body BgColor='black' Text='white'>";
"body-1";
"<BODY BGCOLOR='white' Text='black'>";
"body-2";
*/


/*
"<TITLE>The Golden Skull</TITLE><ABOUTBOX> <BODY BACKGROUND=\"red-bg.jpg\"";
" ";
"BGCOLOR=RED TEXT=WHITE> <P> <CENTER> <IMG SRC=\"redtitle.jpg\"> <P> A miniature";
" ";
"demonstration game for HTML-TADS.  Version 0.7.  April, 1998.  <P> Copyright";
" ";
"&copy; 1987-1998 Michael J.&nbsp;Roberts, N.&nbsp;K.&nbsp;Guy.  <P> </CENTER>";
" ";
"</ABOUTBOX><P> <CENTER> <IMG SRC=\"title.jpg\"> <P> A miniature demonstration";
" ";
"game for <A HREF=\"about\">HTML-TADS</A>.  Version 0.7.  <P> Copyright &copy;";
" ";
"1987-1998 Michael J.&nbsp;Roberts, N.&nbsp;K.&nbsp;Guy.  <P> Please read the <A ";
" ";
"HREF=\"copyright\">copyright</A> notice for further information.  </CENTER>";
" ";
"<P><B>Outside cave</B>";
"
";
"<BODY BGCOLOR=\"#aabbcc\" TEXT=\"#000000\">";
*/

/*
"<div bgcolor=red text=blue color=green>red bg?</div>";
*/

/*
"<p bgcolor=red text=blue color=green>red bg?<p>";
*/

/*
"Before";
"<!-- text in comment -->";
"After";
*/

/*
"Homee Openn ";
"is a shor game about visiting an old house for sale, with a view to making some renovations.&#8194;It&rsquo;s not intended to be difficult.&#8194;If you find it difficult, I apologise.&#8194;If you haven&rsquo;t played parser interactive fiction before, please type";
" <a plain href='instructions' title='instructions'>INSTRUCTIONS</a>";
" to learn the commands you&rsquo;ll need to use.";
"This game was originally intended as an entry in the ";
"<a href='http://itch.io/jam/haunted-house-jam'>Haunted House Jam</a>";
", but some deadlines were missed.";

"<center> <h2><b>Home Open</b></h2>
<BR HEIGHT=0>
<BR>
<BR HEIGHT=0>
<BR HEIGHT=0>
<BR>
<BR HEIGHT=0>
<b>Written and Programmed By</b>
<BR HEIGHT=0>
<BR>
<BR HEIGHT=0>
<table cellspacing='6'><tr><td align='center'>Emily Boegheim</td></tr></table><br>
</center>";
*/

/*
"<table><tr><td width=800pixels >";
"<center>The Devil in the Details</center>";
"</td></tr></table>";
*/

/*
"<body bgcolor=bgcolor text=text ><table><tr><td width=10 > </td><td><font color=bgcolor >&gt;</font><a plain href=1 >Informatio";
"n about <i>Blighted Isle</i></a><br><font color=bgcolor >&gt;</font><a plain href=2 >Information for Players new to Interactive";
" ";
"Fiction and/or TADS 3 Games</a><br>&gt;<a plain href=3 >Hints</a><br></td></tr></table>";
*/

/*
"hello<br>new line?";
"<br>";
"hello</br>new line?";
*/

/*
"<?T2>";

"<AboutBox>"; //------------

" <body bgcolor=silver>";
" <H3 align=center>";
"The Beetmonger's";
" ";
"Journal";
"</H3>";

" <center> by Aubrey Foil <I>(Scott W.  Starkey)</I>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> Version 1.1";
"
";
"<BR HEIGHT=0>";
"Copyright &copy; 2002 by Aubrey Foil <I>(Scott W.  Starkey)</I>";
"
";
"<BR HEIGHT=0>";
"Brought to you by the magic of HTML-TADS.";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> <I>May your row be furrowed long and deep.</I> </center>";

" </AboutBox>"; //------------

"<BODY ";
" ";
"BGCOLOR=\"#eeddcc\">";
"
";
"<BR HEIGHT=0>";
"
";
"<BR><font size=\"+3\">V<font size=\"-3\">ICTOR Lapot and I were miles from base";
" ";
"camp on the south continent, once again hacking through previously unsurveyed";
" ";
"lands and searching for forgotten cultures.  The terrain was brutal and";
" ";
"mercuric, possessing a raw, sinister beauty.  This expedition reminded me of";
" ";
"our grand adventures of old, that is, if I ignored Lapot's 100-man paparazzi";
" ";
"tirelessly trailing us.";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> <TAB MULTIPLE=4>After he discovered Nova Roma, the world expected more of";
" ";
"Lapot.  All his work that followed seemed to pale by comparison.  Media jackals";
" ";
"constantly nipped at his sanity.  Months later, the pressure gave him more than";
" ";
"his share of problems.  He laughed less, his hands tremored, and his furrowed";
" ";
"brow gave away the burden of his heart.  When the media got a whiff of his";
" ";
"downturn, they came after him looking for fresh blood.  His failed expeditions";
" ";
"perpetuated more negative stories.  After he lost his grant funding, I was";
" ";
"truly afraid for him.";
"
";
"<BR HEIGHT=0>";
"<TAB MULTIPLE=4>Lapot spent the last of his family's resources on this final";
" ";
"expedition, and invited me to come along, just like old times.  He refused to";
" ";
"tell me precisely what he was looking for, but I was somehow led to believe --";
" ";
"dare I say it?  -- we were searching for the man's soul.";
"
";
"<BR HEIGHT=0>";
"<BR HEIGHT=0>";
"
";
"<BR>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>";
"
";
"<BR HEIGHT=0>";
"<CENTER> <TABLE BORDER=0 CELLPADDING=5 WIDTH=\"45%\"> <TR BGCOLOR=BLACK> <TD ";
" ";
"WIDTH=400 BGCOLOR=\"#663300\"> <FONT COLOR=WHITE SIZE=\"+2\">";
" ";
"&nbsp;&nbsp;&nbsp;<Q>Freedom's just";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;another word";
"
";
"<BR HEIGHT=0>";
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for";
" ";
"nothing left to lose.</Q>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> </FONT> <FONT COLOR=WHITE SIZE=\"-1\"> <TAB MULTIPLE=4>&mdash; Kris";
" ";
"Kristoferson, <Q>Me and Bobby McGee</Q> </FONT> </TABLE> </CENTER>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>[For information, thanks, and dedications, please type <B>ABOUT</B>.]";
"
";
"<BR HEIGHT=0>";
"<B>The Beetmonger's Journal</B>, an Archaeological Epiphany";
"
";
"<BR HEIGHT=0>";
"&copy; Copyright 2002 by Aubrey Foil <I>(Scott W.  Starkey)</I>";
"
";
"<BR HEIGHT=0>";
"Version 1.1 (compiled on 10-MAR-2002)";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> A TADS adventure";
"
";
"<BR HEIGHT=0>";
"Developed with TADS, the Text Adventure Development System.";
"
";
"<BR HEIGHT=0>";
"
";
"<BR><B>Ancient Riverbed</B>";
"
";
"<BR HEIGHT=0>";
"<TAB MULTIPLE=4>We had been following the remnants of an ancient winding jungle";
" ";
"river which once flowed from northeast to west.  The dry riverbed allowed us";
" ";
"relatively swift passage through the awesome sea of virgin wood flanking it.  I";
" ";
"would have never noticed it, but Lapot brought to my attention a small";
" ";
"northbound trail; not really a trail so much as a gap in the treeline.";
"
";
"<BR HEIGHT=0>";
"<TAB MULTIPLE=4>";
"
";
"<BR HEIGHT=0>";
"<BR HEIGHT=0>";
"<TAB MULTIPLE=4>The feral beauty of the jungle was sharply contrasted by the";
" ";
"nearby photographers, reporters, and eye-in-the-sky news helicopters here <i>en";
" ";
"masse</i> to get the scoop on the legendary Victor Lapot.  My master seemed";
" ";
"unfettered with their stampeding in our direction with cameras and notebooks in";
" ";
"hand.";
"
";
"<BR HEIGHT=0>";
"<TAB MULTIPLE=4>My name is Aubrey Foil, Monsieur Lapot's chosen chronicler and";
" ";
"assistant.  I accompanied Lapot during many of his travels, and I will endeavor";
" ";
"to provide you an accurate account of what proved to be his last adventure.";
"
";
"<BR HEIGHT=0>";
"<BR HEIGHT=0>";
"<BR HEIGHT=0>";
"
";
"<BR>What did Monsieur Lapot do next?";
"
";
"<BR HEIGHT=0>";
"><B>";
*/

/*
"<banner id=StatusLine height=previous border> <body bgcolor=statusbg ";
" ";
"text=statustext><b>Ancient Riverbed</b><tab align=right><i> </i></banner>";
*/

//"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();
}
