|
| !Run for !TTFN  R.W.Orwin 1994-5.
| (updated by Richard Sargeant 1997)
|

Set TTFN$Dir <Obey$Dir>
Set NewsBase$ClientTTFN <TTFN$Dir>

IconSprites <Obey$Dir>.!Sprites

| Right OS Version?
RMEnsure UtilityModule 3.10 Error TTFN requires RISC OS 3.10 or later.

| Load BorderUtils to help fix WIMP problem with RISC OS 3.10
RMEnsure BorderUtils 0.05 If "<System$Path>"="" Then Error Please find !System application for !TTFN
RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17 RMLoad System:Modules.BorderUtil
RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17 Error !TTFN requires BorderUtils 0.05 or later, or WindowManager 3.17 or later

| !Scrap been seen?
If "<Wimp$ScrapDir>"="" Then Error Please open a directory viewer containing !Scrap and try again.

| Is TTFN already running?
Run <TTFN$Dir>.Resources.Check

| The URI handler, if available
Run <TTFN$Dir>.!AcornURI

| Increase the application's initial memory allocation defined on the
| following two lines in case of spurious crashes (eg. stack overflow).
WimpSlot -min 352k
WimpSlot -min 288k -max 288k

| OK, all conditions satisfied, let TTFN load
Run <TTFN$Dir>.!RunImage %*0