funtc256b.dat

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

#include <process.h>
#include <string.h>
#include <stdio.h>
#include <dos.h>
int main(void)
{
    char far *save_dta;
    char line[80];
    char buffer[256] = "RANDBWR test!";
    struct fcb blk;
    int result;
    printf("Enter a file name to create (no path - ie. a:file.dat
");
    gets(line);
    parsfnm(line,&blk,1);
    printf("Drive #%d  File: %s
", blk.fcb_drive, blk.fcb_name);
    if (bdosptr(0x16, &blk, 0) == -1)
    {
        perror("Error creating file");
        exit(1);
    }
    save_dta = getdta();
    setdta(buffer);
    blk.fcb_recsize = 256;
    blk.fcb_random = 0L;
    result = randbwr(&blk, 1);
    if (!result)
        printf("Write OK
");
    else
    {
        perror("Disk error");
        exit(1);
    }
    if (bdosptr(0x10, &blk, 0) == -1)
    {
        perror("Error closing file");
        exit(1);
    }
    setdta(save_dta);
    return 0;
}