home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / ArchiveRemove.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  325 b   |  19 lines
  1. export int ArchiveRemove()
  2. {
  3.   string protect;
  4.   int count;
  5.   protect=ReadInfo("protection");
  6.   for (count=0; count<strlen(protect); count++) {
  7.     switch(protect[count]) {
  8.     case 'a':
  9.       protect[count]=' ';
  10.       break;
  11.     }
  12.   }
  13.   SetInfo(-1, "protection", protect);
  14.   return(0);
  15. }
  16.  
  17. Hook("Save", "ArchiveRemove();");
  18.  
  19.