set Newsbase$Dir <Obey$dir>
iconsprites <Newsbase$dir>.!Sprites
wimpslot 64k 64k
Set Dummy$Path <Run$Path>,<Newsbase$Dir>.Resources.
Run Dummy:ResFind Newsbase
Unset Dummy$Path

wimpslot -min 4k
run <Newsbase$Dir>.!AutoBoot
wimpslot 420K 420K

RMEnsure utilitymodule 3 Error 0 Sorry, Newsbase requires RISC OS 3.10 or higher

RMEnsure Dynamite 0.00 RMRun <Newsbase$Dir>.Resources.Dynamite
RMEnsure Dynamite 1.17 Error 0 Dynamite module not found or is too old for Newsbase

RMEnsure Impulse 0.18 RMLoad <Newsbase$Dir>.Resources.ImpulseII
RMEnsure Impulse 0.18 Error 0 Impulse module not found or is too old for Newsbase

| actually we don't want to insist on having Syslog, so don't complain if not found:
If "<SysLog$Dir>" > "" Then RMEnsure SysLog 0.17 Run <SysLog$Dir>.!Run

|RMEnsure Gdbm 0.02 RMLoad <Newsbase$Dir>.Resources.GDBM
|RMEnsure Gdbm 0.02 Error 0 GDBM module not found or is too old for Newsbase

| possible switches for !Newsbase are
| -ro       for read-only operation
| -server   for auto-restart on error (if runtime > 1 minute)
| -nolock   to inhibit newsdir locking
| -noicon   to hide iconbar icon
wimpslot 512K 512K
run <Newsbase$dir>.!Runimage %*0