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