/*
	XENIX pr -l66 has 56 printable lines -> 7 x 8 cards
	MKS   pr -l66 has 59 printable lines -> use pager!
	EHK   pager has 54 printable lines -> 6 x 9 cards
*/
int		data;
int		fold;
int		skey;
int		vpos;	/* vertical position */
int		vtab;	/* vertical tab (card size) */
int		tabs;	/* number of lines to add to tab stop */
int		dbug;
int		pg;
{
	pg = "cardform.kwk";
	vpos = 0;
	vtab = 8;
	fold = 50;
	dbug = 1;
	dbug = 0;
	print("(%s) vtab = %d fold = %d\n",pg,vtab,fold);
	while(rdcard())	{
		keycat("FILE",infile());
		nextkey(0);
		if(dbug)	print("%d\n",vpos);
		while(data = nextkey(1))	{
			skey = nextkey(3);
			printf("%s ",skey);
			strfold(data,fold - (strlen(skey) + 1));
			puts(data);
			vpos += strcnt(data,'\n') + 1;
			}
		tabs = vpos % vtab;
		if(dbug)	print("tabs %d vpos %d vtab %d\n",tabs,vpos,vtab);
		while(tabs < vtab)	{
			printf("\n");
			tabs += 1;
			vpos += 1;
			}
		vpos = 0;	/* to prevent overflow */
		}
	exit(0);
}