|>$.Hsy.!Hearsay.!Run   Hearsay Run file
|
| Startup file for Hearsay
|
WimpSlot -min 576K  -max 576K
|
IconSprites <Obey$Dir>.!Sprites
Set Alias$@RunType_D66 Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_D65 Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_D33 Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_D32 Run <Obey$Dir>.!Run %%*0
|
Set File$Type_D66  HsyFrame
Set File$Type_D65  HsyScript
Set File$Type_D33  Profile3
Set File$Type_D32  Profile2
Set File$Type_FF1  RawData
|
RMEnsure SystemDevices  1.13 Error Hearsay needs SystemDevices Module
RMEnsure SpriteUtils    1.04 Error Hearsay needs SpriteUtils Module
RMEnsure SpriteExtend   0.20 Error Hearsay needs SpriteExtension Module
RMEnsure WindowManager  2.00 Error Hearsay needs a newer Window Manager
RMEnsure FontManager    1.15 Error Hearsay needs a newer Font Manager
RMEnsure Draw           1.01 Error Hearsay 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
|
Set Hearsay$Templates Templates
|
If "<Hearsay$Dir>"=""  Then Seteval Hearsay$Case 1  Else Seteval Hearsay$Case <Hearsay$Case>+1
Set Hearsay$Dir <Obey$Dir>
Run <Hearsay$Dir>.Resources.Resfind Hearsay
|
Set Hearsay$Printfile Printer:
Set Hearsay$TXBatch <Hearsay$Dir>.TXBatch
Set Hearsay$RXBatch <Hearsay$Dir>.RXBatch
Set Hearsay$LogFile <Hearsay$Dir>.LogFile
Set Hearsay$AutoRun <Hearsay$Dir>.AutoRun
Set Hearsay$Library <Hearsay$Dir>.Library
Set Hearsay$TeleDir <Hearsay$Dir>.Tele-Dir
Set Hearsay$BatMan  <Hearsay$Dir>.Resources.BatMan
Set Hearsay$Driver  <Hearsay$Dir>.Driver
Set Hearsay$Resources <Hearsay$Dir>.Resources
|
| NB parameter substitution is active here - hence use double percents below
|
Set Hearsay$DateFormat %%ZDY%%ST %%MO %%CE%%YR
Set Hearsay$TimeFormat %%Z12:%%MI%%AM
|
|WimpSlot -min 544K
WimpSlot -min 672K
Run "<Hearsay$Dir>.!RunImage" %*0
