/****************************************************************************
The Disc Image Chef
-----------------------------------------------------------------------------

Filename       : os2_16.c
Author(s)      : Natalia Portillo

Component      : fstester.setter.os2

--[ Description ] -----------------------------------------------------------

Contains 16-bit OS/2 code

--[ License ] ---------------------------------------------------------------
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as
     published by the Free Software Foundation, either version 3 of the
     License, or (at your option) any later version.

     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warraty of
     MERCHANTIBILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <http://www.gnu.org/licenses/>.

-----------------------------------------------------------------------------
Copyright (C) 2011-2018 Natalia Portillo
*****************************************************************************/

#if(defined(__I86__) || defined(__i86__) || defined(_M_I86)) && (defined(__OS2__) || defined(__os2__)) &&              \
    !defined(__DOS__)

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define INCL_DOSMISC
#define INCL_DOSFILEMGR

#include "consts.h"
#include "defs.h"
#include "dosos2.h"
#include "os2_16.h"

#include <os2.h>

void GetOsInfo()
{
    USHORT Version;
    USHORT rc;
    BYTE   MajorVer;
    BYTE   MinorVer;
    USHORT pathLen[1];

    rc = DosGetVersion(&Version);

    if(rc)
    {
        printf("Error %d querying OS/2 version.\n", rc);
        return;
    }

    MajorVer = HIBYTE(Version) / 10;
    MinorVer = LOBYTE(Version) / 10;

    if(MajorVer == 2)
    {
        MajorVer = MinorVer;
        MinorVer = 0;
    }

    printf("OS information:\n");
    printf("\tRunning under OS/2 %d.%d\n", MajorVer, MinorVer);

    rc = DosQSysInfo(0, (PBYTE)pathLen, sizeof(USHORT));

    printf("\tMaximum path is %d bytes.\n", pathLen[0]);
}

void GetVolumeInfo(const char *path, size_t *clusterSize)
{
    USHORT      rc;
    BYTE        bData[64];
    USHORT      cbData = sizeof(bData);
    PFSALLOCATE pfsAllocateBuffer;
    USHORT      driveNo = path[0] - '@';
    char *      fsdName;
    PFSINFO     pfsInfo;

    if(driveNo > 32) driveNo -= 32;

    *clusterSize = 0;

    rc = DosQFSAttach((PSZ)path, 0, FSAIL_QUERYNAME, (PVOID)&bData, &cbData, 0);

    printf("Volume information:\n");
    printf("\tPath: %s\n", path);
    printf("\tDrive number: %d\n", driveNo - 1);

    if(rc) { printf("Error %d requesting volume information.\n", rc); }
    else
    {
        fsdName = &bData[4 + (USHORT)bData[2] + 1 + 2];
        printf("\tFSD name: %s\n", fsdName);
    }

    pfsAllocateBuffer = (PFSALLOCATE)malloc(sizeof(FSALLOCATE));
    rc                = DosQFSInfo(driveNo, 1, (PBYTE)pfsAllocateBuffer, sizeof(FSALLOCATE));

    if(rc) { printf("Error %d requesting volume information.\n", rc); }
    else
    {
        printf("\tBytes per sector: %u\n", pfsAllocateBuffer->cbSector);
        printf("\tSectors per cluster: %lu (%lu bytes)\n",
               pfsAllocateBuffer->cSectorUnit,
               pfsAllocateBuffer->cSectorUnit * pfsAllocateBuffer->cbSector);
        printf("\tClusters: %lu (%lu bytes)\n",
               pfsAllocateBuffer->cUnit,
               pfsAllocateBuffer->cSectorUnit * pfsAllocateBuffer->cbSector * pfsAllocateBuffer->cUnit);
        printf("\tFree clusters: %lu (%lu bytes)\n",
               pfsAllocateBuffer->cUnitAvail,
               pfsAllocateBuffer->cSectorUnit * pfsAllocateBuffer->cbSector * pfsAllocateBuffer->cUnitAvail);

        *clusterSize = pfsAllocateBuffer->cSectorUnit * pfsAllocateBuffer->cbSector;
    }

    free(pfsAllocateBuffer);

    pfsInfo = (PFSINFO)malloc(sizeof(FSINFO));
    rc      = DosQFSInfo(driveNo, 2, (PBYTE)pfsInfo, sizeof(FSINFO));

    if(rc) { printf("Error %d requesting volume information.\n", rc); }
    else
    {
        printf("\tVolume label: %s\n", pfsInfo->vol.szVolLabel);
        printf("\tVolume created on %d/%02d/%02d %02d:%02d:%02d\n",
               pfsInfo->fdateCreation.year + 1980,
               pfsInfo->fdateCreation.month - 1,
               pfsInfo->fdateCreation.day,
               pfsInfo->ftimeCreation.hours,
               pfsInfo->ftimeCreation.minutes,
               pfsInfo->ftimeCreation.twosecs * 2);
    }

    free(pfsInfo);
}

