|>$.Fax.!ArcFax.!Run
|
|
WimpSlot -min 416K  -max 416K
|
If "<Boot$OSVersion>" < "400" Then IconSprites <Obey$Dir>.!Sprites Else IconSprites <Obey$Dir>.4Sprites
Set File$Type_FF0 TIFF
Set File$Type_DFE CSV
Set File$Type_505 Voice
Set File$Type_DDC Archive
|
RMEnsure SystemDevices  1.13 Error ArcFax needs SystemDevices Module
RMEnsure SpriteUtils    1.04 Error ArcFax needs SpriteUtils Module
RMEnsure SpriteExtend   0.20 Error ArcFax needs SpriteExtension Module
RMEnsure WindowManager  2.00 Error ArcFax needs a newer Window Manager
RMEnsure FontManager    1.15 Error ArcFax needs a newer Font Manager
RMEnsure Draw           1.01 Error ArcFax needs Draw Module 1.01 or later
|
RMEnsure ResourceFS     0.00 IconSprites <Obey$Dir>.Resources.Sprites3
|
if "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error This application requires CallASWI 0.02 or later
RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later
|
|RMEnsure IRQUtils       0.12 RMLoad <Obey$Dir>.Modules.IRQUtils
RMEnsure Hourglass      2.02 RMLoad <Obey$Dir>.Modules.Hourglass
RMEnsure SoundScheduler 1.13 RMLoad <Obey$Dir>.Modules.Sound2
|
If "<ArcFax$Case>"=""  Then Seteval ArcFax$Case 1  Else Seteval ArcFax$Case <ArcFax$Case>+1
|
RMEnsure ArcFaxFix      0.08 RMLoad <Obey$Dir>.Resources.ArcFaxFix
|
Set ArcFax$Dir <Obey$Dir>
Set ArcFax$Path <ArcFax$Dir>.
Set ArcFax$TmpDir <ArcFax$Dir>.ArcFaxTmp
Run <ArcFax$Dir>.Resources.Resfind ArcFax
Set ArcFax$Scrap <Wimp$ScrapDir>
|
Set ArcFax$Templates Templates
RMEnsure UtilityModule  3.10 Set ArcFax$Templates Templates2
|
Set ArcFax$Printfile Printer:
Set ArcFax$TXBatch <ArcFax$Dir>.TXBatch
Set ArcFax$RXBatch <ArcFax$Dir>.RXBatch
Set ArcFax$AutoRun <ArcFax$Dir>.AutoRun
Set ArcFax$Library <ArcFax$Dir>.Library
Set ArcFax$TeleDir <ArcFax$Dir>.Config.Tele-Dir
Set ArcFax$BatMan  <ArcFax$Dir>.Config.BatMan
Set ArcFax$Driver  <ArcFax$Dir>.Driver
Set ArcFax$Resources <ArcFax$Dir>.Resources
Set ArcFax$Schedule <ArcFax$Dir>.Config.Schedule
Set ArcFax$Server <ArcFax$Dir>.Server
|
| NB parameter substitution is active here - hence use double percents below
|
Set ArcFax$DateFormat %%ZDY%%ST %%MO %%CE%%YR
Set ArcFax$TimeFormat %%Z12:%%MI%%AM
|
WimpSlot -min 480K
Run "<ArcFax$Dir>.!RunImage" %*0 
