#include <tads.h>

/*
 * An XTads test game.
 * Tab stops in a vertical banner.
 */
main()
{
	local b0 = nil;
    
    "A banner test game for XTads.\b\b";

    local b1 = bannerCreate(b0, BannerFirst, nil, BannerTypeText, BannerAlignRight,
                       60, BannerSizePercent,
                       BannerStyleVScroll | BannerStyleAutoVScroll | BannerStyleBorder);
    bannerSay(b1,
		'xxxxxxxxxxxxxxxxxxxxxx<br>
		<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		x<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		xx<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		xxx<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		xxxx<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		xxxxx<tab multiple=1>x<tab multiple=1>x<tab multiple=1>x<br>
		<br>
		<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		x<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		xx<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		xxx<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		xxxx<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		xxxxx<tab multiple=2>x<tab multiple=2>x<tab multiple=2>x<br>
		<br>
		<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		x<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		xx<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		xxx<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		xxxx<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		xxxxx<tab multiple=3>x<tab multiple=3>x<tab multiple=3>x<br>
		<br>
		<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		x<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		xx<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		xxx<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		xxxx<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		xxxxx<tab multiple=4>x<tab multiple=4>x<tab multiple=4>x<br>
		<br>
		<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		x<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		xx<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		xxx<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		xxxx<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		xxxxx<tab multiple=0>x<tab multiple=0>x<tab multiple=0>x<br>
		<br>'
		);
    "Press a key to continue...\n";
    inputKey();
}

