| !Run file for TransPhotoCD

RMEnsure UtilityModule 3.00 Error 0 TransPhotoCD requires RISC OS 3
Set TransPhotoCD$Dir <Obey$Dir>
Run <TransPhotoCD$Dir>.TaskActive "TransPhotoCD"
IF "<Task$Active>" = "TRUE" THEN ERROR "PhotoCD translator is already running"
Set FFGServer$TransPhotoCD -T &BE8 &FF9 -T &BE8 &AFF -R TransPhotoCD$Dir
Set File$Type_BE8 PhotoCD
DosMAP PCD PhotoCD

RMEnsure PhotoCD 0.23 RMLoad <Obey$Dir>.PhotoCD
RMEnsure PhotoCD 0.23 Error You need PhotoCD 0.19 or later

IconSprites <TransPhotoCD$Dir>.!Sprites
WimpSlot -min 64K -max 64K
Run <TransPhotoCD$Dir>.!RunImage %*0
