/* 
**   Löscht Dateimarkierung ( * )
**
*/
/* DL.rexx  - Beginn der Programmierung: 22.03.1994      */
/* DL.rexx  - copyright © 1994 by Stephan Bülling        */
/* RUBBERDUCK@SID.ZER     [BBS - Tel.: 0231/448496]      */
/* RUBBERDUCK@BLANKER.ZER [BBS - Tel.: 0231/815739]      */

 OPTIONS RESULTS

 SIGNAL ON Break_C
 options failat 999
 cr=d2c(13)||d2c(10)

 ADDRESS 'MFISH'

SETPREF CASEOFF OLDTONEW

/* Alle Dateimarkierungen Löschen */
/*|||*/

STATUS PROJECTNAME
 serie=RESULT
STATUS MARK
 mar=RESULT
 SAY cr||"           Abruch mit CTRL C "
 SAY cr||" lösche Dateimarkierung von der Serie "serie
  DO FOR mar
   FLAG CLEAR MARK
   NEXT MARK
  END

/*|||*/

Break_C:

/*
ADDRESS 'MFISH'
QUIT                  /* MegaFish Ende */
*/

EXIT