home *** CD-ROM | disk | FTP | other *** search
- | !Run Obey file for ShellDBug Application
- Set ShellDBug$Dir <Obey$Dir>
- Set ShellDBug$BasicFile <Obey$Dir>.!ShellDBug
- IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
- |Change the next line if you are using a different
- |filetype number
- |Set Alias$@RunType_200 Run <Obey$Dir>.!Run %%*0
- IconSprites <Obey$Dir>.!Sprites
- WimpSlot -min 400K -max 400K
- Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
- Run Dummy:ResFind ShellDBug
- Unset Dummy$Path
- |Load any modules required now
- RMEnsure InterfaceManager 1.25 RMLoad <EvntShell$Path>Interface
- RMEnsure InterfaceManager 1.25 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
- |And check that there is still enough memory!
- WimpSlot -min 400K -max 400K
- Run <ShellDBug$Dir>.!ShellDBug %*0
-