Скачать Утилита резки файлов

12.07.1994
Скачать файл (4,32 Кб)

{ LIBRARY               SYSTEM UTILITIES                                }
{ MODULE                FILE_SPLIT                                      }
{ FILE NAME             FSPLIT.PAS                                      }
{ PURPOSE               SPLITES BINARY FILE TO TWO PARTIAL FILES        }
{ VERSION               1.20                                            }
{ DATE                  20-Sep-93                                       }
{ COMPANY               Freelance Software Engineer                     }
{ ADDRESS               Isakowskogo str, 4-2-30                         }
{                       Moscow, 123181                                  }
{                       USSR                                            }
{                       Tel. 007 (095) 944-6304                         }
{ COPYRIGHT NOTICE      Copyright (C) 1987-1993, Dmitry Stefankov       }
{ RESTRICTED RIGHTS     AVAILABLE ONLY FOR FREE DISTRIBUTION,           }
{                       NOT FOR COMMERCIAL PURPOSE                      }
{ COMPUTER              IBM PC or compatible                            }
{ OPERATING SYSTEM      MS/PC-DOS Version 3.30 or higher                }
{ COMPILER              Turbo Pascal Version 6.0                        }
{                       (Borland International Inc.)  or compatible     }
{ ASSEMBLY LANGUAGE     Microsoft MASM 5.10 or compatible               }
{ ARGUMENTS                 -   input binary file               }
{                         -   output filename (even bytes)    }
{                          -   output filename (odd bytes)     }
{                        -   # of bytes to put in even part  }
{                         -   # of bytes to put in odf part   }
{ RETURN                See error return codes definitions              }
{ DESCRIPTION           1.Read   input  stream (# of bytes)             }
{                       2.Format output stream (evencount of bytes put  }
{                         to even stream, oddcount - to odd stream)     }
{                       3.Write output streams (2 streams)              }
{-----------------------------------------------------------------------}