#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 indent=1>x<tab indent=1>x<tab indent=1>x<br>
		x<tab indent=1>x<tab indent=1>x<tab indent=1>x<br>
		xx<tab indent=1>x<tab indent=1>x<tab indent=1>x<br>
		<br>
		<tab indent=2>x<tab indent=2>x<tab indent=2>x<br>
		x<tab indent=2>x<tab indent=2>x<tab indent=2>x<br>
		xx<tab indent=2>x<tab indent=2>x<tab indent=2>x<br>
		xxx<tab indent=2>x<tab indent=2>x<tab indent=2>x<br>
		<br>
		<tab indent=4>x<tab indent=4>x<tab indent=4>x<br>
		x<tab indent=4>x<tab indent=4>x<tab indent=4>x<br>
		xx<tab indent=4>x<tab indent=4>x<tab indent=4>x<br>
		xxx<tab indent=4>x<tab indent=4>x<tab indent=4>x<br>
		xxxx<tab indent=4>x<tab indent=4>x<tab indent=4>x<br>
		<br>
		<tab indent=0>x<tab indent=0>x<tab indent=0>x<br>
		x<tab indent=0>x<tab indent=0>x<tab indent=0>x<br>
		xx<tab indent=0>x<tab indent=0>x<tab indent=0>x<br>
		xxx<tab indent=0>x<tab indent=0>x<tab indent=0>x<br>'
		);
    "Press a key to continue...\n";
    inputKey();
}

