/************
kcfout.c
Ausgabe eines codierten BASIC-Files auf den KC87
darf nur bei status=1 aufgerufen werden.
Aufruf:
  kcfout file
Returnwert=status danach

Compilation  mit:
gcc -o kcfout -O3 -Wall kcfout.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);
}
ofi=fopen(argv[1],"rb");
lp=fgetc(ofi);
hp=fgetc(ofi);
anz=256*hp+lp;
obyte=(unsigned char)lp;
status=out_byte();
obyte=(unsigned char)hp;
status=out_byte();
for(i=1;i <= anz ; i++)
{ lp=fgetc(ofi);
  obyte=(unsigned char)lp;
  status=out_byte();
}
fclose(ofi);
return(status);
}