Power-Programmierung/CD1.mdf/magazine/drdobbs/1991/09/bob/type.bob

Text File | 1991-07-11 | 182b | 14 lines

main()
{
    typefile("type.bob");
}

typefile(name; fp,ch)
{
    if (fp = fopen(name,"r")) {
    while ((ch = getc(fp)) != -1)
        putc(ch,stdout);
    fclose(fp);
    }
}