apple2pi/share/text2merlin.c

26 lines
382 B
C
Executable File

#include <stdio.h>
#include <fcntl.h>
int main(int argc, char **argv)
{
int cin, fout;
char c;
if (argc > 1)
fout = open(argv[1], O_WRONLY|O_CREAT, 0644);
else
fout = 1;
while ((cin = getchar()) != EOF)
{
c = cin;
if (c == '\n')
c = '\r';
if (c == '\t')
c = ' ';
c |= 0x80;
write(fout, &c, 1);
}
close(fout);
return (0);
}