#include <tam.h>
extern int errno;

int main()
{
    int rc;
    int wn,wn2;
    int i;

    winit();
    wn = wcreate(1,0,24,80,NBORDER);
    if (wn == -1)
	{
	printf("wcreate failed\n");
	wexit(1);
	}
    wprintf(wn,"in window %d iswind returns %d\n",wn,iswind());
    for (i=0;i<7500;i++);
    wn2 = wcreate(0,0,25,80,NBORDER);
    if (wn2 == -1)
	{
	wprintf(wn,"wcreate failed with errno %d\n",errno);
	wexit(1);
	}
    /* clear screen */
    rc = wrastop(wn2,0,0, 0,0, 0,0, 0,0, 16,16, SRCPAT,DSTSRC,0);
    if (rc == -1)
	{
	wprintf(wn2,"clear failed with errno %d\n",errno);
	for (i=0;i<750000;i++);
	wdelete(wn);
	wdelete(wn2);
	wexit(1);
	}
    wdelete(wn);
    wdelete(wn2);
    wexit(0);
}