home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d994 / jukebox.lha / JukeBox / addcd.jb next >
Encoding:
Text File  |  1994-04-05  |  355 b   |  21 lines
  1. /* append a new disc, edit catalog, open catalog */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. edit='sc:c/se' /* insert your favourite editor here */
  5.  
  6. options results;
  7. catalog append;
  8. if rc = 0 then do
  9.     save;
  10.     getattr project;
  11.     cat = result;
  12.     address command;
  13.     edit cat;
  14.     address;
  15.     open cat;
  16.     exit(0);
  17. end
  18. say 'error appending new disc';
  19. exit(10);
  20.          
  21.