funtc255b.dat

这是一个包含多个语言的指令集

#include <process.h>
#include <string.h>
#include <stdio.h>
#include <dos.h>
int main(void)
{
    char far *save_dta;
    char line[80], buffer[256];
    struct fcb blk;
    int i, result;
    printf("Enter drive and file name (no path - i.e. a:file.dat)
");
    gets(line);
    if (!parsfnm(line, &blk, 1))
    {
        printf("Error in call to parsfnm
");
        exit(1);
    }
    printf("Drive #%d  File: %s

", blk.fcb_drive, blk.fcb_name);
    bdosptr(0x0F, &blk, 0);
    save_dta = getdta();
    setdta(buffer);
    blk.fcb_recsize = 128;
    blk.fcb_random = 0L;
    result = randbrd(&blk, 1);
    if (!result)
        printf("Read OK

");
    else
    {
        perror("Error during read");
        exit(1);
    }
    printf("The first 128 characters are:
");
    for (i=0; i<128; i++)
        putchar(buffer[i]);
    setdta(save_dta);
    return 0;
}