home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / ArchiveRemove.FPL < prev    next >
Text File  |  1995-07-19  |  325b  |  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.