/*
Program: 8TO2
Author : Kim Moser
Date   : 10/12/88
System : IBM PC / Borland Turbo-C 1.5
Descrip: Reads stdin, converts every leading sequence of 8 spaces to 2 spaces,
         and copies to stdout.
*/

#include <stdio.h>

usage()
{
	printf( "8TO2  Copyright (c) 1988  Kim Moser  All Rights Reserved\n" );
	printf( "Copies stdin to stdout, first converting all leading\n" );
	printf( "sequences of 8 spaces to 2.\n" );
}

main()
{
	int c;
	int i=0, eos=0;  /* 'i' counts leading spaces */
			/* eos flags when leading spaces are over */

	while (getch(c) != EOF) {
		if (c == ' ') {
			eos = 0;
			i++;
			if (i==8) {
				printf( "  " );
				i = 0;
			}
		} else {
			eos = 1;
			putch( c );
		}
	}
}