home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / eventshell / Examples / !RenderDrw / !Run < prev    next >
Encoding:
Text File  |  1995-10-21  |  1.1 KB  |  25 lines
  1. | !Run Obey file for RenderDrw Application
  2. RMensure UtilityModule 3.00 Error Sorry! RenderDrw requires RISC OS 3 or later
  3. Set RenderDrw$Dir <Obey$Dir>
  4. Set RenderDrw$BasicFile <Obey$Dir>.!RenderDrw
  5. IF "<EvntShell$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. |Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
  11. |Run Dummy:ResFind RenderDrw
  12. |Unset Dummy$Path
  13. WimpSlot -min 288K -max 288K
  14. |Load any modules required now
  15. RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
  16. RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
  17. RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
  18. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  19. RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
  20. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  21. RMEnsure DrawFile 1.30 RMLoad <EvntShell$Path>DrawFile
  22. RMEnsure DrawFile 1.30 Error Couldn't load DrawFile Module
  23. |And check that there is still enough memory!
  24. WimpSlot -min 288K -max 288K
  25. Run <RenderDrw$Dir>.!RenderDrw %*0