| Impression Style !Run File
| --------------------------
| (c) 1989-1994 Computer Concepts Limited.

WimpSlot -min 608K -max 608K
Set ImpressionStyle$Dir <Obey$Dir>
Set ImpressionStyle$Resources <ImpressionStyle$Dir>
Set Impression$Path <ImpressionStyle$Dir>.!Run
Set ImpressionStyle$Path <ImpressionStyle$Dir>.!Run

Set RiscOS$Version "<Boot$OSversion>"
IF "<RiscOS$Version>" = "" THEN Run <ImpressionStyle$Dir>.RiscOSV
IF RiscOS$Version < 300 THEN RMEnsure ColourTrans 0.52 RMLoad System:Modules.Colours
IF RiscOS$Version < 300 THEN RMEnsure ColourTrans 0.52 Error 0 You need ColourTrans 0.52 or later
IF RiscOS$Version < 300 THEN RMEnsure FontManager 2.42 Error 0 You need FontManager 2.42 or later. Locate !Fonts (on the Fonts disc).
IF RiscOS$Version >= 300 THEN RMEnsure ColourTrans 0.96 Error 0 You need ColourTrans 0.96 or later
IF RiscOS$Version >= 300 THEN RMEnsure FontManager 2.98 Error 0 You need FontManager 2.98 or later
IF "<Font$Path>"="" THEN Error 0 Fonts cannot be found. Locate !Fonts (on the Fonts disc).
|
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 Impression Style on RISC OS 5
If Impression$NeedsAemulor THEN AemuExecute <ImpressionStyle$Dir>.RMStore.AWrender26
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 "<CCShared$Dir>"="" Then IfThere system:!CCShared.!Boot Then ImpRun System:!CCShared.!Boot
|
SetEval SysABI 0
RMEnsure ABI 2.86 SetEval SysABI -1
IF "<System$Path>"="" Then SetEval SysABI 0
IfThere System:Modules.ABIMod Then SetEval SysABI -1 Else SetEval SysABI 0
IF SysABI THEN ImpRMEnsure ABI 2.86 RMLoad System:Modules.ABIMod
IF SysABI THEN ImpRMEnsure ABI 2.86 Error "ABIModule in !System is out of date. Please refer to the section 'Updating ABI' in the manual."
ImpRMEnsure ABI 2.86 RMLoad <ImpressionStyle$Resources>.RMStore.ABIMod
ImpRMEnsure ABI 2.86 Error "The copy of ABI inside !Style is out of date. Impression Style may not have installed correctly. Please re-install Impression Style or seek technical help."
Unset SysABI

ImpRMEnsure Impulse 0.18 RMLoad <ImpressionStyle$Resources>.RMStore.ImpulseII
Set DocumentManager$Scrap <Wimp$ScrapDir>.!Style

Set ImpSpell Present
Set OldImpSpell Present
ImpRMEnsure ImpressionSpell 0.00 Set OldImpSpell NotPresent
ImpRMEnsure ImpressionSpell 1.24 Set ImpSpell NotPresent
If "<ImpSpell>"="NotPresent" AND "<OldImpSpell>"="Present" THEN RmKill ImpressionSpell
Set ImpSpell Present
Set OldImpSpell Present
ImpRMEnsure SpellMaster 0.00 Set OldImpSpell NotPresent
ImpRMEnsure SpellMaster 1.24 Set ImpSpell NotPresent
If "<ImpSpell>"="NotPresent" AND "<OldImpSpell>"="Present" THEN RmKill SpellMaster
UnSet ImpSpell 
UnSet OldImpSpell

If Boot$OSVersion>=500 Then IconSprites <ImpressionStyle$Dir>.5Sprites Else IconSprites <ImpressionStyle$Dir>.!Sprites
Set File$Type_D87 DocData
Set File$Type_D88 Stories
Set File$Type_D89 IModule
Set File$Type_D8A Excep'ns
Set File$Type_D8B Abbrev
Set File$Type_D8E ABIDefs
Set File$Type_D94 ArtWork
Set File$Type_ff5 PoScript
Set File$Type_ff0 TIFF
Set File$Type_DFE CSV
Set File$Type_AFF DrawFile
Set File$Type_BC5 ImpDoc
Set File$Type_C25 AWord
Set File$Type_BD6 AudioWrk

Set Alias$@RunType_C25 "Run <ImpressionStyle$Path> %%*0"
Set Alias$@PrintType_C25 "Run <ImpressionStyle$Path> -print %%*0"
Set Alias$@RunType_BC5 "Run <ImpressionStyle$Path> %%*0"
Set Alias$@PrintType_BC5 "Run <ImpressionStyle$Path> -print %%*0"

If "<Impression$TimeFormat>"="" then Set Impression$TimeFormat "%z12:%mi:%se %pm"
If "<Impression$DateFormat>"="" then Set Impression$DateFormat "%zdy%st %mo %ce%yr"

WimpSlot -min 608K -max 608K
ImpRun "<ImpressionStyle$Dir>.!RunImage" %*0