home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / d / eventshell / !ShellDBug / !Run < prev    next >
Encoding:
Text File  |  1993-11-14  |  1.0 KB  |  25 lines
  1. |ForceCFS
  2. | !Run Obey file for ShellDBug Application
  3. Set ShellDBug$Dir <Obey$Dir>
  4. Set ShellDBug$BasicFile <Obey$Dir>.!ShellDBug
  5. IF "<EvntShellSystem$Path>"="" THEN ERROR 0 Shell resources not found
  6. |Change the next line if you are using a different
  7. |filetype number
  8. |Set Alias$@RunType_200 Run <Obey$Dir>.!Run %%*0
  9. IconSprites <Obey$Dir>.!Sprites
  10. Run <Obey$Dir>.ChkSpr
  11. WimpSlot -min 256K -max 256K
  12. Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
  13. Run Dummy:ResFind ShellDBug
  14. Unset Dummy$Path
  15. |Load any modules required now
  16. RMEnsure InterfaceManager 1.25 RMLoad <EvntShellSystem$Path>Interface
  17. RMEnsure InterfaceManager 1.25 Error Couldn't load Interface module
  18. RMEnsure MenuUtils 0.11 RMLoad <EvntShellSystem$Path>MenuUtils
  19. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  20. RMEnsure MessageTrans 0.06 RMLoad <EvntShellSystem$Path>MsgTrans
  21. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  22. |And check that there is still enough memory!
  23. WimpSlot -min 256K -max 256K
  24. Run <ShellDBug$Dir>.!ShellDBug %*0
  25.