/************
kcfin.c
Eingabe eines codierten BASIC-Files vom KC87
darf nur bei status=1 aufgerufen werden.
Aufruf:
   kcfin  file
Returnwert=status danach
   status=5    kein Filename angegeben
   status=6    Fehler bei der File-Eingabe
Compilation  mit:
gcc -o kcfin -O3 -Wall kcfin.c

************/  
#include <ctype.h>
#include "pio-par-lib.c"

int main(int argc, char * argv[])
{
if( argc == 1 )
{ status=5;
  printf("Kein Filename angegeben!");
  return(status);
}
ppreset();
ifi=fopen(argv[1],"wb");
/* LP Anzahl holen: */
status=in_byte();
lp=(int)ibyte;
/* HP Anzahl holen: */
status=in_byte();
hp=(int)ibyte;
anz=256*hp+lp;
for(i=1;i <= anz;i++)
{ status=in_byte();
  if( feof(ifi) )
  { printf("Fehler waehrend der Datenuebernahme.");
    fclose(ifi);
    status=6;
    return(status);
  }
  lp=(int)ibyte;
  fputc(lp,ifi);
}
fclose(ifi);
printf("Datenuebernahme beendet.");
return(status);
}