|
| !Run file for WimpBasic
|
|  Copyright Hskuldur Hermannsson, 1996
|  Copyright APDL, 2003
|
|

Obey <Obey$Dir>.!Boot

| Check OS major version number
RMEnsure UtilityModule 3.10 Error This version of WimpBasic will only run on RISC OS 3.10 or later

If "<WBModules$Dir>" = "" THEN Error WimpBasic resource directory has not been set
If "<System$Path>" = "" Then Error Please open a directory display containing !System
If "<Wimp$ScrapDir>" = "" Then Error Please open a directory display containing !Scrap
If "<Choices$Path>" = "" OR "<Choices$Write>" = "" Then Error This version of WimpBasic requires an external location to store choices

| Fix for bug in early versions of window manager
RMEnsure BorderUtils 0.02 RMEnsure WindowManager 3.17 RMLoad System:Modules.BorderUtil

RMEnsure SpriteExtend 0.99 IfThere System:Modules.SpriteExt Then RMLoad System:Modules.SpriteExt
RMEnsure SpriteExtend 0.99 Error WimpBasic requires SpriteExtend 0.99 or later

|NOTE: If you want to use a common library for example on
|      network you can change the following line to point
|      to the library
Set WimpBasicLibrary$Dir <WimpBasic$Dir>.Library

WimpSlot -Min 600K -Max 600K
|WimpSlot -Min 5120K -Max 5120K
Run <WimpBasic$Dir>.!RunImage %*0