|>!run

RMEnsure UtilityModule 3.00 Error 0 TransJPEG requires RISC OS 3
Set TransJPEG$Dir <Obey$Dir>
Run <TransJPEG$Dir>.TaskActive "TransJPEG"
IF "<Task$Active>" = "TRUE" THEN ERROR "JPEG translator is already running"
Set FFGServer$TransJPEG -T &C85 &FF9 -T &C85 &AFF -R TransJPEG$Dir
Set File$Type_C85 JPEG

RMEnsure JPEGUtils 0.04 RMLoad <TransJPEG$Dir>.JPEGUtils
RMEnsure JPEGUtils 0.04 Error "JPEGUtils out of date"
RMEnsure ImageUtils 1.12 RMLoad <TransJPEG$Dir>.ImageUtils
RMEnsure ImageUtils 1.12 Error "ImageUtils out of date"

|Set Alias$@RunType_FF0 Run <TransJPEG$Dir>.!Run %%*0

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