/* generates catalogs from PhotoCDs */

/* --------------------- standard startup ----------------------- */

OPTIONS RESULTS

if( ADDRESS() ~= "IDESK_REXXPORT" ) then
    ADDRESS IDESK_REXXPORT

/* -------------------------------------------------------------- */

catname = "PhotoCD.Cat" /* <- edit the catalog name if you want */

IDREQUEST "Abort|Continue" '"This Script needs a PhotoCD mounted as CD0:"'
if (RESULT = 1) then exit

IDGETPATH '"Where to store the catalog?"'
if (RC > 0) then exit

catdir = RESULT

if (right(catdir, 1) ~= ':') then
    catdir = catdir || '/'


SETTPREFS DITHER TRUE
SETTPREFS TSIZE STD

GENCAT '"'||catdir||catname||'"' "CD0:PHOTO_CD/IMAGES" "#?.PCD"

IDREQUEST OK '"Catalog has been stored as:'||'0A'x||catdir||catname||'"'