#charset "UTF-8"
/*
 *   pagination
 */

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


main()
{
	randomize();

"<?T3><title>xtads_pagination_3</title>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"Ah, April in Paris!&#8194;The first day of your dream vacation has arrived.&#8194;Your flight was uneventful and the hotel as q";
"uaint as the travel agent promised.&#8194;After a restful night&rsquo;s sleep you arose late, fathomed the mysteries of the ant";
"ediluvian plumbing, and set out in search of breakfast.";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"Or rather, lunch, for it&rsquo;s almost noon.&#8194;The charming sidewalk cafe to which your feet guided you is quintessentiall";
"y Parisian.&#8194;The hostess, a stiff, starched lady of sixty or thereabouts, showed you to your table and assured you that th";
"e waiter would be with you momentarily.&#8194;The food smells marvelous, and the music of the blind accordionist strolling up a";
"nd down the sidewalk adds an exotic and yet unassuming air of nonchalant elegance.";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"Only one minor blemish mars this otherwise perfect morning: As the waiter rushes back and forth from the kitchen bearing trays ";
"laden with plates and bowls, as he refills coffee cups and wine glasses, as he pauses to chat for a moment with a favored custo";
"mer, you&rsquo;re entirely unable to catch his eye.&#8194;Is it possible he&rsquo;s deliberately ignoring you?&#8194;Absurd &#6";
"5279;&mdash;&#8203; but you&rsquo;ve been sitting here for twenty minutes now, and he hasn&rsquo;t even brought a menu.&#8194;Y";
"our stomach is growling....";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<center><font size=+2><b>April in Paris</b></font>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<font size=+1>An exasperating social difficulty</font>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"By Jim Aikin</center>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<font color=\"#808080\" size=-1>[For assistance at any time with specific perplexities that may be vexing you, please type &lsquo";
";help&rsquo; or &lsquo;hint&rsquo;.&#8194;This command displays the Hints menu.&#8194;Newcomers to interactive fiction may want";
" ";
"to type &lsquo;instructions&rsquo;.&#8194;For details on the software, type &lsquo;about&rsquo;.&#8194;For a complete walkthrou";
"gh, type &lsquo;walkthru&rsquo;.]</font>&#8194;";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"<b>A Sidewalk Cafe, near the railing (sitting in your chair)</b><br>";
"<BR HEIGHT=0>
";
"A charming Parisian sidewalk cafe &#65279;&mdash;&#8203; more than a dozen small tables, at most of which people are sitting, s";
"ipping beverages and munching savory-looking entrees while chatting with their friends.&#8194;To the west, a waist-height wroug";
"ht iron railing separates the cafe from the public thoroughfare.";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"The interior of the cafe (open to the air, on account of the fine weather) is to the east, and more tables are to the north and";
" south.&#8194;An accordionist is strolling up and down on the sidewalk, playing a sprightly tune.&#8194;The hostess is at her s";
"tation at the north end of the cafe.&#8194;";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"An old man is sitting at the table beside yours, listening to the music of the accordion.&#8194;";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"The waiter is bustling from table to table.&#8194;";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";
"A young woman is standing on the sidewalk, just beyond the southern part of the railing.&#8194;";
"<BR HEIGHT=0>
";
"<BR>";
"<BR HEIGHT=0>
";

	for (local wi = 1; wi <= 5000; wi++) {

		local wsBefore = rand(5);
		if (wsBefore == 3) {
			"  ";
		}
	
		local word = rand('"x"{1,10}') + wi + ' ';
		"<<word>>";

		local wsAfter = rand(5);
		if (wsAfter == 3) {
			"    ";
		}

		local newline = rand(15);
		if (newline == 5) {
			"<br>";
		}
	}
	
	inputKey();
}
