|>!run file for TransTIFF
|
SetEval Impression$NeedsAemulor 0
RMEnsure UtilityModule 6.00 SetEval Impression$NeedsAemulor -1
RMEnsure UtilityModule 5.00 SetEval Impression$NeedsAemulor 0
If Impression$NeedsAemulor THEN RMEnsure Aemulor 1.00 Error You need the Aemulor 26bit emulation software to run this copy of TransTIFF on RISC OS 5
If Impression$NeedsAemulor THEN Set Alias$ImpRun "AemuExecute " ELSE Set Alias$ImpRun "Run "
If Impression$NeedsAemulor THEN Set Alias$ImpRMensure "AemuExecute RMEnsure " ELSE Set Alias$ImpRMEnsure "RMEnsure "
If Impression$NeedsAemulor THEN Set Alias$ImpRMload "AemuExecute RMLoad " ELSE Set Alias$ImpRMload "RMLoad "
|
Set TransTIFF$Dir <Obey$Dir>
set FFGServer$TransTIFF -T &FF0 &FF9 -T &FF0 &AFF -R TransTIFF$Dir -M
Set File$Type_FF0 TIFF
ImpRMensure TransTIFF 1.00 ImpRMload <TransTIFF$Dir>.TTMod
|Set Alias$@RunType_FF0 Run <TransTIFF$Dir>.!Run %%*0

WimpSlot -min 64K -max 64K

run "<TransTIFF$Dir>.!RunImage" %*0
