/****************************************************************************
 * F-Tasten belegen oder anzeigen:
 * Dieses kleine Programm ermoeglicht die Belegung/Uebersicht der F-Tasten
 * auch unter CCP's, die die Direktkommandos (0...9) des MicroDOS-CCP nicht
 * enthalten, also z.B. unter NZ-COM
 *
 * Aufruf:
 *	KEY [n]
 *	ohne n  -> KEYLIST
 *	n=0     -> ab CAOS4.22 KEYCLEAR
 *	n=1..15 -> F-Taste n neu belegen
 *	jeder andere Parameter n -> Hilfe
 *
 * KEY.C						(c) ML-Soft 20.02.94
 ****************************************************************************
*/

main(argc,argv)
int argc;
char *argv[];
{
int ft;
if (argc>1)
	{
	ft=atoi(argv[1]);
	if( (!isdigit(*argv[1])) || (ft>15) )
		{
		printf("Funktionstasten belegen/anzeigen:\t(c) ML-Soft 20.02.94");
		printf("\nAufruf: KEY [n]\n");
		printf("\tDer Parameter n stellt die Nummer der zu belegenden\n");
		printf("\tF-Taste dar, ohne Parameter wird KEYLIST aufgerufen,\n");
		printf("\tjeder nichtnumerische Parameter gibt diese Info aus.");
		exit();
		}
	}
else ft=-1;
if(ft == -1)
	{
	caosbs(12);
	ostr("Belegung der F-Tasten:\n\n");
	caosp(0x3a);	/* keylist */
	exit();
	}
if(ft != 0)
	{
	caosbs(12);
	ostr("Taste F%x belegen, <STOP>=Ende:\n\n",ft);
	}
fkey(ft);
}

ostr(string,arg)	/* formatierten String an CAOS ausgeben */
char *string;
int *arg;
{
char buffer[100], c, *cptr;
sprintf(buffer,string,arg);
for (cptr=buffer; c=*cptr; cptr++)
	{
	if (c == '\n') caosbs('\r');
	caosbs(c);
	}
}