#define  CONOUT  2

clearscreen() /* loescht Bildschirm durch Ausgabe von 'FF' */
  {
  bdos(CONOUT,12);
  }

int fak(n) /* berrechnet n! */
  int n;
  {
  if (n<=1) 
    return (1);
  else
    return (n*fak(n-1));
  }

main(argc,argu) /* Test von fak */
  int argc;
  char *argu[];
  {
  int a;
  clearscreen();
  if (argc!=2)
    {
    printf("Aufruffehler\n");
    exit(0);
    }
  sscanf(argu[1],"%d",&a);
  printf("%d! = %d\n\n\n",a,fak(a));
  }
