#usage "<b>Copy a file to filename.copy</b><p>\n"
       "<author>Author: alf@cadsoft.de</author>"

string fileName;
string test = "";
int Result = 0;
int nBytes = 0;
int start = 0;
char c[];

fileName = dlgFileOpen("Select a file", "*.*");

nBytes = fileread(c, fileName);

sprintf(test, "%d = &%x", nBytes, nBytes);
dlgMessageBox("Length of File = " + test);

dlgMessageBox("Write " + fileName + "?");
fileName += ".copy";
output(fileName, "wb") {
  for (int z = 0; z < nBytes; z++) {
    printf("%c", c[z]);
    Result = z+1;
    }
  }
sprintf(test, "%d = $%x", Result, Result);
dlgMessageBox("Length of File = " + test, "OK");