void FileAttributes(const char *path)
{
    char   drivePath[4];
    USHORT rc = 0, wRc = 0, cRc = 0;
    USHORT actionTaken = 0;
    HFILE  handle;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("ATTRS", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("ATTRS", 0);

    printf("Creating attributes files.\n");

    rc = DosOpen("NONE",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)noAttributeText, strlen(noAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("NONE", FILE_NORMAL, 0);
    }

    printf("\tFile with no attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "NONE", rc, wRc, cRc);

    rc = DosOpen("ARCHIVE",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCHIVE", FILE_ARCHIVED, 0);
    }

    printf("\tFile with archived attribute: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "ARCHIVE", rc, wRc, cRc);

    rc = DosOpen("SYSTEM",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("SYSTEM", FILE_SYSTEM, 0);
    }

    printf("\tFile with system attribute: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "SYSTEM", rc, wRc, cRc);

    rc = DosOpen("HIDDEN",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("HIDDEN", FILE_HIDDEN, 0);
    }

    printf("\tFile with hidden attribute: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "HIDDEN", rc, wRc, cRc);

    rc = DosOpen("READONLY",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("READONLY", FILE_READONLY, 0);
    }

    printf("\tFile with read-only attribute: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "READONLY", rc, wRc, cRc);

    rc = DosOpen("HIDDREAD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("HIDDREAD", FILE_HIDDEN | FILE_READONLY, 0);
    }

    printf("\tFile with hidden, read-only attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "HIDDREAD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("SYSTREAD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("SYSTREAD", FILE_SYSTEM | FILE_READONLY, 0);
    }

    printf("\tFile with system, read-only attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "SYSTREAD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("SYSTHIDD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("SYSTHIDD", FILE_SYSTEM | FILE_HIDDEN, 0);
    }

    printf("\tFile with system, hidden attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "SYSTHIDD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("SYSRDYHD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("SYSRDYHD", FILE_SYSTEM | FILE_READONLY | FILE_HIDDEN, 0);
    }

    printf("\tFile with system, read-only, hidden attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "SYSRDYHD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARCHREAD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCHREAD", FILE_ARCHIVED | FILE_READONLY, 0);
    }

    printf("\tFile with archived, read-only attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARCHREAD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARCHHIDD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCHHIDD", FILE_ARCHIVED | FILE_HIDDEN, 0);
    }

    printf("\tFile with archived, hidden attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARCHHIDD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARCHDRDY",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCHDRDY", FILE_ARCHIVED | FILE_HIDDEN | FILE_READONLY, 0);
    }

    printf("\tFile with archived, hidden, read-only attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARCHDRDY",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARCHSYST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCHSYST", FILE_ARCHIVED | FILE_SYSTEM, 0);
    }

    printf("\tFile with archived, system attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARCHSYST",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARSYSRDY",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARSYSRDY", FILE_ARCHIVED | FILE_SYSTEM | FILE_READONLY, 0);
    }

    printf("\tFile with archived, system, read-only attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARSYSRDY",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARCSYSHD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARCSYSHD", FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN, 0);
    }

    printf("\tFile with archived, system, hidden attributes: name = \"%s\", rc = %d, wRc = %d, cRc = %d\n",
           "ARCSYSHD",
           rc,
           wRc,
           cRc);

    rc = DosOpen("ARSYHDRD",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        wRc = DosWrite(handle, (PVOID)archivedAttributeText, strlen(archivedAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)systemAttributeText, strlen(systemAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)hiddenAttributeText, strlen(hiddenAttributeText), &actionTaken);
        wRc = DosWrite(handle, (PVOID)readonlyAttributeText, strlen(readonlyAttributeText), &actionTaken);
        cRc = DosClose(handle);
        rc  = DosSetFileMode("ARSYHDRD", FILE_ARCHIVED | FILE_SYSTEM | FILE_HIDDEN | FILE_READONLY, 0);
    }

    printf("\tFile with all (archived, system, hidden, read-only) attributes: name = \"%s\", rc = %d, wRc = %d, cRc = "
           "%d\n",
           "ARSYHDRD",
           rc,
           wRc,
           cRc);
}

void FilePermissions(const char *path)
{ /* Do nothing, not supported by target operating system */
}

void ExtendedAttributes(const char *path)
{
    char   drivePath[4];
    USHORT rc = 0, wRc = 0, cRc = 0;
    USHORT actionTaken = 0;
    HFILE  handle;
    char   message[300];
    EAOP   eap;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("XATTRS", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("XATTRS", 0);

    printf("Creating files with extended attributes.\n");

    rc = DosOpen("COMMENTS",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        eap.fpGEAList = NULL;
        eap.fpFEAList = (PFEALIST)&CommentsEA;
        eap.oError    = 0;
        memset(&message, 0, 300);
        sprintf(&message, "This files has an optional .COMMENTS EA\n");
        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        rc  = DosSetFileInfo(handle, 2, (PBYTE)&eap, sizeof(EAOP));
        cRc = DosClose(handle);
    }

    printf("\tFile with comments = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "COMMENTS", rc, wRc, cRc);

    rc = DosOpen("COMMENTS.CRT",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        eap.fpGEAList = NULL;
        eap.fpFEAList = (PFEALIST)&CommentsEACritical;
        eap.oError    = 0;
        memset(&message, 0, 300);
        sprintf(&message, "This files has a critical .COMMENTS EA\n");
        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        rc  = DosSetFileInfo(handle, 2, (PBYTE)&eap, sizeof(EAOP));
        cRc = DosClose(handle);
    }

    printf("\tFile with comments = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "COMMENTS.CRT", rc, wRc, cRc);

    rc = DosOpen("ICON",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_REPLACE_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        eap.fpGEAList = NULL;
        eap.fpFEAList = (PFEALIST)&IconEA;
        eap.oError    = 0;
        memset(&message, 0, 300);
        sprintf(&message, "This files has an optional .ICON EA\n");
        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        rc  = DosSetFileInfo(handle, 2, (PBYTE)&eap, sizeof(EAOP));
        cRc = DosClose(handle);
    }

    printf("\tFile with icon = \"%s\", rc = %d, wRc = %d, cRc = %d\n", "ICON", rc, wRc, cRc);
}

void ResourceFork(const char *path)
{ /* Do nothing, not supported by target operating system */
}

void Filenames(const char *path)
{
    char   drivePath[4];
    USHORT rc = 0, wRc = 0, cRc = 0;
    USHORT actionTaken = 0;
    HFILE  handle;
    char   message[300];
    int    pos = 0;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("FILENAME", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("FILENAME", 0);

    printf("Creating files with different filenames.\n");

    for(pos = 0; filenames[pos]; pos++)
    {
        rc = DosOpen((PSZ)filenames[pos],
                     &handle,
                     &actionTaken,
                     0,
                     FILE_NORMAL,
                     OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                     OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                     0);

        if(!rc)
        {
            memset(&message, 0, 300);
            sprintf(&message, FILENAME_FORMAT, filenames[pos]);
            wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
            cRc = DosClose(handle);
        }

        printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d\n", filenames[pos], rc, wRc, cRc);
    }
}

#define DATETIME_FORMAT "This file is dated %04d/%02d/%02d %02d:%02d:%02d for %s\n"

void Timestamps(const char *path)
{
    char       drivePath[4];
    USHORT     rc = 0, wRc = 0, cRc = 0, tRc = 0;
    USHORT     actionTaken = 0;
    HFILE      handle;
    char       message[300];
    FILESTATUS status;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("TIMES", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("TIMES", 0);

    printf("Creating timestamped files.\n");

    rc = DosOpen((PSZ) "MAXCTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 127;
        status.fdateCreation.month   = 12;
        status.fdateCreation.day     = 31;
        status.ftimeCreation.hours   = 23;
        status.ftimeCreation.minutes = 59;
        status.ftimeCreation.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "creation");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MAXCTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MINCTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 0;
        status.fdateCreation.month   = 1;
        status.fdateCreation.day     = 1;
        status.ftimeCreation.hours   = 0;
        status.ftimeCreation.minutes = 0;
        status.ftimeCreation.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "creation");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MINCTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y19CTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 1999 - 1980;
        status.fdateCreation.month   = 12;
        status.fdateCreation.day     = 31;
        status.ftimeCreation.hours   = 23;
        status.ftimeCreation.minutes = 59;
        status.ftimeCreation.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "creation");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y19CTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y2KCTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 2000 - 1980;
        status.fdateCreation.month   = 1;
        status.fdateCreation.day     = 1;
        status.ftimeCreation.hours   = 0;
        status.ftimeCreation.minutes = 0;
        status.ftimeCreation.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "creation");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y19CTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MAXWTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastWrite.year    = 127;
        status.fdateLastWrite.month   = 12;
        status.fdateLastWrite.day     = 31;
        status.ftimeLastWrite.hours   = 23;
        status.ftimeLastWrite.minutes = 59;
        status.ftimeLastWrite.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastWrite.year + 1980,
                status.fdateLastWrite.month,
                status.fdateLastWrite.day,
                status.ftimeLastWrite.hours,
                status.ftimeLastWrite.minutes,
                status.ftimeLastWrite.twosecs * 2,
                "last written");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MAXWTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MINWTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastWrite.year    = 0;
        status.fdateLastWrite.month   = 1;
        status.fdateLastWrite.day     = 1;
        status.ftimeLastWrite.hours   = 0;
        status.ftimeLastWrite.minutes = 0;
        status.ftimeLastWrite.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastWrite.year + 1980,
                status.fdateLastWrite.month,
                status.fdateLastWrite.day,
                status.ftimeLastWrite.hours,
                status.ftimeLastWrite.minutes,
                status.ftimeLastWrite.twosecs * 2,
                "last written");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MINWTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y19WTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastWrite.year    = 1999 - 1980;
        status.fdateLastWrite.month   = 12;
        status.fdateLastWrite.day     = 31;
        status.ftimeLastWrite.hours   = 23;
        status.ftimeLastWrite.minutes = 59;
        status.ftimeLastWrite.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastWrite.year + 1980,
                status.fdateLastWrite.month,
                status.fdateLastWrite.day,
                status.ftimeLastWrite.hours,
                status.ftimeLastWrite.minutes,
                status.ftimeLastWrite.twosecs * 2,
                "last written");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y19WTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y2KWTIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastWrite.year    = 2000 - 1980;
        status.fdateLastWrite.month   = 1;
        status.fdateLastWrite.day     = 1;
        status.ftimeLastWrite.hours   = 0;
        status.ftimeLastWrite.minutes = 0;
        status.ftimeLastWrite.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastWrite.year + 1980,
                status.fdateLastWrite.month,
                status.fdateLastWrite.day,
                status.ftimeLastWrite.hours,
                status.ftimeLastWrite.minutes,
                status.ftimeLastWrite.twosecs * 2,
                "last written");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y2KWTIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MAXATIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastAccess.year    = 127;
        status.fdateLastAccess.month   = 12;
        status.fdateLastAccess.day     = 31;
        status.ftimeLastAccess.hours   = 23;
        status.ftimeLastAccess.minutes = 59;
        status.ftimeLastAccess.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastAccess.year + 1980,
                status.fdateLastAccess.month,
                status.fdateLastAccess.day,
                status.ftimeLastAccess.hours,
                status.ftimeLastAccess.minutes,
                status.ftimeLastAccess.twosecs * 2,
                "last access");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MAXATIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MINATIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastAccess.year    = 0;
        status.fdateLastAccess.month   = 1;
        status.fdateLastAccess.day     = 1;
        status.ftimeLastAccess.hours   = 0;
        status.ftimeLastAccess.minutes = 0;
        status.ftimeLastAccess.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastAccess.year + 1980,
                status.fdateLastAccess.month,
                status.fdateLastAccess.day,
                status.ftimeLastAccess.hours,
                status.ftimeLastAccess.minutes,
                status.ftimeLastAccess.twosecs * 2,
                "last access");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MINATIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y19ATIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastAccess.year    = 1999 - 1980;
        status.fdateLastAccess.month   = 12;
        status.fdateLastAccess.day     = 31;
        status.ftimeLastAccess.hours   = 23;
        status.ftimeLastAccess.minutes = 59;
        status.ftimeLastAccess.twosecs = 29;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastAccess.year + 1980,
                status.fdateLastAccess.month,
                status.fdateLastAccess.day,
                status.ftimeLastAccess.hours,
                status.ftimeLastAccess.minutes,
                status.ftimeLastAccess.twosecs * 2,
                "last access");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y19ATIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y2KATIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateLastAccess.year    = 2000 - 1980;
        status.fdateLastAccess.month   = 1;
        status.fdateLastAccess.day     = 1;
        status.ftimeLastAccess.hours   = 0;
        status.ftimeLastAccess.minutes = 0;
        status.ftimeLastAccess.twosecs = 0;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateLastAccess.year + 1980,
                status.fdateLastAccess.month,
                status.fdateLastAccess.day,
                status.ftimeLastAccess.hours,
                status.ftimeLastAccess.minutes,
                status.ftimeLastAccess.twosecs * 2,
                "last access");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y2KATIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MAX_TIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 127;
        status.fdateCreation.month   = 12;
        status.fdateCreation.day     = 31;
        status.ftimeCreation.hours   = 23;
        status.ftimeCreation.minutes = 59;
        status.ftimeCreation.twosecs = 29;
        status.fdateLastAccess       = status.fdateCreation;
        status.ftimeLastAccess       = status.ftimeCreation;
        status.fdateLastWrite        = status.fdateCreation;
        status.ftimeLastWrite        = status.ftimeCreation;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "all");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MAX_TIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "MIN_TIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 0;
        status.fdateCreation.month   = 1;
        status.fdateCreation.day     = 1;
        status.ftimeCreation.hours   = 0;
        status.ftimeCreation.minutes = 0;
        status.ftimeCreation.twosecs = 0;
        status.fdateLastAccess       = status.fdateCreation;
        status.ftimeLastAccess       = status.ftimeCreation;
        status.fdateLastWrite        = status.fdateCreation;
        status.ftimeLastWrite        = status.ftimeCreation;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "all");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "MIN_TIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y19_TIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 1999 - 1980;
        status.fdateCreation.month   = 12;
        status.fdateCreation.day     = 31;
        status.ftimeCreation.hours   = 23;
        status.ftimeCreation.minutes = 59;
        status.ftimeCreation.twosecs = 29;
        status.fdateLastAccess       = status.fdateCreation;
        status.ftimeLastAccess       = status.ftimeCreation;
        status.fdateLastWrite        = status.fdateCreation;
        status.ftimeLastWrite        = status.ftimeCreation;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "all");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y19_TIME", rc, wRc, cRc, tRc);

    rc = DosOpen((PSZ) "Y2K_TIME",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);

    if(!rc)
    {
        memset(&status, 0, sizeof(FILESTATUS));
        status.fdateCreation.year    = 2000 - 1980;
        status.fdateCreation.month   = 1;
        status.fdateCreation.day     = 1;
        status.ftimeCreation.hours   = 0;
        status.ftimeCreation.minutes = 0;
        status.ftimeCreation.twosecs = 0;
        status.fdateLastAccess       = status.fdateCreation;
        status.ftimeLastAccess       = status.ftimeCreation;
        status.fdateLastWrite        = status.fdateCreation;
        status.ftimeLastWrite        = status.ftimeCreation;
        memset(&message, 0, 300);
        sprintf(&message,
                DATETIME_FORMAT,
                status.fdateCreation.year + 1980,
                status.fdateCreation.month,
                status.fdateCreation.day,
                status.ftimeCreation.hours,
                status.ftimeCreation.minutes,
                status.ftimeCreation.twosecs * 2,
                "all");

        wRc = DosWrite(handle, &message, strlen(message), &actionTaken);
        tRc = DosSetFileInfo(handle, 1, (PBYTE)&status, sizeof(FILESTATUS));
        cRc = DosClose(handle);
    }

    printf("\tFile name = \"%s\", rc = %d, wRc = %d, cRc = %d, tRc = %d\n", "Y2K_TIME", rc, wRc, cRc, tRc);
}

