home *** CD-ROM | disk | FTP | other *** search
- | !Run Obey file for TestDraw Application
- RMensure UtilityModule 3.00 Error Sorry! TestDraw requires RISC OS 3 or later
- Set TestDraw$Dir <Obey$Dir>
- Set TestDraw$BasicFile <Obey$Dir>.!TestDraw
- IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
- IconSprites <Obey$Dir>.!Sprites
- WimpSlot -min 352K -max 352K
- |Load any modules required now
- RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
- RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
- RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
- RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
- RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
- RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
- RMEnsure DrawFile 1.30 RMLoad <EvntShell$Path>DrawFile
- RMEnsure DrawFile 1.30 Error Couldn't load DrawFile Module
- |RMEnsure WimpExtension 2.18 RMLoad <Obey$Dir>.WimpExt
- |RMEnsure WimpExtension 2.18 Error Couldn't load WimpExtension Module
- |And check that there is still enough memory!
- WimpSlot -min 352K -max 352K
- Run <TestDraw$Dir>.!TestDraw %*0
-