void DirectoryDepth(const char *path)
{
    char   drivePath[4];
    USHORT rc = 0;
    char   filename[9];
    long   pos = 2;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("DEPTH", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("DEPTH", 0);

    printf("Creating deepest directory tree.\n");

    while(!rc)
    {
        memset(&filename, 0, 9);
        sprintf(&filename, "%08d", pos);
        rc = DosMkDir(filename, 0);

        if(!rc) rc = DosChDir(filename, 0);

        pos++;
    }

    printf("\tCreated %d levels of directory hierarchy\n", pos);
}

void Fragmentation(const char *path, size_t clusterSize)
{
    size_t         halfCluster             = clusterSize / 2;
    size_t         quarterCluster          = clusterSize / 4;
    size_t         twoCluster              = clusterSize * 2;
    size_t         threeQuartersCluster    = halfCluster + quarterCluster;
    size_t         twoAndThreeQuartCluster = threeQuartersCluster + twoCluster;
    unsigned char *buffer;
    char           drivePath[4];
    USHORT         rc = 0, wRc = 0, cRc = 0;
    USHORT         actionTaken = 0;
    HFILE          handle;
    long           i;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("FRAGS", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("FRAGS", 0);

    rc = DosOpen((PSZ) "HALFCLST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(halfCluster);
        memset(buffer, 0, halfCluster);

        for(i = 0; i < halfCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, halfCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "HALFCLST", halfCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "QUARCLST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(quarterCluster);
        memset(buffer, 0, quarterCluster);

        for(i = 0; i < quarterCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, quarterCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "QUARCLST", quarterCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "TWOCLST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoCluster);
        memset(buffer, 0, twoCluster);

        for(i = 0; i < twoCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "TWOCLST", twoCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "TRQTCLST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(threeQuartersCluster);
        memset(buffer, 0, threeQuartersCluster);

        for(i = 0; i < threeQuartersCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, threeQuartersCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n",
           "TRQTCLST",
           threeQuartersCluster,
           rc,
           wRc,
           cRc);

    rc = DosOpen((PSZ) "TWTQCLST",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoAndThreeQuartCluster);
        memset(buffer, 0, twoAndThreeQuartCluster);

        for(i = 0; i < twoAndThreeQuartCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoAndThreeQuartCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n",
           "TWTQCLST",
           twoAndThreeQuartCluster,
           rc,
           wRc,
           cRc);

    rc = DosOpen((PSZ) "TWO1",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoCluster);
        memset(buffer, 0, twoCluster);

        for(i = 0; i < twoCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "TWO1", twoCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "TWO2",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoCluster);
        memset(buffer, 0, twoCluster);

        for(i = 0; i < twoCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "TWO2", twoCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "TWO3",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoCluster);
        memset(buffer, 0, twoCluster);

        for(i = 0; i < twoCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tDeleting \"TWO2\".\n");
    rc = DosDelete((PSZ) "TWO2", 0);

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n", "TWO3", twoCluster, rc, wRc, cRc);

    rc = DosOpen((PSZ) "FRAGTHRQ",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(threeQuartersCluster);
        memset(buffer, 0, threeQuartersCluster);

        for(i = 0; i < threeQuartersCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, threeQuartersCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tDeleting \"TWO1\".\n");
    rc = DosDelete((PSZ) "TWO1", 0);
    printf("\tDeleting \"TWO3\".\n");
    rc = DosDelete((PSZ) "TWO3", 0);

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n",
           "FRAGTHRQ",
           threeQuartersCluster,
           rc,
           wRc,
           cRc);

    rc = DosOpen((PSZ) "FRAGSIXQ",
                 &handle,
                 &actionTaken,
                 0,
                 FILE_NORMAL,
                 OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                 OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                 0);
    if(!rc)
    {
        buffer = malloc(twoAndThreeQuartCluster);
        memset(buffer, 0, twoAndThreeQuartCluster);

        for(i = 0; i < twoAndThreeQuartCluster; i++) buffer[i] = clauniaBytes[i % CLAUNIA_SIZE];

        wRc = DosWrite(handle, buffer, twoAndThreeQuartCluster, &actionTaken);
        cRc = DosClose(handle);
        free(buffer);
    }

    printf("\tFile name = \"%s\", size = %d, rc = %d, wRc = %d, cRc = %d\n",
           "FRAGSIXQ",
           twoAndThreeQuartCluster,
           rc,
           wRc,
           cRc);
}

void Links(const char *path)
{ /* Do nothing, not supported by target operating system */
}

void Sparse(const char *path)
{ /* Do nothing, not supported by target operating system */
}

void MillionFiles(const char *path)
{
    char               drivePath[4];
    USHORT             rc = 0;
    char               filename[9];
    unsigned long long pos         = 0;
    USHORT             actionTaken = 0;
    HFILE              handle;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("MILLION", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("MILLION", 0);

    printf("Creating lots of files.\n");

    for(pos = 0; pos < 100000ULL; pos++)
    {
        memset(&filename, 0, 9);
        sprintf(&filename, "%08llu", pos);
        rc = DosOpen(&filename,
                     &handle,
                     &actionTaken,
                     0,
                     FILE_NORMAL,
                     OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                     OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                     0);
        if(rc) break;

        DosClose(handle);
    }

    printf("\tCreated %llu files\n", pos);
}

void DeleteFiles(const char *path)
{
    char   drivePath[4];
    USHORT rc = 0;
    char   filename[9];
    short  pos         = 0;
    USHORT actionTaken = 0;
    HFILE  handle;

    drivePath[0] = path[0];
    drivePath[1] = ':';
    drivePath[2] = '\\';
    drivePath[3] = 0;

    rc = DosChDir(drivePath, 0);

    if(rc)
    {
        printf("Cannot change to specified path, not continuing.\n");
        return;
    }

    rc = DosMkDir("DELETED", 0);

    if(rc)
    {
        printf("Cannot create working directory.\n");
        return;
    }

    rc = DosChDir("DELETED", 0);

    printf("Creating and deleting files.\n");

    for(pos = 0; pos < 64; pos++)
    {
        memset(&filename, 0, 9);
        sprintf(&filename, "%X", pos);
        rc = DosOpen(&filename,
                     &handle,
                     &actionTaken,
                     0,
                     FILE_NORMAL,
                     OPEN_ACTION_CREATE_IF_NEW | OPEN_ACTION_FAIL_IF_EXISTS,
                     OPEN_FLAGS_NOINHERIT | OPEN_FLAGS_NO_CACHE | OPEN_SHARE_DENYNONE | OPEN_ACCESS_READWRITE,
                     0);
        if(rc) break;

        DosClose(handle);
        DosDelete(&filename, 0);
    }
}

#endif